fix: ui: add new screen missing from commit
This commit is contained in:
parent
0f4413f011
commit
790b6ca9da
29
hledger-ui/Hledger/UI/CashScreen.hs
Normal file
29
hledger-ui/Hledger/UI/CashScreen.hs
Normal file
@ -0,0 +1,29 @@
|
||||
-- The cash accounts screen, like the accounts screen but restricted to cash accounts.
|
||||
|
||||
module Hledger.UI.CashScreen
|
||||
(csNew
|
||||
,csUpdate
|
||||
,csDraw
|
||||
,csHandle
|
||||
)
|
||||
where
|
||||
|
||||
import Brick
|
||||
|
||||
import Hledger
|
||||
import Hledger.Cli hiding (mode, progname, prognameandversion)
|
||||
import Hledger.UI.UIOptions
|
||||
import Hledger.UI.UITypes
|
||||
import Hledger.UI.UIUtils
|
||||
import Hledger.UI.UIScreens
|
||||
import Hledger.UI.AccountsScreen (asHandle, asDrawHelper)
|
||||
|
||||
|
||||
csDraw :: UIState -> [Widget Name]
|
||||
csDraw ui = dbgui "csDraw" $ asDrawHelper ui ropts' scrname
|
||||
where
|
||||
scrname = "cash balances"
|
||||
ropts' = (_rsReportOpts $ reportspec_ $ uoCliOpts $ aopts ui){balanceaccum_=Historical}
|
||||
|
||||
csHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
|
||||
csHandle = asHandle . dbgui "csHandle"
|
||||
Loading…
Reference in New Issue
Block a user