slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 'b') [] -> go $ resetTrailAndEnter BalanceScreen a
EvKey (KASCII 'r') [] -> go $ resetTrailAndEnter RegisterScreen a EvKey (KASCII 'r') [] -> go $ resetTrailAndEnter RegisterScreen a
EvKey (KASCII 'p') [] -> go $ resetTrailAndEnter PrintScreen 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 KRight [] -> go $ drilldown a
EvKey KEnter [] -> go $ drilldown a EvKey KEnter [] -> go $ drilldown a
EvKey KLeft [] -> go $ backout a EvKey KLeft [] -> go $ backout a
@ -234,8 +234,9 @@ drilldown :: AppState -> AppState
drilldown a drilldown a
| screen a == BalanceScreen = enter RegisterScreen a{aargs=[currentAccountName a]} | screen a == BalanceScreen = enter RegisterScreen a{aargs=[currentAccountName a]}
| screen a == RegisterScreen = scrollToEntry e $ enter PrintScreen a | screen a == RegisterScreen = scrollToEntry e $ enter PrintScreen a
| screen a == PrintScreen = enter LedgerScreen a | screen a == PrintScreen = a
| screen a == LedgerScreen = a -- | screen a == PrintScreen = enter LedgerScreen a
-- | screen a == LedgerScreen = a
where e = currentEntry a where e = currentEntry a
-- | Get the account name currently highlighted by the cursor on the -- | Get the account name currently highlighted by the cursor on the