diff --git a/gnucash/report/html-utilities.scm b/gnucash/report/html-utilities.scm index a801111e10f..d5bda78a315 100644 --- a/gnucash/report/html-utilities.scm +++ b/gnucash/report/html-utilities.scm @@ -228,13 +228,10 @@ (define (gnc:html-make-generic-simple-warning report-title-string message) - (let ((p (gnc:make-html-text))) - (gnc:html-text-append! - p - (gnc:html-markup-h2 (string-append report-title-string ":")) - (gnc:html-markup-h2 "") - (gnc:html-markup-p message)) - p)) + (gnc:make-html-text + (gnc:html-markup-h3 (string-append report-title-string ":")) + (gnc:html-markup-h3 "") + (gnc:html-markup-p message))) (define (gnc:html-make-options-link report-id) @@ -301,14 +298,11 @@ (define (gnc:html-make-generic-warning report-title-string report-id warning-title-string warning-string) - (let ((p (gnc:make-html-text))) - (gnc:html-text-append! - p - (gnc:html-markup-h2 (string-append (G_ report-title-string) ":")) - (gnc:html-markup-h2 warning-title-string) - (gnc:html-markup-p warning-string) - (gnc:html-make-options-link report-id)) - p)) + (gnc:make-html-text + (gnc:html-markup-h3 (string-append (G_ report-title-string) ":")) + (gnc:html-markup-h3 warning-title-string) + (gnc:html-markup-p warning-string) + (gnc:html-make-options-link report-id))) (define (gnc:html-make-generic-options-warning report-title-string report-id) diff --git a/gnucash/report/reports/example/welcome-to-gnucash.scm b/gnucash/report/reports/example/welcome-to-gnucash.scm index 6675312ae58..80a2e076876 100644 --- a/gnucash/report/reports/example/welcome-to-gnucash.scm +++ b/gnucash/report/reports/example/welcome-to-gnucash.scm @@ -37,7 +37,7 @@ (gnc:html-document-add-object! doc (gnc:make-html-text - (gnc:html-markup-h2 + (gnc:html-markup-h3 (format #f (G_ "Welcome to GnuCash ~a !") gnc:version)) (gnc:html-markup-p diff --git a/gnucash/report/reports/standard/new-owner-report.scm b/gnucash/report/reports/standard/new-owner-report.scm index 8e0cbcad339..b64c4b02be8 100644 --- a/gnucash/report/reports/standard/new-owner-report.scm +++ b/gnucash/report/reports/standard/new-owner-report.scm @@ -1079,7 +1079,7 @@ invoices and amounts."))))) (gnc:html-document-add-object! document (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-make-options-link (gnc:report-id report-obj))))) diff --git a/gnucash/report/reports/standard/price-scatter.scm b/gnucash/report/reports/standard/price-scatter.scm index a10e7f13055..787bd1333f3 100644 --- a/gnucash/report/reports/standard/price-scatter.scm +++ b/gnucash/report/reports/standard/price-scatter.scm @@ -192,7 +192,7 @@ (gnc:html-document-add-object! document (gnc:make-html-text - (gnc:html-markup-h2 title) + (gnc:html-markup-h3 title) (gnc:html-markup-p text)))) (gnc:html-chart-set-type! chart 'line)