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

[standard-reports] compact functions

Browse Source
This commit is contained in:
Christopher Lam 2019-03-02 14:47:16 +08:00
parent 613adfe824
commit a6296314a0
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnucash/report/standard-reports/standard-reports.scm
View File

@ -60,9 +60,7 @@
(record-modifier acct-type-info 'non-split)) (record-modifier acct-type-info 'non-split))
(define (gnc:register-report-hook acct-type split? create-fcn) (define (gnc:register-report-hook acct-type split? create-fcn)
(let ((type-info (hash-ref gnc:*register-report-hash* acct-type))) (let ((type-info (hash-ref gnc:*register-report-hash* acct-type (make-acct-type))))
(if (not type-info)
(set! type-info (make-acct-type)))
(if split? (if split?
(set-split type-info create-fcn) (set-split type-info create-fcn)
(set-non-split type-info create-fcn)) (set-non-split type-info create-fcn))
@ -74,11 +72,10 @@
(gnc:debug "ref: " type-info) (gnc:debug "ref: " type-info)
(gnc:debug "hash: " gnc:*register-report-hash*) (gnc:debug "hash: " gnc:*register-report-hash*)
(gnc:debug "split: " split) (gnc:debug "split: " split)
(if type-info (and type-info
(if (and split (not (null? split))) (if (and split (not (null? split)))
(begin (gnc:debug "get-split...") (get-split type-info)) (begin (gnc:debug "get-split...") (get-split type-info))
(begin (gnc:debug "get-non-split...") (get-non-split type-info))) (begin (gnc:debug "get-non-split...") (get-non-split type-info))))))
#f)))
;; Returns a list of files in a directory ;; Returns a list of files in a directory
@ -142,7 +139,7 @@
(lambda (x) (lambda (x)
(module-use! (module-use!
(current-module) (current-module)
(resolve-interface (append '(gnucash report standard-reports) (list x))))) (resolve-interface `(gnucash report standard-reports ,x))))
(get-report-list)) (get-report-list))
(use-modules (gnucash gnc-module)) (use-modules (gnucash gnc-module))