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

[business-prefs] tidy counter definitions

Browse Source 
(for-each) is more appropriate here because the (map) output is
unused...
This commit is contained in:
Christopher Lam 2019-04-04 06:39:09 +08:00
parent 505514e1d7
commit 3923dfa19a
1 changed files with 21 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
libgnucash/app-utils/business-prefs.scm
View File

@ -158,35 +158,27 @@
"a" (N_ "Budget to be used when none has been otherwise specified."))) "a" (N_ "Budget to be used when none has been otherwise specified.")))
;; Counters Tab ;; Counters Tab
(map (lambda (vals) (for-each
(let* ( (lambda (vals)
; Unpack the list of strings for this counter type ;; Unpack the list of strings for this counter type
(key (car vals)) (let* ((key (car vals))
(sort-string key) (format-label (cadr vals))
(format-label (cadr vals)) (number-label (caddr vals))
(number-label (caddr vals)) (format-description (cadddr vals))
(format-description (cadddr vals)) (number-description (cadddr (cdr vals))))
(number-description (cadddr (cdr vals))) ;; For each counter-type we create an option for the last used
) ;; number and the format string to use.
(begin (reg-option
; For each counter-type we create an option for (gnc:make-counter-option
; the last used number and the format string to gnc:*option-section-counters* number-label key
; use. (string-append key "a") number-description 0))
(reg-option
(gnc:make-counter-option (reg-option
gnc:*option-section-counters* number-label key (gnc:make-counter-format-option
(string-append sort-string "a") number-description 0)) gnc:*option-section-counters* format-label key
(reg-option (string-append key "b") format-description ""))))
(gnc:make-counter-format-option ;; Make counter and format option for each defined counter
gnc:*option-section-counters* format-label key counter-types))
(string-append sort-string "b") format-description ""))
)
)
)
;; Make counter and format option for each defined counter
counter-types
)
)
(gnc-register-kvp-option-generator QOF-ID-BOOK-SCM book-options-generator) (gnc-register-kvp-option-generator QOF-ID-BOOK-SCM book-options-generator)