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

[category-barchart] remove monetary->double

Browse Source 
doubles are not necessary for charts.
This commit is contained in:
Christopher Lam 2018-10-19 18:31:30 +08:00
parent 4091ea8ea9
commit 9a179f8293
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/standard-reports/category-barchart.scm
View File

@ -367,10 +367,6 @@ developing over time"))
(car (coll 'format gnc:make-gnc-monetary #f))
(gnc:warn "monetary+ expects 1 currency " (gnc:strify monetaries)))))
;; Extract value of gnc-monetary and return it as double
(define (monetary->double monetary)
(gnc:gnc-monetary-amount monetary))
;; copy of gnc:not-all-zeros using gnc-monetary
(define (not-all-zeros data)
(define (myor list)
@ -618,7 +614,7 @@ developing over time"))
(gnc:html-barchart-set-data!
chart
(apply zip (map (lambda (mlist)
(map monetary->double mlist))
(map gnc:gnc-monetary-amount mlist))
(map cadr all-data)))))
;; Labels and colors
@ -639,7 +635,7 @@ developing over time"))
(gnc:html-linechart-set-data!
chart
(apply zip (map (lambda (mlist)
(map monetary->double mlist))
(map gnc:gnc-monetary-amount mlist))
(map cadr all-data)))))
;; Labels and colors