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] *reindent/delete-trailing-whitespace/untabify*

Browse Source
This commit is contained in:
Christopher Lam
2019-04-09 06:57:45 +08:00
parent 375013f9ea
commit 1338162d14
6 changed files with 676 additions and 675 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -70,7 +70,7 @@
(N_ "Enable Links") "d"
(N_ "Enable hyperlinks in reports.")
#t))
; FIXME: put this in a more sensible tab like Text or Header/Footer
;; FIXME: put this in a more sensible tab like Text or Header/Footer
(opt-register
(gnc:make-text-option
(N_ "General")
@@ -229,7 +229,7 @@
(border (opt-val (N_ "Tables") (N_ "Table border width")))
(headcolumn 0))
; center the document without elements inheriting anything
;; center the document without elements inheriting anything
(gnc:html-document-add-object! ssdoc
(gnc:make-html-text "<center>"))
@@ -353,9 +353,9 @@
'attribute (list "border" 0)
'inheritable? #f)
; set the header column to be the 2nd when we have a logo
; do this so that when logo is not present, the document
; is perfectly centered
;; set the header column to be the 2nd when we have a logo
;; do this so that when logo is not present, the document
;; is perfectly centered
(if (and logopixmap (> (string-length logopixmap) 0))
(set! headcolumn 1))
@@ -385,7 +385,7 @@
(gnc:html-markup-h3 headline))))
)
; only setup an image if we specified one
;; only setup an image if we specified one
(if (and logopixmap (> (string-length logopixmap) 0))
(begin
(gnc:html-table-set-cell!
@@ -413,11 +413,12 @@
(gnc:html-document-objects doc))
(gnc:html-document-add-object! ssdoc t)
; I think this is the correct place to put the footer
;; I think this is the correct place to put the footer
(gnc:html-table-set-cell!
t 3 headcolumn
(gnc:make-html-text footer-text)))
(gnc:html-document-add-object! ssdoc (gnc:make-html-text "</center>")) ;;TODO: make this a div instead of <center> (deprecated)
(gnc:html-document-add-object! ssdoc (gnc:make-html-text "</center>"))
;;TODO: make this a div instead of <center> (deprecated)
ssdoc))
(gnc:define-html-style-sheet

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

@@ -96,7 +96,7 @@
(N_ "Enable Links") "h"
(N_ "Enable hyperlinks in reports.")
#t))
; FIXME: put this in a more sensible tab like Text or Header/Footer
;; FIXME: put this in a more sensible tab like Text or Header/Footer
(opt-register
(gnc:make-text-option
(N_ "General")
@@ -294,7 +294,7 @@
(border (opt-val (N_ "Tables") (N_ "Table border width")))
(headcolumn 0))
; center the document without elements inheriting anything
;; center the document without elements inheriting anything
(gnc:html-document-add-object! ssdoc
(gnc:make-html-text "<center>"))
@@ -418,9 +418,9 @@
'attribute (list "border" 0)
'inheritable? #f)
; set the header column to be the 2nd when we have a logo
; do this so that when logo is not present, the document
; is perfectly centered
;; set the header column to be the 2nd when we have a logo
;; do this so that when logo is not present, the document
;; is perfectly centered
(if (and logopixmap (> (string-length logopixmap) 0))
(set! headcolumn 1))
@@ -513,7 +513,7 @@
)
)
; only setup an image if we specified one
;; only setup an image if we specified one
(if (and logopixmap (> (string-length logopixmap) 0))
(begin
(gnc:html-table-set-cell!
@@ -541,7 +541,7 @@
(gnc:html-document-objects doc))
(gnc:html-document-add-object! ssdoc t)
; I think this is the correct place to put the footer
;; I think this is the correct place to put the footer
(gnc:html-table-set-cell!
t 3 headcolumn
;;(gnc:make-html-text additional-comments)