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

ui: reg: ensure T always has a visible effect

Browse Source
This commit is contained in:
Simon Michael 2018-10-15 18:31:26 -07:00
parent 1c3233cc0f
commit 52ee10bd87
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -188,7 +188,7 @@ rsDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
where
ishistorical = balancetype_ ropts == HistoricalBalance
inclusive = tree_ ropts || rsForceInclusive
-- inclusive = tree_ ropts || rsForceInclusive
toplabel =
withAttr ("border" <> "bold") (str $ T.unpack $ replaceHiddenAccountsNameWith "All" rsAccount)
@ -236,7 +236,8 @@ rsDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
then selectedstr "historical" <+> str "/period"
else str "historical/" <+> selectedstr "period")
,("T"
,if inclusive
-- rsForceInclusive may override, but use tree_ here to ensure a visible toggle effect
,if tree_ ropts
then str "flat/" <+> selectedstr "tree"
else selectedstr "flat" <+> str "/tree")
,("F"