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

[html-style-sheet] combine 2 similar functions

Browse Source
This commit is contained in:
Christopher Lam 2020-07-12 12:36:46 +08:00
parent ab7e213c30
commit d0f50b5228
1 changed files with 22 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
gnucash/report/html-style-sheet.scm
View File

@ -124,65 +124,31 @@
(apply gnc:make-html-data-style-info rest) (apply gnc:make-html-data-style-info rest)
(apply gnc:make-html-markup-style-info rest)))) (apply gnc:make-html-markup-style-info rest))))
(define (make-html-style-sheet-internal template-name style-sheet-name options)
(define template (gnc:html-style-sheet-template-find template-name))
(define fallback-styles
(list (cons "<string>" gnc:default-html-string-renderer)
(cons "<gnc-numeric>" gnc:default-html-gnc-numeric-renderer)
(cons "<number>" gnc:default-html-number-renderer)
(cons "<gnc-monetary>" gnc:default-html-gnc-monetary-renderer)))
(and template
(let ((ss (gnc:make-html-style-sheet-internal
style-sheet-name template-name
(or options
((gnc:html-style-sheet-template-options-generator template)))
(gnc:html-style-sheet-template-renderer template)
(gnc:make-html-style-table))))
(for-each (lambda (pair)
(gnc:html-style-sheet-set-style! ss (car pair) (cdr pair) #f))
fallback-styles)
(hash-set! *gnc:_style-sheets_* style-sheet-name ss)
ss)))
(define (gnc:make-html-style-sheet template-name style-sheet-name) (define (gnc:make-html-style-sheet template-name style-sheet-name)
(let* ((template (gnc:html-style-sheet-template-find template-name))) (make-html-style-sheet-internal template-name style-sheet-name #f))
(if template
(let ((rv (gnc:make-html-style-sheet-internal
style-sheet-name template-name
((gnc:html-style-sheet-template-options-generator template))
(gnc:html-style-sheet-template-renderer template)
(gnc:make-html-style-table))))
;; set up the fallback data styles for every rendered document
(gnc:html-style-sheet-set-style!
rv "<string>"
gnc:default-html-string-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<gnc-numeric>"
gnc:default-html-gnc-numeric-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<number>"
gnc:default-html-number-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<gnc-monetary>"
gnc:default-html-gnc-monetary-renderer #f)
;; store it in the style sheet hash
(hash-set! *gnc:_style-sheets_* style-sheet-name rv)
rv)
#f)))
(define (gnc:restore-html-style-sheet style-sheet-name template-name options) (define (gnc:restore-html-style-sheet style-sheet-name template-name options)
(let* ((template (gnc:html-style-sheet-template-find template-name))) (make-html-style-sheet-internal template-name style-sheet-name options))
(if template
(let ((rv (gnc:make-html-style-sheet-internal
style-sheet-name template-name
options
(gnc:html-style-sheet-template-renderer template)
(gnc:make-html-style-table))))
;; set up the fallback data styles for every rendered document
(gnc:html-style-sheet-set-style!
rv "<string>"
gnc:default-html-string-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<gnc-numeric>"
gnc:default-html-gnc-numeric-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<number>"
gnc:default-html-number-renderer #f)
(gnc:html-style-sheet-set-style!
rv "<gnc-monetary>"
gnc:default-html-gnc-monetary-renderer #f)
;; store it in the style sheet hash
(hash-set! *gnc:_style-sheets_* style-sheet-name rv)
rv)
#f)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;