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

enbale some of the preferences code

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1508 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-12-31 07:47:05 +00:00
parent b19bf7028d
commit a6fddef16a
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/scm/startup/prefs.scm
View File

@ -1,42 +1,42 @@
;;;; Preferences...
;; Preferences...
;; (define gnc:*double-entry-restriction*
;; (gnc:make-config-var
;; "Determines how the splits in a transaction will be balanced.
;; The following values have significance:
;;
;; #f anything goes
;;
;; 'force The sum of all splits in a transaction will be
;; forced to be zero, even if this requires the
;; creation of additional splits. Note that a split
;; whose value is zero (e.g. a stock price) can exist
;; by itself. Otherwise, all splits must come in at
;; least pairs.
;;
;; 'collect splits without parents will be forced into a
;; lost & found account. (Not implemented)"
;; (lambda (var value)
;; (cond
;; ((eq? value #f)
;; (_gnc_set_force_double_entry_ 0)
;; (list value))
;; ((eq? value 'force)
;; (_gnc_set_force_double_entry_ 1)
;; (list value))
;; ((eq? value 'collect)
;; (gnc:warn
;; "gnc:*double-entry-restriction* -- 'collect not supported yet. "
;; "Ignoring.")
;; #f)
;; (else
;; (gnc:warn
;; "gnc:*double-entry-restriction* -- " value " not supported. Ignoring.")
;; #f)))
;; eq?
;; #f))
(define gnc:*double-entry-restriction*
(gnc:make-config-var
"Determines how the splits in a transaction will be balanced.
The following values have significance:
#f anything goes
'force The sum of all splits in a transaction will be
forced to be zero, even if this requires the
creation of additional splits. Note that a split
whose value is zero (e.g. a stock price) can exist
by itself. Otherwise, all splits must come in at
least pairs.
'collect splits without parents will be forced into a
lost & found account. (Not implemented)"
(lambda (var value)
(cond
((eq? value #f)
(xaccConfigSetForceDoubleEntry 0)
(list value))
((eq? value 'force)
(xaccConfigSetForceDoubleEntry 1)
(list value))
((eq? value 'collect)
(gnc:warn
"gnc:*double-entry-restriction* -- 'collect not supported yet. "
"Ignoring.")
#f)
(else
(gnc:warn
"gnc:*double-entry-restriction* -- " value " not supported. Ignoring.")
#f)))
eq?
#f))
(define gnc:*arg-show-usage*
(gnc:make-config-var