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

Tweak ledger-clean-up to attempt to find the exact you were at when you ordered the clean.

Browse source
This commit is contained in:
Craig Earls 2014-12-05 06:59:57 -07:00
parent bb38cda880
commit df88ee6189
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ledger-mode.el
View file

@ -226,12 +226,19 @@ With a prefix argument, remove the effective date."
(replace-match "\n\n"))) (replace-match "\n\n")))
(defun ledger-mode-clean-buffer () (defun ledger-mode-clean-buffer ()
"Indent, remove multiple linfe feeds and sort the buffer." "Indent, remove multiple line feeds and sort the buffer."
(interactive) (interactive)
(untabify (point-min) (point-max)) (ledger-navigate-beginning-of-xact)
(ledger-sort-buffer) (beginning-of-line)
(ledger-post-align-postings (point-min) (point-max)) (let ((target (buffer-substring (point) (progn
(ledger-mode-remove-extra-lines)) (end-of-line)
(point)))))
(untabify (point-min) (point-max))
(ledger-sort-buffer)
(ledger-post-align-postings (point-min) (point-max))
(ledger-mode-remove-extra-lines)
(goto-char (point-min))
(search-forward target)))
(defvar ledger-mode-map (defvar ledger-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))