IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[STYLESHEETS] modify stylesheet to accept document style-text

Browse Source 
This commit will modify stylesheet-*.scm to pass the *document*
style-text as well as the *style-sheet* style-text to the <style> tag.
This commit is contained in:
Christopher Lam 2018-06-03 19:35:24 +08:00
parent da0160add8
commit ccf3ebda16
6 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gnucash/report/report-system/html-fonts.scm
View File

@ -132,7 +132,7 @@
) )
;; Adds CSS style information to an html document ;; Adds CSS style information to an html document
(define (add-css-information-to-doc options ssdoc) (define (add-css-information-to-doc options ssdoc doc)
(let* (let*
((opt-val ((opt-val
(lambda (section name) (lambda (section name)
@ -173,6 +173,7 @@
"td.total-number-cell { " total-number-cell-font-info " }\n" "td.total-number-cell { " total-number-cell-font-info " }\n"
"td.total-label-cell { " total-label-cell-font-info " }\n" "td.total-label-cell { " total-label-cell-font-info " }\n"
"td.centered-label-cell { text-align: center; " centered-label-cell-font-info " }\n" "td.centered-label-cell { text-align: center; " centered-label-cell-font-info " }\n"
(or (gnc:html-document-style-text doc) "")
) )
) )
) )

2
gnucash/report/stylesheets/stylesheet-easy.scm
View File

@ -344,7 +344,7 @@
(if (and logopixmap (> (string-length logopixmap) 0)) (if (and logopixmap (> (string-length logopixmap) 0))
(set! headcolumn 1)) (set! headcolumn 1))
(add-css-information-to-doc options ssdoc) (add-css-information-to-doc options ssdoc doc)
(let* ((title (gnc:html-document-title doc)) (let* ((title (gnc:html-document-title doc))
(doc-headline (gnc:html-document-headline doc)) (doc-headline (gnc:html-document-headline doc))

2
gnucash/report/stylesheets/stylesheet-fancy.scm
View File

@ -325,7 +325,7 @@
(gnc:html-document-set-style! (gnc:html-document-set-style!
ssdoc "a" 'tag "")) ssdoc "a" 'tag ""))
(add-css-information-to-doc options ssdoc) (add-css-information-to-doc options ssdoc doc)
(let ((t (gnc:make-html-table))) (let ((t (gnc:make-html-table)))
;; we don't want a bevel for this table, but we don't want ;; we don't want a bevel for this table, but we don't want

2
gnucash/report/stylesheets/stylesheet-footer.scm
View File

@ -343,7 +343,7 @@
(if (not links?) (if (not links?)
(gnc:html-document-set-style! ssdoc "a" 'tag "")) (gnc:html-document-set-style! ssdoc "a" 'tag ""))
(add-css-information-to-doc options ssdoc) (add-css-information-to-doc options ssdoc doc)
(let ((t (gnc:make-html-table))) (let ((t (gnc:make-html-table)))
;; we don't want a bevel for this table, but we don't want ;; we don't want a bevel for this table, but we don't want

2
gnucash/report/stylesheets/stylesheet-head-or-tail.scm
View File

@ -408,7 +408,7 @@
(if (not links?) (if (not links?)
(gnc:html-document-set-style! ssdoc "a" 'tag "")) (gnc:html-document-set-style! ssdoc "a" 'tag ""))
(add-css-information-to-doc options ssdoc) (add-css-information-to-doc options ssdoc doc)
(let ((t (gnc:make-html-table))) (let ((t (gnc:make-html-table)))
;; we don't want a bevel for this table, but we don't want ;; we don't want a bevel for this table, but we don't want

2
gnucash/report/stylesheets/stylesheet-plain.scm
View File

@ -216,7 +216,7 @@
ssdoc "a" ssdoc "a"
'tag "")) 'tag ""))
(add-css-information-to-doc options ssdoc) (add-css-information-to-doc options ssdoc doc)
(let* ((title (gnc:html-document-title doc)) (let* ((title (gnc:html-document-title doc))
(doc-headline (gnc:html-document-headline doc)) (doc-headline (gnc:html-document-headline doc))