30 lines
754 B
Haskell
30 lines
754 B
Haskell
-- 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"
|