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