From 0630c214f024b46f87fd4897c0fa8dc11860e11c Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 8 Dec 2020 22:45:02 +0800 Subject: [PATCH] [options.scm] move gnc:options-fancy-date to business-options.scm it needs gnc:fancy-date-info which is defined in business-options --- libgnucash/app-utils/business-options.scm | 6 ++++++ libgnucash/app-utils/options.scm | 6 ------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/libgnucash/app-utils/business-options.scm b/libgnucash/app-utils/business-options.scm index 11ad03f426..792ec8c350 100644 --- a/libgnucash/app-utils/business-options.scm +++ b/libgnucash/app-utils/business-options.scm @@ -27,6 +27,12 @@ (use-modules (gnucash engine)) (use-modules (gnucash utilities)) +(define (gnc:options-fancy-date book) + (let ((date-format (gnc:fancy-date-info book gnc:*fancy-date-format*))) + (if (boolean? date-format) ;; date-format does not exist + (qof-date-format-get-string (qof-date-format-get)) + date-format))) + (define (gnc:make-invoice-option section name diff --git a/libgnucash/app-utils/options.scm b/libgnucash/app-utils/options.scm index d9a0b73d0c..01b621537b 100644 --- a/libgnucash/app-utils/options.scm +++ b/libgnucash/app-utils/options.scm @@ -1944,12 +1944,6 @@ the option '~a'.")) (define (gnc:generate-restore-forms options options-string) ((options 'generate-restore-forms) options-string)) -(define (gnc:options-fancy-date book) - (let ((date-format (gnc:fancy-date-info book gnc:*fancy-date-format*))) - (if (boolean? date-format) ;; date-format does not exist - (qof-date-format-get-string (qof-date-format-get)) - date-format))) - (define (gnc:options-scm->kvp options book clear-option?) (if clear-option? (qof-book-options-delete book '()))