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

Merge pull request #431 from Fuco1/add-dwim-align

Browse source 
Add dwim align  

Thank you.
This commit is contained in:
Craig Earls 2015-09-21 07:41:33 -07:00
commit 5f2f8e50b3
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ledger-mode.el
View file

@ -285,6 +285,7 @@ With a prefix argument, remove the effective date."
(define-key map [(meta ?p)] 'ledger-navigate-prev-xact-or-directive)
(define-key map [(meta ?n)] 'ledger-navigate-next-xact-or-directive)
(define-key map [(meta ?q)] 'ledger-post-align-dwim)
map)
"Keymap for `ledger-mode'.")

7
lisp/ledger-post.el
View file

@ -146,6 +146,13 @@ at beginning of account"
(setq lines-left (not (eobp)))))
(setq inhibit-modification-hooks nil))))
(defun ledger-post-align-dwim ()
"Align all the posting of the current xact the current region."
(interactive)
(if (use-region-p)
(call-interactively 'ledger-post-align-postings)
(call-interactively 'ledger-post-align-xact)))
(defun ledger-post-edit-amount ()
"Call 'calc-mode' and push the amount in the posting to the top of stack."
(interactive)