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

ui: acc: enter key also enters register, for now

Browse Source
This commit is contained in:
Simon Michael 2015-09-03 21:05:15 -07:00
parent 25a0a7c4dd
commit 8685a78795
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/AccountsScreen.hs
View File

@ -219,7 +219,7 @@ handleAccountsScreen st@AppState{aScreen=scr@AccountsScreen{asState=l}} e = do
Vty.EvKey (Vty.KChar '9') [] -> reload $ setDepth 9 st Vty.EvKey (Vty.KChar '9') [] -> reload $ setDepth 9 st
Vty.EvKey (Vty.KChar '0') [] -> reload $ setDepth 0 st Vty.EvKey (Vty.KChar '0') [] -> reload $ setDepth 0 st
Vty.EvKey (Vty.KLeft) [] -> continue $ popScreen st Vty.EvKey (Vty.KLeft) [] -> continue $ popScreen st
Vty.EvKey (Vty.KRight) [] -> do Vty.EvKey (k) [] | k `elem` [Vty.KRight, Vty.KEnter] -> do
let st' = screenEnter d RS.screen{rsAcct=acct} st let st' = screenEnter d RS.screen{rsAcct=acct} st
vScrollToBeginning $ viewportScroll "register" vScrollToBeginning $ viewportScroll "register"
continue st' continue st'