diff options
| author | Moritz Ulrich <moritz@tarn-vedra.de> | 2013-12-30 01:41:31 +0100 |
|---|---|---|
| committer | Moritz Ulrich <moritz@tarn-vedra.de> | 2013-12-30 01:41:31 +0100 |
| commit | 9f694169a87d74f204967b68f3822685f5450bad (patch) | |
| tree | 2c0f2eba90fd62958134103b1cf4c038329085ce /lisp/ledger-schedule.el | |
| parent | 7dd82f8bacf8dfb8db42a462452c114209a72c9c (diff) | |
| download | fork-ledger-9f694169a87d74f204967b68f3822685f5450bad.tar.gz fork-ledger-9f694169a87d74f204967b68f3822685f5450bad.tar.bz2 fork-ledger-9f694169a87d74f204967b68f3822685f5450bad.zip | |
ledger-mode: Introduce `ledger-default-date-format'.
Some elisp functions depend on a date-format supplied in ~/.ledgerrc. Change these by introducing a default ("%Y/%m/%d").
Signed-off-by: Moritz Ulrich <moritz@tarn-vedra.de>
Diffstat (limited to 'lisp/ledger-schedule.el')
| -rw-r--r-- | lisp/ledger-schedule.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index ce77f26b..c9ee4392 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/ledger-schedule.el @@ -30,6 +30,8 @@ ;; function slot of the symbol VARNAME. Then use VARNAME as the ;; function without have to use funcall. +(require 'ledger-init) + (defgroup ledger-schedule nil "Support for automatically recommendation transactions." :group 'ledger) @@ -288,7 +290,8 @@ returns true if the date meets the requirements" "Format CANDIDATE-ITEMS for display." (let ((candidates (ledger-schedule-list-upcoming-xacts candidate-items early horizon)) (schedule-buf (get-buffer-create ledger-schedule-buffer-name)) - (date-format (cdr (assoc "date-format" ledger-environment-alist)))) + (date-format (or (cdr (assoc "date-format" ledger-environment-alist)) + ledger-default-date-format))) (with-current-buffer schedule-buf (erase-buffer) (dolist (candidate candidates) |