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

Use (interactive "r") in ledger-post-align-postings

Browse source 
Use standard method (interactive "r") to get the current active region
for use in ledger-post-align-postings.
This commit is contained in:
Erik Hetzner 2015-05-30 10:27:43 -07:00
parent a78e7358ec
commit 41c8b3ad3e
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ledger-post.el
View file

@ -100,23 +100,15 @@ at beginning of account"
(let ((bounds (ledger-navigate-find-xact-extents pos))) (let ((bounds (ledger-navigate-find-xact-extents pos)))
(ledger-post-align-postings (car bounds) (cadr bounds)))) (ledger-post-align-postings (car bounds) (cadr bounds))))
(defun ledger-post-align-postings (&optional beg end) (defun ledger-post-align-postings (beg end)
"Align all accounts and amounts between BEG and END, or the current line." "Align all accounts and amounts between BEG and END, or the current region, or, if no region, the current line."
(interactive) (interactive "r")
(save-excursion (save-excursion
(if (or (not (mark))
(not (use-region-p)))
(set-mark (point)))
(let ((inhibit-modification-hooks t) (let ((inhibit-modification-hooks t)
(mark-first (< (mark) (point)))
acct-start-column acct-end-column acct-adjust amt-width amt-adjust acct-start-column acct-end-column acct-adjust amt-width amt-adjust
(lines-left 1)) (lines-left 1))
(unless beg (setq beg (if mark-first (mark) (point))))
(unless end (setq end (if mark-first (mark) (point))))
;; Extend region to whole lines ;; Extend region to whole lines
(let ((start-marker (set-marker (make-marker) (save-excursion (let ((start-marker (set-marker (make-marker) (save-excursion
(goto-char beg) (goto-char beg)