IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-29 20:24:25 -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

4
src/report/report-system/html-table.scm
View File

@ -702,7 +702,7 @@
#f) #f)
#f (gnc:html-table-col-styles table)) #f (gnc:html-table-col-styles table))
(push (gnc:html-document-markup-start doc "tbody" #t)) (push (gnc:html-document-markup-start doc "tbody" #t))
;; now iterate over the rows ;; now iterate over the rows
(let ((rownum 0) (colnum 0)) (let ((rownum 0) (colnum 0))
(for-each (for-each
@ -752,7 +752,7 @@
(set! colnum 0) (set! colnum 0)
(set! rownum (+ 1 rownum)))) (set! rownum (+ 1 rownum))))
(reverse (gnc:html-table-data table)))) (reverse (gnc:html-table-data table))))
(push (gnc:html-document-markup-end doc "tbody")) (push (gnc:html-document-markup-end doc "tbody"))
;; write the table end tag and pop the table style ;; write the table end tag and pop the table style
(push (gnc:html-document-markup-end doc "table")) (push (gnc:html-document-markup-end doc "table"))