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

ui: acc: don't mention included files in title

Browse Source
This commit is contained in:
Simon Michael 2015-09-04 07:40:09 -07:00
parent b9affbaee9
commit a61c9ad7c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-ui/Hledger/UI/AccountsScreen.hs
View File

@ -108,9 +108,9 @@ drawAccountsScreen _st@AppState{aopts=uopts, ajournal=j, aScreen=AccountsScreen{
<+> str ")" <+> str ")"
files = case journalFilePaths j of files = case journalFilePaths j of
[] -> str "" [] -> str ""
[f] -> withAttr ("border" <> "bold") $ str $ takeFileName f f:_ -> withAttr ("border" <> "bold") $ str $ takeFileName f
[f,_] -> (withAttr ("border" <> "bold") $ str $ takeFileName f) <+> str " (& 1 included file)" -- [f,_:[]] -> (withAttr ("border" <> "bold") $ str $ takeFileName f) <+> str " (& 1 included file)"
f:fs -> (withAttr ("border" <> "bold") $ str $ takeFileName f) <+> str (" (& " ++ show (length fs) ++ " included files)") -- f:fs -> (withAttr ("border" <> "bold") $ str $ takeFileName f) <+> str (" (& " ++ show (length fs) ++ " included files)")
querystr = query_ $ reportopts_ $ cliopts_ uopts querystr = query_ $ reportopts_ $ cliopts_ uopts
mdepth = depth_ $ reportopts_ $ cliopts_ uopts mdepth = depth_ $ reportopts_ $ cliopts_ uopts
cur = str (case l^.listSelectedL of cur = str (case l^.listSelectedL of