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

Merge pull request #363 from lowdef/ledger-mode-bug-1089-auto-refresh-sticky-cursor

Browse source 
ledger-mode bug 1089 introduce sticky cursor for report auto refresh

Thanks.
This commit is contained in:
Craig Earls 2015-01-04 19:58:29 -07:00
commit 36ab11ae82
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ledger-report.el
View file

@ -71,6 +71,11 @@ text that should replace the format specifier."
:type 'boolean :type 'boolean
:group 'ledger-report) :group 'ledger-report)
(defcustom ledger-report-auto-refresh-sticky-cursor nil
"If t then try to place cursor at same relative position as it was before auto-refresh."
:type 'boolean
:group 'ledger-report)
(defvar ledger-report-buffer-name "*Ledger Report*") (defvar ledger-report-buffer-name "*Ledger Report*")
(defvar ledger-report-name nil) (defvar ledger-report-name nil)
@ -83,6 +88,7 @@ text that should replace the format specifier."
(defvar ledger-report-mode-abbrev-table) (defvar ledger-report-mode-abbrev-table)
(defvar ledger-report-is-reversed nil) (defvar ledger-report-is-reversed nil)
(defvar ledger-report-cursor-line-number nil)
(defun ledger-report-reverse-report () (defun ledger-report-reverse-report ()
"Reverse the order of the report." "Reverse the order of the report."
@ -391,10 +397,12 @@ Optional EDIT the command."
(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)
(setq buffer-read-only nil) (setq buffer-read-only nil)
(setq ledger-report-cursor-line-number (line-number-at-pos))
(erase-buffer) (erase-buffer)
(ledger-do-report ledger-report-cmd) (ledger-do-report ledger-report-cmd)
(setq buffer-read-only nil) (setq buffer-read-only nil)
(if ledger-report-is-reversed (ledger-report-reverse-lines)) (if ledger-report-is-reversed (ledger-report-reverse-lines))
(if ledger-report-auto-refresh-sticky-cursor (forward-line (- ledger-report-cursor-line-number 5)))
(pop-to-buffer cur-buf))))) (pop-to-buffer cur-buf)))))
(defun ledger-report-quit () (defun ledger-report-quit ()