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

Fill comment paragraph with ledger-post-align-dwim

Browse source 
In addition to re-aligning postings, if the point is in a comment, just
fill that comment as regular plaintext.
This commit is contained in:
Matus Goljer 2015-09-21 20:45:51 +02:00
parent 5f2f8e50b3
commit 593a07364d
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ledger-post.el
View file

@ -147,11 +147,17 @@ at beginning of account"
(setq inhibit-modification-hooks nil))))
(defun ledger-post-align-dwim ()
"Align all the posting of the current xact the current region."
"Align all the posting of the current xact or the current region.
If the point is in a comment, fill the comment paragraph as
regular text."
(interactive)
(if (use-region-p)
(call-interactively 'ledger-post-align-postings)
(call-interactively 'ledger-post-align-xact)))
(cond
((nth 4 (syntax-ppss))
(call-interactively 'ledger-post-align-postings)
(fill-paragraph))
((use-region-p) (call-interactively 'ledger-post-align-postings))
(t (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."