sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix next-account so that status markers can be manually entered into a buffer when auto alignment is on.

Browse source
This commit is contained in:
Craig Earls 2013-04-04 12:34:16 -07:00
parent 063b027fbb
commit 2547894586
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ldg-post.el
View file

@ -136,13 +136,17 @@ at beginning of account"
(if (> end (point)) (if (> end (point))
(when (re-search-forward ledger-account-any-status-regex (1+ end) t) (when (re-search-forward ledger-account-any-status-regex (1+ end) t)
;; the 1+ is to make sure we can catch the newline ;; the 1+ is to make sure we can catch the newline
(goto-char (match-beginning 2)) (if (match-beginning 1)
(goto-char (match-beginning 1))
(goto-char (match-beginning 2)))
(current-column)))) (current-column))))
(defun ledger-post-align-postings (&optional beg end) (defun ledger-post-align-postings (&optional beg end)
"Align all accounts and amounts within region, if there is no "Align all accounts and amounts within region, if there is no
region align the posting on the current line." region align the posting on the current line."
(interactive) (interactive)
(assert (eq major-mode 'ledger-mode))
(save-excursion (save-excursion
(if (or (not (mark)) (if (or (not (mark))
(not (use-region-p))) (not (use-region-p)))
@ -245,7 +249,7 @@ BEG, END, and LEN control how far it can align."
(defun ledger-post-setup () (defun ledger-post-setup ()
"Configure `ledger-mode' to auto-align postings." "Configure `ledger-mode' to auto-align postings."
(add-hook 'after-change-functions 'ledger-post-maybe-align t t) (add-hook 'after-change-functions 'ledger-post-maybe-align t t)
(add-hook 'after-save-hook #'(lambda () (setq ledger-post-current-list nil)))) (add-hook 'after-save-hook #'(lambda () (setq ledger-post-current-list nil)) t t))
(defun ledger-post-read-account-with-prompt (prompt) (defun ledger-post-read-account-with-prompt (prompt)