From 33224441c8fe1a327adf6fa724aa64dd303dd589 Mon Sep 17 00:00:00 2001 From: Phil Longstaff Date: Sat, 11 Jul 2009 01:21:08 +0000 Subject: [PATCH] If a report defines style-text, that text will be added to the report header as css style info. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18196 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/report/report-system/html-document.scm | 18 ++++++++++++++++-- src/report/report-system/report-system.scm | 2 ++ 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/src/report/report-system/html-document.scm b/src/report/report-system/html-document.scm index 81099e1d28..d6418973ce 100644 --- a/src/report/report-system/html-document.scm +++ b/src/report/report-system/html-document.scm @@ -21,6 +21,7 @@ ;; Boston, MA 02110-1301, USA gnu@gnu.org ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(gnc:module-load "gnucash/html" 0) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; class @@ -29,7 +30,7 @@ (define (make-record-type "" - '(style-sheet style-stack style title headline objects))) + '(style-sheet style-stack style style-text title headline objects))) (define gnc:html-document? (record-predicate )) @@ -42,6 +43,7 @@ #f ;; the stylesheet '() ;; style stack (gnc:make-html-style-table) ;; document style info + #f ;; style text "" ;; document title #f ;; headline '() ;; subobjects @@ -74,6 +76,12 @@ (define gnc:html-document-style-stack (record-accessor 'style-stack)) +(define gnc:html-document-set-style-text! + (record-modifier 'style-text)) + +(define gnc:html-document-style-text + (record-accessor 'style-text)) + (define gnc:html-document-set-style-internal! (record-modifier 'style)) @@ -120,7 +128,9 @@ ;; returns the html document as a string, I think. (define (gnc:html-document-render doc . rest) (let ((stylesheet (gnc:html-document-style-sheet doc)) - (headers? (if (null? rest) #f (if (car rest) #t #f)))) + (headers? (if (null? rest) #f (if (car rest) #t #f))) + (style-text (gnc:html-document-style-text doc)) + ) (if stylesheet ;; if there's a style sheet, let it do the rendering (gnc:html-style-sheet-render stylesheet doc headers?) @@ -130,6 +140,7 @@ (push (lambda (l) (set! retval (cons l retval)))) (objs (gnc:html-document-objects doc)) (work-to-do (length objs)) + (css? (gnc-html-engine-supports-css)) (work-done 0) (title (gnc:html-document-title doc))) ;; compile the doc style @@ -143,6 +154,9 @@ (begin (push "\n") (push "\n") + (if css? + (if style-text + (push (list "" style-text "