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

[report-utilities] compact functions

Browse Source
This commit is contained in:
Christopher Lam 2020-09-19 19:36:25 +08:00
parent edaa0d7eea
commit a55d05f29d
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnucash/report/report-utilities.scm
View File

@ -873,23 +873,14 @@ query instead.")
;; Input: account-balances
;; Output: commodity-collector
(define (gnc:get-assoc-account-balances-total account-balances)
(let ((total (gnc:make-commodity-collector)))
(for-each
(lambda (account-balance)
(total 'merge (cadr account-balance) #f))
account-balances)
total))
(apply gnc:collector+ (map cadr account-balances)))
(define (gnc:multiline-to-html-text str)
;; simple function - splits string containing #\newline into
;; substrings, and convert to a gnc:make-html-text construct which
;; adds gnc:html-markup-br after each substring.
(let loop ((list-of-substrings (string-split str #\newline))
(result '()))
(if (null? list-of-substrings)
(apply gnc:make-html-text (if (null? result) '() (reverse (cdr result))))
(loop (cdr list-of-substrings)
(cons* (gnc:html-markup-br) (car list-of-substrings) result)))))
(define (interleave a b) (cons* a (gnc:html-markup-br) b))
(apply gnc:make-html-text (fold-right interleave '() (string-split str #\nl))))
;; ***************************************************************************
;; Business Functions