slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

ui: register: keep scroll position more stable when toggling E

Browse Source
This commit is contained in:
Simon Michael 2016-06-03 16:05:56 -07:00
parent fa59fd27ee
commit ddf18060ab
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -83,7 +83,6 @@ initRegisterScreen d st@AppState{aopts=opts, ajournal=j, aScreen=s@RegisterScree
-- keep the selection on the previously selected transaction if possible, -- keep the selection on the previously selected transaction if possible,
-- (eg after toggling nonzero mode), otherwise select the last element. -- (eg after toggling nonzero mode), otherwise select the last element.
-- XXX the scroll position should be disrupted less
newl' = listMoveTo newselidx newl newl' = listMoveTo newselidx newl
where where
newselidx = case listSelectedElement oldl of newselidx = case listSelectedElement oldl of
@ -221,7 +220,13 @@ handleRegisterScreen st@AppState{
Right j' -> continue $ reload j' d st Right j' -> continue $ reload j' d st
Left err -> continue $ screenEnter d ES.screen{esState=err} st Left err -> continue $ screenEnter d ES.screen{esState=err} st
Vty.EvKey (Vty.KChar 'E') [] -> continue $ reload j d $ stToggleEmpty st Vty.EvKey (Vty.KChar 'E') [] -> do
-- encourage a more stable scroll position when toggling items.
-- We scroll to the beginning, then the viewport automatically
-- scrolls down just far enough to reveal the selection.
vScrollToBeginning $ viewportScroll "register"
continue $ reload j d $ stToggleEmpty st
Vty.EvKey (Vty.KChar 'C') [] -> continue $ reload j d $ stToggleCleared st Vty.EvKey (Vty.KChar 'C') [] -> continue $ reload j d $ stToggleCleared st
Vty.EvKey (Vty.KChar 'R') [] -> continue $ reload j d $ stToggleReal st Vty.EvKey (Vty.KChar 'R') [] -> continue $ reload j d $ stToggleReal st