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.")))
;; Counters Tab
(map (lambda (vals)
(let* (
; Unpack the list of strings for this counter type
(key (car vals))
(sort-string key)
(format-label (cadr vals))
(number-label (caddr vals))
(format-description (cadddr vals))
(number-description (cadddr (cdr vals)))
)
(begin
; For each counter-type we create an option for
; the last used number and the format string to
; use.
(reg-option
(gnc:make-counter-option
gnc:*option-section-counters* number-label key
(string-append sort-string "a") number-description 0))
(reg-option
(gnc:make-counter-format-option
gnc:*option-section-counters* format-label key
(string-append sort-string "b") format-description ""))
)
)
)
;; Make counter and format option for each defined counter
counter-types
)
)
(for-each
(lambda (vals)
;; Unpack the list of strings for this counter type
(let* ((key (car vals))
(format-label (cadr vals))
(number-label (caddr vals))
(format-description (cadddr 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.
(reg-option
(gnc:make-counter-option
gnc:*option-section-counters* number-label key
(string-append key "a") number-description 0))
(reg-option
(gnc:make-counter-format-option
gnc:*option-section-counters* format-label key
(string-append key "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)