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

Speed improvement to align-postings.

Browse source 
In some cases align-posting was getting called twice
This commit is contained in:
Craig Earls 2013-03-25 21:19:17 -04:00
parent 48266d1107
commit bc7a885eb7
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ldg-post.el
View file

@ -158,10 +158,10 @@ position, whichever is closer."
(copy-marker end) (copy-marker end)
end))) end)))
(defun ledger-post-adjust (adjust-by) (defsubst ledger-post-adjust (adjust-by)
(if (> adjust-by 0) (if (> adjust-by 0)
(insert (make-string adjust-by ? )) (insert (make-string adjust-by ? ))
(if (looking-back " " (- (point) 3)) (if (looking-back " " (- (point) 1))
(delete-char adjust-by) (delete-char adjust-by)
(skip-chars-forward "^ \t") (skip-chars-forward "^ \t")
(delete-horizontal-space) (delete-horizontal-space)
@ -176,7 +176,10 @@ region align the posting on the current line."
(not (use-region-p))) (not (use-region-p)))
(set-mark (point))) (set-mark (point)))
(let* ((mark-first (< (mark) (point))) (let* ((has-align-hook (remove-hook
'after-change-functions
'ledger-post-maybe-align t))
(mark-first (< (mark) (point)))
(begin-region (if beg (begin-region (if beg
beg beg
(if mark-first (mark) (point)))) (if mark-first (mark) (point))))
@ -204,7 +207,9 @@ region align the posting on the current line."
(current-column)))) (current-column))))
(if (/= amt-adjust 0) (if (/= amt-adjust 0)
(ledger-post-adjust amt-adjust))))) (ledger-post-adjust amt-adjust)))))
(forward-line))))) (forward-line))
(if has-align-hook
(add-hook 'after-change-functions 'ledger-post-maybe-align t t)))))
(defun ledger-post-maybe-align (beg end len) (defun ledger-post-maybe-align (beg end len)
"Align amounts only if point is in a posting. "Align amounts only if point is in a posting.

2
lisp/ldg-state.el
View file

@ -163,7 +163,7 @@ dropped."
(delete-char 1)))) (delete-char 1))))
(setq new-status inserted)))) (setq new-status inserted))))
(if has-align-hook (if has-align-hook
(add-hook 'after-change-functions 'ledger-post-maybe-align t t)))) (add-hook 'after-change-functions 'ledger-post-maybe-align t t))))
;; This excursion cleans up the entry so that it displays ;; This excursion cleans up the entry so that it displays
;; minimally. This means that if all posts are cleared, remove ;; minimally. This means that if all posts are cleared, remove