diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-mode.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index 8ae04934..79b6f0ec 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -145,6 +145,29 @@ Can indent, complete or align depending on context." (defvar ledger-mode-abbrev-table) +(defun ledger-remove-effective-date () + "Removes the effective date from a transaction or posting." + (interactive) + (let ((context (car (ledger-context-at-point)))) + (save-excursion + (save-restriction + (narrow-to-region (point-at-bol) (point-at-eol)) + (beginning-of-line) + (cond ((eq 'xact context) + (re-search-forward ledger-iso-date-regexp) + (when (= (char-after) ?=) + (let ((eq-pos (point))) + (delete-region + eq-pos + (re-search-forward ledger-iso-date-regexp))))) + ((eq 'acct-transaction context) + ;; Match "; [=date]" & delete string + (when (re-search-forward + (concat ledger-comment-regex + "\\[=" ledger-iso-date-regexp "\\]") + nil 'noerr) + (replace-match "")))))))) + (defun ledger-insert-effective-date () (interactive) (let ((context (car (ledger-context-at-point))) |