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

stats: compact account info, add payee/description count

Browse Source
This commit is contained in:
Simon Michael 2010-05-24 18:27:16 +00:00
parent 913b3be7e3
commit fe12bd9c94
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Hledger/Cli/Commands/Stats.hs
View File

@ -39,9 +39,8 @@ showStats _ _ l today =
,("Transactions", printf "%d (%0.1f per day)" tnum txnrate) ,("Transactions", printf "%d (%0.1f per day)" tnum txnrate)
,("Transactions last 30 days", printf "%d (%0.1f per day)" tnum30 txnrate30) ,("Transactions last 30 days", printf "%d (%0.1f per day)" tnum30 txnrate30)
,("Transactions last 7 days", printf "%d (%0.1f per day)" tnum7 txnrate7) ,("Transactions last 7 days", printf "%d (%0.1f per day)" tnum7 txnrate7)
-- ,("Payees/descriptions", show $ length $ nub $ map tdescription ts) ,("Payees/descriptions", show $ length $ nub $ map tdescription ts)
,("Accounts", show $ length $ accounts l) ,("Accounts", printf "%d (depth %d)" acctnum acctdepth)
,("Account tree depth", show $ maximum $ map (accountNameLevel.aname) $ accounts l)
,("Commodities", printf "%s (%s)" (show $ length $ cs) (intercalate ", " $ sort $ map symbol cs)) ,("Commodities", printf "%s (%s)" (show $ length $ cs) (intercalate ", " $ sort $ map symbol cs))
-- Transactions this month : %(monthtxns)s (last month in the same period: %(lastmonthtxns)s) -- Transactions this month : %(monthtxns)s (last month in the same period: %(lastmonthtxns)s)
-- Uncleared transactions : %(uncleared)s -- Uncleared transactions : %(uncleared)s
@ -73,5 +72,7 @@ showStats _ _ l today =
tnum7 = length $ filter withinlast7 ts tnum7 = length $ filter withinlast7 ts
withinlast7 t = d >= addDays (-7) today && (d<=today) where d = tdate t withinlast7 t = d >= addDays (-7) today && (d<=today) where d = tdate t
txnrate7 = fromIntegral tnum7 / 7 :: Double txnrate7 = fromIntegral tnum7 / 7 :: Double
acctnum = length $ accounts l
acctdepth = maximum $ map (accountNameLevel.aname) $ accounts l
cs = Map.elems $ commodities l cs = Map.elems $ commodities l