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

Remove clutter from generated html

Browse Source
This commit is contained in:
christopherlam 2017-08-03 18:33:36 +08:00 committed by Geert Janssens
parent 2bc106a7b7
commit 1559d26465
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/report/report-system/html-document.scm
View File

@ -168,7 +168,7 @@
(let ((title (gnc:html-document-title doc))) (let ((title (gnc:html-document-title doc)))
(if title (if title
(push (list "</title>" title "<title>\n")))) (push (list "</title>" title "<title>\n"))))
(push "</head>\n") (push "</head>")
;; this lovely little number just makes sure that <body> ;; this lovely little number just makes sure that <body>
;; attributes like bgcolor get included ;; attributes like bgcolor get included
@ -286,7 +286,7 @@
(attr (gnc:warn "non-string attribute" attr))))) (attr (gnc:warn "non-string attribute" attr)))))
(build-first-tag (build-first-tag
(lambda (tag) (lambda (tag)
(push "\n<") (push tag) (push "<") (push tag)
(if attr (hash-fold add-attribute #f attr)) (if attr (hash-fold add-attribute #f attr))
(if extra-attrib (for-each addextraatt extra-attrib)) (if extra-attrib (for-each addextraatt extra-attrib))
(if (not end-tag?) (if (not end-tag?)
@ -395,7 +395,7 @@
(lambda (obj doc) (lambda (obj doc)
(gnc:html-document-render-data doc obj)) (gnc:html-document-render-data doc obj))
;; if the object is #f, make it a placeholder ;; if the object is #f, make it a placeholder
(if obj obj "&nbsp;&nbsp;&nbsp;"))) (if obj obj " ")))
(cond (cond
((gnc:html-text? obj) ((gnc:html-text? obj)
(set! o (gnc:make-html-object-internal (set! o (gnc:make-html-object-internal