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

Code cleanup of align postings

Browse source
This commit is contained in:
Craig Earls 2013-04-06 07:34:27 -07:00
parent 5165b19d07
commit f80fb99039
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ldg-post.el
View file

@ -160,7 +160,7 @@ region align the posting on the current line."
(end-region (if end (end-region (if end
end end
(if mark-first (point) (mark)))) (if mark-first (point) (mark))))
acct-start-column amt-width acct-adjust acct-end-column acct-start-column acct-end-column acct-adjust amt-width
(lines-left 1)) (lines-left 1))
;; Condition point and mark to the beginning and end of lines ;; Condition point and mark to the beginning and end of lines
(goto-char end-region) (goto-char end-region)
@ -179,22 +179,20 @@ region align the posting on the current line."
(goto-char (match-end 2)) (goto-char (match-end 2))
(current-column))) (current-column)))
(when (/= (setq acct-adjust (- ledger-post-account-alignment-column acct-start-column)) 0) (when (/= (setq acct-adjust (- ledger-post-account-alignment-column acct-start-column)) 0)
(setq acct-end-column (+ acct-end-column acct-adjust)) (setq acct-end-column (+ acct-end-column acct-adjust)) ;;adjust the account ending column
(if (> acct-adjust 0) (if (> acct-adjust 0)
(insert (make-string acct-adjust ? )) (insert (make-string acct-adjust ? ))
(delete-char acct-adjust))) (delete-char acct-adjust)))
(when (setq amt-width (ledger-next-amount (line-end-position))) (when (setq amt-width (ledger-next-amount (line-end-position)))
(let ((amt-adjust (- (if (> (- ledger-post-amount-alignment-column amt-width) (if (/= 0 (setq amt-adjust (- (if (> (- ledger-post-amount-alignment-column amt-width)
(+ 2 acct-end-column)) (+ 2 acct-end-column))
ledger-post-amount-alignment-column ledger-post-amount-alignment-column ;;we have room
(+ acct-end-column (+ acct-end-column 2 amt-width))
2 amt-width))
amt-width amt-width
(current-column)))) (current-column))))
(if (/= amt-adjust 0)
(if (> amt-adjust 0) (if (> amt-adjust 0)
(insert (make-string amt-adjust ? )) (insert (make-string amt-adjust ? ))
(delete-char amt-adjust)))))) (delete-char amt-adjust)))))
(forward-line) (forward-line)
(setq lines-left (not (eobp)))) (setq lines-left (not (eobp))))
(setq inhibit-modification-hooks nil)))) (setq inhibit-modification-hooks nil))))