[reports] use h3 instead of h2 for report-title

"Title" style applies to h3. Ensure that report titles are h3 to be
styled as requested by stylesheets.
This commit is contained in:
Christopher Lam 2020-09-26 17:31:48 +08:00
parent 0ef70ab7c9
commit 05bf2d7a9c
4 changed files with 12 additions and 18 deletions

View File

@ -228,13 +228,10 @@
(define (gnc:html-make-generic-simple-warning report-title-string message) (define (gnc:html-make-generic-simple-warning report-title-string message)
(let ((p (gnc:make-html-text))) (gnc:make-html-text
(gnc:html-text-append! (gnc:html-markup-h3 (string-append report-title-string ":"))
p (gnc:html-markup-h3 "")
(gnc:html-markup-h2 (string-append report-title-string ":")) (gnc:html-markup-p message)))
(gnc:html-markup-h2 "")
(gnc:html-markup-p message))
p))
(define (gnc:html-make-options-link report-id) (define (gnc:html-make-options-link report-id)
@ -301,14 +298,11 @@
(define (gnc:html-make-generic-warning (define (gnc:html-make-generic-warning
report-title-string report-id report-title-string report-id
warning-title-string warning-string) warning-title-string warning-string)
(let ((p (gnc:make-html-text))) (gnc:make-html-text
(gnc:html-text-append! (gnc:html-markup-h3 (string-append (G_ report-title-string) ":"))
p (gnc:html-markup-h3 warning-title-string)
(gnc:html-markup-h2 (string-append (G_ report-title-string) ":")) (gnc:html-markup-p warning-string)
(gnc:html-markup-h2 warning-title-string) (gnc:html-make-options-link report-id)))
(gnc:html-markup-p warning-string)
(gnc:html-make-options-link report-id))
p))
(define (gnc:html-make-generic-options-warning (define (gnc:html-make-generic-options-warning
report-title-string report-id) report-title-string report-id)

View File

@ -37,7 +37,7 @@
(gnc:html-document-add-object! (gnc:html-document-add-object!
doc doc
(gnc:make-html-text (gnc:make-html-text
(gnc:html-markup-h2 (gnc:html-markup-h3
(format #f (G_ "Welcome to GnuCash ~a !") (format #f (G_ "Welcome to GnuCash ~a !")
gnc:version)) gnc:version))
(gnc:html-markup-p (gnc:html-markup-p

View File

@ -1079,7 +1079,7 @@ invoices and amounts.")))))
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(gnc:html-markup-h2 (G_ "No transactions found.")) (gnc:html-markup-h3 (G_ "No transactions found."))
(gnc:html-markup-p (G_ "No matching transactions found")) (gnc:html-markup-p (G_ "No matching transactions found"))
(gnc:html-make-options-link (gnc:report-id report-obj))))) (gnc:html-make-options-link (gnc:report-id report-obj)))))

View File

@ -192,7 +192,7 @@
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(gnc:html-markup-h2 title) (gnc:html-markup-h3 title)
(gnc:html-markup-p text)))) (gnc:html-markup-p text))))
(gnc:html-chart-set-type! chart 'line) (gnc:html-chart-set-type! chart 'line)