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-info] compact gnc:html-markup-style-info-set!

Browse Source
This commit is contained in:
Christopher Lam 2019-10-10 21:47:26 +08:00
parent e4bb516b94
commit 66e5bc8a58
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
gnucash/report/report-system/html-style-info.scm
View File

@ -21,6 +21,7 @@
;; Boston, MA 02110-1301, USA gnu@gnu.org ;; Boston, MA 02110-1301, USA gnu@gnu.org
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (ice-9 match))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; <html-markup-style-info> class ;; <html-markup-style-info> class
@ -68,28 +69,19 @@
(define (gnc:html-markup-style-info-set! style . rest) (define (gnc:html-markup-style-info-set! style . rest)
(let loop ((arglist rest)) (let loop ((arglist rest))
(if (and (list? arglist) (match arglist
(not (null? arglist)) (('attribute (key . val) . rest)
(not (null? (cdr arglist)))) (gnc:html-markup-style-info-set-attribute!
(let* ((field (car arglist)) style key (and (pair? val) (car val)))
(value (cadr arglist))) (loop rest))
(if (eq? field 'attribute)
(if (list? value) ((field value . rest)
(gnc:html-markup-style-info-set-attribute! (when (memq field '(font-size font-face font-color))
style (car value) (gnc:html-markup-style-info-set-closing-font-tag! style (and value #t)))
(if (null? (cdr value)) ((record-modifier <html-markup-style-info> field) style value)
#f (loop rest))
(cadr value))))
(begin (else style))))
(if (memq field '(font-size font-face font-color))
(gnc:html-markup-style-info-set-closing-font-tag!
style
(not (eq? value #f))))
(let ((modifier
(record-modifier <html-markup-style-info> field)))
(modifier style value))))
(loop (cddr arglist)))))
style)
(define gnc:html-markup-style-info-tag (define gnc:html-markup-style-info-tag
(record-accessor <html-markup-style-info> 'tag)) (record-accessor <html-markup-style-info> 'tag))