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

[cash-flow] convert subaccounts to srfi-1

Browse Source 
neater
This commit is contained in:
Christopher Lam 2019-03-07 20:02:55 +08:00
parent b795773e1c
commit 9dd139f3ed
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnucash/report/standard-reports/cash-flow.scm
View File

@ -157,7 +157,13 @@
(doc (gnc:make-html-document)) (doc (gnc:make-html-document))
(table (gnc:make-html-table)) (table (gnc:make-html-table))
(txt (gnc:make-html-text)))
;;add subaccounts if requested
(accounts (append accounts
(filter (lambda (acc) (not (member acc accounts)))
(if show-subaccts?
(gnc:acccounts-get-all-subaccounts accounts)
'())))))
(gnc:html-document-set-title! (gnc:html-document-set-title!
doc (string-append doc (string-append
@ -166,17 +172,6 @@
(format #f (_ "~a to ~a") (format #f (_ "~a to ~a")
(qof-print-date from-date-t64) (qof-print-date to-date-t64)))) (qof-print-date from-date-t64) (qof-print-date to-date-t64))))
;; add subaccounts if requested
(if show-subaccts?
(let ((sub-accounts (gnc:acccounts-get-all-subaccounts accounts)))
(for-each
(lambda (sub-account)
(if (not (member sub-account accounts))
(set! accounts (cons sub-account accounts))))
sub-accounts)))
(if (not (null? accounts)) (if (not (null? accounts))
(let* ((tree-depth (if (equal? display-depth 'all) (let* ((tree-depth (if (equal? display-depth 'all)