mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-18 17:57:11 +03:00
dev: comments
This commit is contained in:
parent
4a35945a8f
commit
06bc09a36f
@ -160,8 +160,7 @@ asUpdateHelper rspec0 d copts roptsModify extraquery j ass = dbgui "asUpdateHelp
|
||||
}
|
||||
|
||||
-- blanks added for scrolling control, cf RegisterScreen.
|
||||
-- XXX Ugly. Changing to 0 helps when debugging.
|
||||
blankitems = replicate uiNumBlankItems
|
||||
blankitems = replicate uiNumBlankItems -- XXX ugly hard-coded value. When debugging, changing to 0 reduces noise.
|
||||
AccountsScreenItem{asItemIndentLevel = 0
|
||||
,asItemAccountName = ""
|
||||
,asItemDisplayAccountName = ""
|
||||
|
@ -69,7 +69,7 @@ data UIState = UIState {
|
||||
-- can change while program runs:
|
||||
,aopts :: UIOpts -- ^ the command-line options and query arguments currently in effect
|
||||
,ajournal :: Journal -- ^ the journal being viewed (can change with --watch)
|
||||
,aPrevScreens :: [Screen] -- ^ previously visited screens, most recent first
|
||||
,aPrevScreens :: [Screen] -- ^ previously visited screens, most recent first (XXX silly, reverse these)
|
||||
,aScreen :: Screen -- ^ the currently active screen
|
||||
,aMode :: Mode -- ^ the currently active mode on the current screen
|
||||
} deriving (Show)
|
||||
|
@ -274,7 +274,8 @@ renderToggle1 isactive l =
|
||||
|
||||
-- temporary shenanigans:
|
||||
|
||||
-- | Convert the special account name "*" (from balance report with depth limit 0) to something clearer.
|
||||
-- | Replace the special account names "*" and "..." (from balance reports with depth limit 0)
|
||||
-- to something clearer.
|
||||
replaceHiddenAccountsNameWith :: AccountName -> AccountName -> AccountName
|
||||
replaceHiddenAccountsNameWith anew a | a == hiddenAccountsName = anew
|
||||
| a == "*" = anew
|
||||
|
@ -1,6 +1,6 @@
|
||||
{-|
|
||||
hledger - a ledger-compatible accounting tool.
|
||||
Copyright (c) 2007-2011 Simon Michael <simon@joyful.com>
|
||||
Copyright (c) 2007-2022 Simon Michael <simon@joyful.com>
|
||||
Released under GPL version 3 or later.
|
||||
|
||||
hledger is a partial haskell clone of John Wiegley's "ledger". It
|
||||
|
Loading…
Reference in New Issue
Block a user