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-text] compact gnc:html-markup-img

Browse Source
This commit is contained in:
Christopher Lam 2020-11-03 11:19:16 +08:00
parent d867a9d50d
commit 54f614feed
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/html-text.scm
View File

@ -22,6 +22,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (srfi srfi-9)) (use-modules (srfi srfi-9))
(use-modules (ice-9 match))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; <html-text> class ;; <html-text> class
@ -184,15 +185,10 @@
rest)) rest))
(define (gnc:html-markup-img src . rest) (define (gnc:html-markup-img src . rest)
(gnc:html-markup/attr/no-end (let lp ((tags (cons (list 'src src) rest)) (acc '()))
"img" (match tags
(with-output-to-string (() (gnc:html-markup/attr/no-end "img" (string-concatenate-reverse acc)))
(lambda () (((attr val) . tail) (lp tail (cons (format #f "~a=~s " attr val) acc))))))
(for-each
(lambda (kvp)
(format #t "~a=~s " (car kvp) (cadr kvp)))
(cons (list 'src src)
rest))))))
(define (gnc:html-text-render p doc) (define (gnc:html-text-render p doc)
(let* ((retval '()) (let* ((retval '())