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-mode.el | |
| parent | 7dd82f8bacf8dfb8db42a462452c114209a72c9c (diff) | |
| download | ledger-9f694169a87d74f204967b68f3822685f5450bad.tar.gz ledger-9f694169a87d74f204967b68f3822685f5450bad.tar.bz2 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-mode.el')
| -rw-r--r-- | lisp/ledger-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index b1df4a6b..28856bd4 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -179,9 +179,11 @@ With a prefix argument, remove the effective date. " (if (and (listp arg) (= 4 (prefix-numeric-value arg))) (ledger-remove-effective-date) - (let ((context (car (ledger-context-at-point))) - (date-string (format-time-string - (cdr (assoc "date-format" ledger-environment-alist))))) + (let* ((context (car (ledger-context-at-point))) + (date-format (or + (cdr (assoc "date-format" ledger-environment-alist)) + ledger-default-date-format)) + (date-string (format-time-string date-format))) (save-restriction (narrow-to-region (point-at-bol) (point-at-eol)) (cond |