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

imp: Show parent accounts in tree mode for context

Browse Source
This commit is contained in:
samahri 2025-10-28 23:21:42 -07:00 committed by Simon Michael
parent e2f2a22346
commit b588ba0dcc
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger/Hledger/Cli/Commands/Accounts.hs
View File

@ -92,14 +92,22 @@ accounts opts@CliOpts{rawopts_=rawopts, reportspec_=ReportSpec{_rsQuery=query,_r
-- within each group of siblings -- within each group of siblings
sortedaccts = sortAccountNamesByDeclaration j tree accts sortedaccts = sortAccountNamesByDeclaration j tree accts
-- 2a. in tree mode, add parent accounts for tree structure context
acctswithparents =
if tree
then dbg4 "acctswithparents" $
sortAccountNamesByDeclaration j tree $ -- re-sort after adding parents
expandAccountNames sortedaccts -- add all parent accounts
else sortedaccts
-- 3. if there's a depth limit, depth-clip and remove any no longer useful items -- 3. if there's a depth limit, depth-clip and remove any no longer useful items
clippedaccts = clippedaccts =
dbg4 "clippedaccts" $ dbg4 "clippedaccts" $
filter (matchesAccount acctq) $ -- clipping can leave accounts that no longer match the query, remove such (if tree then id else filter (matchesAccount acctq)) $ -- in tree mode, keep parent accounts even if they don't match
nub $ -- clipping can leave duplicates (adjacent, hopefully) nub $ -- clipping can leave duplicates (adjacent, hopefully)
filter (not . T.null) $ -- depth:0 can leave nulls filter (not . T.null) $ -- depth:0 can leave nulls
map (clipAccountName dep) $ -- clip at depth if specified map (clipAccountName dep) $ -- clip at depth if specified
sortedaccts acctswithparents -- use expanded list instead of sortedaccts
-- 4. print what remains as a list or tree, maybe applying --drop in the former case. -- 4. print what remains as a list or tree, maybe applying --drop in the former case.
-- Add various bits of info if enabled. -- Add various bits of info if enabled.