simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

drop 4th ui screen for consistency

Browse Source
This commit is contained in:
Simon Michael 2009-04-02 21:01:57 +00:00
parent f5671878fc
commit 410b759086
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
UICommand.hs
View File

@ -80,7 +80,7 @@ go a@AppState{av=av,aw=aw,ah=ah,abuf=buf,amsg=amsg,aopts=opts,aargs=args,aledger
EvKey (KASCII 'b') [] -> go $ resetTrailAndEnter BalanceScreen a
EvKey (KASCII 'r') [] -> go $ resetTrailAndEnter RegisterScreen a
EvKey (KASCII 'p') [] -> go $ resetTrailAndEnter PrintScreen a
EvKey (KASCII 'l') [] -> go $ resetTrailAndEnter LedgerScreen a
-- EvKey (KASCII 'l') [] -> go $ resetTrailAndEnter LedgerScreen a
EvKey KRight [] -> go $ drilldown a
EvKey KEnter [] -> go $ drilldown a
EvKey KLeft [] -> go $ backout a
@ -234,8 +234,9 @@ drilldown :: AppState -> AppState
drilldown a
| screen a == BalanceScreen = enter RegisterScreen a{aargs=[currentAccountName a]}
| screen a == RegisterScreen = scrollToEntry e $ enter PrintScreen a
| screen a == PrintScreen = enter LedgerScreen a
| screen a == LedgerScreen = a
| screen a == PrintScreen = a
-- | screen a == PrintScreen = enter LedgerScreen a
-- | screen a == LedgerScreen = a
where e = currentEntry a
-- | Get the account name currently highlighted by the cursor on the