slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dev: comments

Browse Source
This commit is contained in:
Simon Michael 2022-11-06 07:55:41 -10:00
parent 4a35945a8f
commit 06bc09a36f
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-ui/Hledger/UI/UIScreens.hs
View File

@ -160,8 +160,7 @@ asUpdateHelper rspec0 d copts roptsModify extraquery j ass = dbgui "asUpdateHelp
} }
-- blanks added for scrolling control, cf RegisterScreen. -- blanks added for scrolling control, cf RegisterScreen.
-- XXX Ugly. Changing to 0 helps when debugging. blankitems = replicate uiNumBlankItems -- XXX ugly hard-coded value. When debugging, changing to 0 reduces noise.
blankitems = replicate uiNumBlankItems
AccountsScreenItem{asItemIndentLevel = 0 AccountsScreenItem{asItemIndentLevel = 0
,asItemAccountName = "" ,asItemAccountName = ""
,asItemDisplayAccountName = "" ,asItemDisplayAccountName = ""

2
hledger-ui/Hledger/UI/UITypes.hs
View File

@ -69,7 +69,7 @@ data UIState = UIState {
-- can change while program runs: -- can change while program runs:
,aopts :: UIOpts -- ^ the command-line options and query arguments currently in effect ,aopts :: UIOpts -- ^ the command-line options and query arguments currently in effect
,ajournal :: Journal -- ^ the journal being viewed (can change with --watch) ,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 ,aScreen :: Screen -- ^ the currently active screen
,aMode :: Mode -- ^ the currently active mode on the current screen ,aMode :: Mode -- ^ the currently active mode on the current screen
} deriving (Show) } deriving (Show)

3
hledger-ui/Hledger/UI/UIUtils.hs
View File

@ -274,7 +274,8 @@ renderToggle1 isactive l =
-- temporary shenanigans: -- 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 :: AccountName -> AccountName -> AccountName
replaceHiddenAccountsNameWith anew a | a == hiddenAccountsName = anew replaceHiddenAccountsNameWith anew a | a == hiddenAccountsName = anew
| a == "*" = anew | a == "*" = anew

2
hledger/Hledger/Cli/Main.hs
View File

@ -1,6 +1,6 @@
{-| {-|
hledger - a ledger-compatible accounting tool. 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. Released under GPL version 3 or later.
hledger is a partial haskell clone of John Wiegley's "ledger". It hledger is a partial haskell clone of John Wiegley's "ledger". It