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

[piechart|scatter] define gnc:not-all-zeros locally

Browse Source 
which ensures that html-piechart and html-scatter converted into
modules do not need to import this function from elsewhere.
This commit is contained in:
Christopher Lam 2020-12-04 20:52:08 +08:00
parent da32fb0dae
commit 9e23e41fe6
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/html-piechart.scm
View File

@ -151,6 +151,14 @@
(define gnc:html-piechart-set-button-3-legend-urls! (define gnc:html-piechart-set-button-3-legend-urls!
(record-modifier <html-piechart> 'button-3-legend-urls)) (record-modifier <html-piechart> 'button-3-legend-urls))
(define (gnc:not-all-zeros data)
(define (myor list)
(if (null? list) #f
(or (car list) (myor (cdr list)))))
(cond ((number? data) (not (= 0 data)))
((list? data) (myor (map gnc:not-all-zeros data)))
(else #f)))
(define (gnc:html-piechart-render piechart doc) (define (gnc:html-piechart-render piechart doc)
(let* ((chart (gnc:make-html-chart)) (let* ((chart (gnc:make-html-chart))
(title (gnc:html-piechart-title piechart)) (title (gnc:html-piechart-title piechart))

8
gnucash/report/html-scatter.scm
View File

@ -132,6 +132,14 @@
scatter scatter
(cons newpoint (gnc:html-scatter-data scatter))))) (cons newpoint (gnc:html-scatter-data scatter)))))
(define (gnc:not-all-zeros data)
(define (myor list)
(if (null? list) #f
(or (car list) (myor (cdr list)))))
(cond ((number? data) (not (= 0 data)))
((list? data) (myor (map gnc:not-all-zeros data)))
(else #f)))
;; The Renderer ;; The Renderer
(define (gnc:html-scatter-render scatter doc) (define (gnc:html-scatter-render scatter doc)
(let* ((chart (gnc:make-html-chart)) (let* ((chart (gnc:make-html-chart))