hledger/hledger-ui/Hledger/UI/BalancesheetScreen.hs

-- 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"