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.scm: schemify

Browse Source
This commit is contained in:
Christopher Lam
2018-05-08 22:41:12 +08:00
parent d4cb87fe3d
commit 1df7fb4048
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gnucash/report/report-system/html-text.scm
View File

@@ -190,7 +190,7 @@
(define (gnc:html-markup-anchor href . rest)
(apply gnc:html-markup/attr
"a"
(string-append "href=\"" href "\"")
(format #f "href=~s" href)
rest))
(define (gnc:html-markup-img src . rest)
@@ -198,15 +198,11 @@
"img"
(with-output-to-string
(lambda ()
(display "src=\"") (display src) (display"\"")
(display " ")
(for-each
(lambda (kvp)
(display (car kvp))
(display "=\"")
(display (cadr kvp))
(display "\" "))
rest)))))
(format #f "~a=~s " (car kvp) (cadr kvp)))
(cons (list 'src src)
rest))))))
(define (gnc:html-text-render p doc)
(let* ((retval '())