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-options] fix whitespace

Browse Source
This commit is contained in:
Christopher Lam 2019-07-12 21:08:15 +08:00
parent 560b313f85
commit 6c4ae89012
1 changed files with 35 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
libgnucash/app-utils/business-options.scm
View File

@ -351,8 +351,8 @@
section name sort-tag 'owner documentation-string getter section name sort-tag 'owner documentation-string getter
(lambda (owner) (lambda (owner)
(if (null? owner) (set! owner (default-getter))) (if (null? owner) (set! owner (default-getter)))
(set! owner (convert-to-owner owner)) (set! owner (convert-to-owner owner))
(let* ((result (validator owner)) (let* ((result (validator owner))
(valid (car result)) (valid (car result))
(value (cadr result))) (value (cadr result)))
(if valid (if valid
@ -456,13 +456,22 @@
sort-tag sort-tag
documentation-string documentation-string
default-value) default-value)
(let ((option (gnc:make-number-range-option section name sort-tag documentation-string default-value 0 999999999 0 1))) (let ((option (gnc:make-number-range-option
(gnc:set-option-scm->kvp option (lambda (b p) (qof-book-set-option b (inexact->exact ((gnc:option-getter option))) (list "counters" key)))) section name sort-tag documentation-string
(gnc:set-option-kvp->scm option (lambda (b p) default-value 0 999999999 0 1)))
(let ((v (qof-book-get-option b (list "counters" key)))) (gnc:set-option-scm->kvp
(if (and v (integer? v)) option
((gnc:option-setter option) v))))) (lambda (b p)
option)) (qof-book-set-option
b (inexact->exact ((gnc:option-getter option)))
(list "counters" key))))
(gnc:set-option-kvp->scm
option
(lambda (b p)
(let ((v (qof-book-get-option b (list "counters" key))))
(if (and v (integer? v))
((gnc:option-setter option) v)))))
option))
;; This defines an option to set a counter format, which has the same ;; This defines an option to set a counter format, which has the same
;; exception as gnc:make-counter-option above. ;; exception as gnc:make-counter-option above.
@ -476,19 +485,23 @@
sort-tag sort-tag
documentation-string documentation-string
default-value) default-value)
(let ((option (gnc:make-string-option section name sort-tag documentation-string #f))) (let ((option (gnc:make-string-option
(gnc:option-set-value option default-value) section name sort-tag documentation-string #f)))
(gnc:set-option-scm->kvp option (gnc:option-set-value option default-value)
(lambda (b p) (gnc:set-option-scm->kvp
(let ((value ((gnc:option-getter option))) option
(path (string-concatenate (list "counter_formats/" key)))) (lambda (b p)
(qof-book-set-string-option b path value)))) (let ((value ((gnc:option-getter option)))
(gnc:set-option-kvp->scm option (lambda (b p) (path (string-concatenate (list "counter_formats/" key))))
(let* ((path (string-concatenate (list "counter_formats/" key))) (qof-book-set-string-option b path value))))
(v (qof-book-get-string-option b path))) (gnc:set-option-kvp->scm
(if (and v (string? v)) option
((gnc:option-setter option) v))))) (lambda (b p)
option)) (let* ((path (string-concatenate (list "counter_formats/" key)))
(v (qof-book-get-string-option b path)))
(if (and v (string? v))
((gnc:option-setter option) v)))))
option))
(export gnc:make-invoice-option) (export gnc:make-invoice-option)
(export gnc:make-customer-option) (export gnc:make-customer-option)