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

ui: reg: select latest txn by default again

Browse Source
This commit is contained in:
Simon Michael 2016-06-18 07:31:09 -07:00
parent 52814b5cd9
commit c26178acdd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,7 @@ rsInit d reset ui@UIState{aopts=opts, ajournal=j, aScreen=s@RegisterScreen{..}}
newitems' = listMoveTo newselidx newitems newitems' = listMoveTo newselidx newitems
where where
newselidx = case (reset, listSelectedElement rsList) of newselidx = case (reset, listSelectedElement rsList) of
(True, _) -> 0 (True, _) -> endidx
(_, Nothing) -> endidx (_, Nothing) -> endidx
(_, Just (_,RegisterScreenItem{rsItemTransaction=Transaction{tindex=ti}})) (_, Just (_,RegisterScreenItem{rsItemTransaction=Transaction{tindex=ti}}))
-> fromMaybe endidx $ findIndex ((==ti) . tindex . rsItemTransaction) displayitems -> fromMaybe endidx $ findIndex ((==ti) . tindex . rsItemTransaction) displayitems