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-utilities.scm: simplify

Browse Source
This commit is contained in:
Christopher Lam 2018-05-08 23:05:59 +08:00
parent ded88b01dd
commit 4c55141d96
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/report-system/html-utilities.scm
View File

@ -27,9 +27,7 @@
;; returns a list with n #f (empty cell) values
(define (gnc:html-make-empty-cell) #f)
(define (gnc:html-make-empty-cells n)
(if (> n 0)
(cons #f (gnc:html-make-empty-cells (- n 1)))
(list)))
(make-list n #f))
(define (gnc:register-guid type guid)
(gnc-build-url URL-TYPE-REGISTER (string-append type guid) ""))
@ -816,8 +814,8 @@
(gnc:html-markup-p
(gnc:html-markup-anchor
(gnc-build-url URL-TYPE-OPTIONS
(string-append "report-id=" (format #f "~a" report-id))
"")
(format #f "report-id=~a" report-id)
"")
(_ "Edit report options")))))
(define* (gnc:html-render-options-changed options #:optional plaintext?)