From 9dd139f3ed95de5df312c56cbd2979200fa829e6 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Thu, 7 Mar 2019 20:02:55 +0800 Subject: [PATCH] [cash-flow] convert subaccounts to srfi-1 neater --- gnucash/report/standard-reports/cash-flow.scm | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/gnucash/report/standard-reports/cash-flow.scm b/gnucash/report/standard-reports/cash-flow.scm index ecb31a3f89..7357e26b8e 100644 --- a/gnucash/report/standard-reports/cash-flow.scm +++ b/gnucash/report/standard-reports/cash-flow.scm @@ -157,7 +157,13 @@ (doc (gnc:make-html-document)) (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! doc (string-append @@ -166,17 +172,6 @@ (format #f (_ "~a to ~a") (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)) (let* ((tree-depth (if (equal? display-depth 'all)