mirror of
https://github.com/simonmichael/hledger.git
synced 2024-12-29 13:22:27 +03:00
30 lines
796 B
Haskell
30 lines
796 B
Haskell
-- The balance sheet screen, like the accounts screen but restricted to balance sheet accounts.
|
|
|
|
module Hledger.UI.BalancesheetScreen
|
|
(bsNew
|
|
,bsUpdate
|
|
,bsDraw
|
|
,bsHandle
|
|
)
|
|
where
|
|
|
|
import Brick hiding (bsDraw)
|
|
|
|
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)
|
|
|
|
|
|
bsDraw :: UIState -> [Widget Name]
|
|
bsDraw ui = dbgui "bsDraw" $ asDrawHelper ui ropts' scrname
|
|
where
|
|
scrname = "balance sheet balances"
|
|
ropts' = (_rsReportOpts $ reportspec_ $ uoCliOpts $ aopts ui){balanceaccum_=Historical}
|
|
|
|
bsHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
|
|
bsHandle = asHandle . dbgui "bsHandle"
|