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

ui: accounts: E key toggles --empty

Browse Source
This commit is contained in:
Simon Michael 2016-06-01 12:17:32 -07:00
parent 399d61df53
commit e3a55a72d9
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -138,6 +138,7 @@ drawAccountsScreen AppState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=ropts}}
-- ("up/down/pgup/pgdown/home/end", "move") -- ("up/down/pgup/pgdown/home/end", "move")
("-=1234567890", "depth") ("-=1234567890", "depth")
,("F", "flat?") ,("F", "flat?")
,("E", "empty?")
,("C", "cleared?") ,("C", "cleared?")
,("R", "real?") ,("R", "real?")
,("right/enter", "register") ,("right/enter", "register")
@ -255,6 +256,7 @@ handleAccountsScreen st@AppState{
Vty.EvKey (Vty.KChar '9') [] -> continue $ reload j d $ setDepth 9 st' Vty.EvKey (Vty.KChar '9') [] -> continue $ reload j d $ setDepth 9 st'
Vty.EvKey (Vty.KChar '0') [] -> continue $ reload j d $ setDepth 0 st' Vty.EvKey (Vty.KChar '0') [] -> continue $ reload j d $ setDepth 0 st'
Vty.EvKey (Vty.KChar 'F') [] -> continue $ reload j d $ stToggleFlat st' Vty.EvKey (Vty.KChar 'F') [] -> continue $ reload j d $ stToggleFlat st'
Vty.EvKey (Vty.KChar 'E') [] -> 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'
Vty.EvKey (Vty.KLeft) [] -> continue $ popScreen st' Vty.EvKey (Vty.KLeft) [] -> continue $ popScreen st'

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

@ -16,6 +16,7 @@ module Hledger.UI.UIUtils (
,borderKeysStr ,borderKeysStr
-- --
,stToggleCleared ,stToggleCleared
,stToggleEmpty
,stToggleFlat ,stToggleFlat
,stToggleReal ,stToggleReal
) where ) where
@ -49,6 +50,14 @@ stToggleCleared st@AppState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts
toggleCleared :: ReportOpts -> ReportOpts toggleCleared :: ReportOpts -> ReportOpts
toggleCleared ropts = ropts{cleared_=not $ cleared_ ropts} toggleCleared ropts = ropts{cleared_=not $ cleared_ ropts}
stToggleEmpty :: AppState -> AppState
stToggleEmpty st@AppState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}} =
st{aopts=uopts{cliopts_=copts{reportopts_=toggleEmpty ropts}}}
-- | Toggle between showing all and showing only empty items.
toggleEmpty :: ReportOpts -> ReportOpts
toggleEmpty ropts = ropts{empty_=not $ empty_ ropts}
stToggleFlat :: AppState -> AppState stToggleFlat :: AppState -> AppState
stToggleFlat st@AppState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}} = stToggleFlat st@AppState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}} =
st{aopts=uopts{cliopts_=copts{reportopts_=toggleFlatMode ropts}}} st{aopts=uopts{cliopts_=copts{reportopts_=toggleFlatMode ropts}}}