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

[report] simplify (gnc:report-render-html)

Browse Source
This commit is contained in:
Christopher Lam 2019-02-05 23:19:26 +08:00
parent d49a51ca73
commit 5f436ae967
1 changed files with 13 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
gnucash/report/report-system/report.scm
View File

@ -758,30 +758,20 @@ not found.")))
(define (gnc:report-render-html report headers?)
(if (and (not (gnc:report-dirty? report))
(gnc:report-ctext report))
;; if there's clean cached text, return it
;;(begin
(gnc:report-ctext report)
;; )
;; otherwise, rerun the report
(let ((template (hash-ref *gnc:_report-templates_*
(gnc:report-type report)))
(doc #f))
(set! doc (if template
(let* ((renderer (gnc:report-template-renderer template))
(stylesheet (gnc:report-stylesheet report))
(doc (renderer report))
(html #f))
(if (string? doc)
(set! html doc)
(begin
(gnc:html-document-set-style-sheet! doc stylesheet)
(set! html (gnc:html-document-render doc headers?))))
(gnc:report-set-ctext! report html) ;; cache the html
(gnc:report-set-dirty?! report #f) ;; mark it clean
html)
#f))
doc))) ;; YUK! inner doc is html-doc object; outer doc is a string.
(let ((template (hash-ref *gnc:_report-templates_* (gnc:report-type report))))
(and template
(let* ((renderer (gnc:report-template-renderer template))
(stylesheet (gnc:report-stylesheet report))
(doc (renderer report))
(html (cond
((string? doc) doc)
(else
(gnc:html-document-set-style-sheet! doc stylesheet)
(gnc:html-document-render doc headers?)))))
(gnc:report-set-ctext! report html) ;; cache the html
(gnc:report-set-dirty?! report #f) ;; mark it clean
html)))))
;; looks up the report by id and renders it with gnc:report-render-html
;; marks the cursor busy during rendering; returns the html