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