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

ledger-redo added as after-save-hook

Browse source
This commit is contained in:
Craig Earls 2014-07-12 21:50:28 -07:00
parent fc2700daa9
commit 4606bb293d
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ledger-mode.el
View file

@ -337,6 +337,7 @@ With a prefix argument, remove the effective date. "
(set (make-local-variable 'pcomplete-command-completion-function) (set (make-local-variable 'pcomplete-command-completion-function)
'ledger-complete-at-point) 'ledger-complete-at-point)
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t)
(add-hook 'after-save-hook 'ledger-report-redo)
;(add-hook 'after-save-hook) ;(add-hook 'after-save-hook)
(add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t) (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t)

3
lisp/ledger-report.el
View file

@ -361,7 +361,8 @@ Optional EDIT the command."
"Redo the report in the current ledger report buffer." "Redo the report in the current ledger report buffer."
(interactive) (interactive)
(if (get-buffer ledger-report-buffer-name) (if (and (get-buffer ledger-buf)
(get-buffer ledger-report-buffer-name))
(progn (progn
(pop-to-buffer (get-buffer ledger-report-buffer-name)) (pop-to-buffer (get-buffer ledger-report-buffer-name))
(shrink-window-if-larger-than-buffer) (shrink-window-if-larger-than-buffer)