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

histogram: honour the specified start or end dates

Browse Source
This commit is contained in:
Simon Michael 2011-01-14 04:18:58 +00:00
parent 2b1ea5160f
commit eac34e85fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger/Hledger/Cli/Histogram.hs
View File

@ -23,14 +23,14 @@ histogram opts args j = do
putStr $ showHistogram opts (optsToFilterSpec opts args t) j putStr $ showHistogram opts (optsToFilterSpec opts args t) j
showHistogram :: [Opt] -> FilterSpec -> Journal -> String showHistogram :: [Opt] -> FilterSpec -> Journal -> String
showHistogram opts filterspec j = concatMap (printDayWith countBar) dayps showHistogram opts filterspec j = concatMap (printDayWith countBar) spanps
where where
i = intervalFromOpts opts i = intervalFromOpts opts
interval | i == NoInterval = Days 1 interval | i == NoInterval = Days 1
| otherwise = i | otherwise = i
fullspan = journalDateSpan j span = datespan filterspec `orDatesFrom` journalDateSpan j
days = filter (DateSpan Nothing Nothing /=) $ splitSpan interval fullspan spans = filter (DateSpan Nothing Nothing /=) $ splitSpan interval span
dayps = [(s, filter (isPostingInDateSpan s) ps) | s <- days] spanps = [(s, filter (isPostingInDateSpan s) ps) | s <- spans]
-- same as Register -- same as Register
-- should count transactions, not postings ? -- should count transactions, not postings ?
ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j