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

lib: Elide account if more components are dropped than exist.

Browse Source
This commit is contained in:
Stephen Morgan 2020-06-22 15:20:08 +10:00 committed by Simon Michael
parent 176011905e
commit 7a74fc4f21
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/AccountName.hs
View File

@ -103,9 +103,11 @@ accountNameDrop n a
case accountNameDrop n $ T.drop (T.length unbudgetedAccountAndSep) a of case accountNameDrop n $ T.drop (T.length unbudgetedAccountAndSep) a of
"" -> unbudgetedAccountName "" -> unbudgetedAccountName
a' -> unbudgetedAccountAndSep <> a' a' -> unbudgetedAccountAndSep <> a'
| otherwise = accountNameFromComponents $ drop n $ accountNameComponents a | otherwise = accountNameFromComponentsOrElide . drop n $ accountNameComponents a
where where
unbudgetedAccountAndSep = unbudgetedAccountName <> acctsep unbudgetedAccountAndSep = unbudgetedAccountName <> acctsep
accountNameFromComponentsOrElide [] = "..."
accountNameFromComponentsOrElide xs = accountNameFromComponents xs
-- | Sorted unique account names implied by these account names, -- | Sorted unique account names implied by these account names,
-- ie these plus all their parent accounts up to the root. -- ie these plus all their parent accounts up to the root.