55 lines
1.6 KiB
Haskell
55 lines
1.6 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
{-|
|
|
|
|
Print a bar chart of posting activity per day, or other report interval.
|
|
|
|
-}
|
|
|
|
module Hledger.Cli.Commands.Activity
|
|
where
|
|
|
|
import Data.List
|
|
import Data.Maybe
|
|
import Data.Ord
|
|
import Text.Printf
|
|
|
|
import Hledger
|
|
import Hledger.Cli.CliOptions
|
|
import Prelude hiding (putStr)
|
|
import Hledger.Utils.UTF8IOCompat (putStr)
|
|
|
|
activitymode = hledgerCommandMode
|
|
$(embedFileRelative "Hledger/Cli/Commands/Activity.txt")
|
|
[]
|
|
[generalflagsgroup1]
|
|
[]
|
|
([], Just $ argsFlag "[QUERY]")
|
|
|
|
barchar :: Char
|
|
barchar = '*'
|
|
|
|
-- | Print a bar chart of number of postings per report interval.
|
|
activity :: CliOpts -> Journal -> IO ()
|
|
activity CliOpts{reportopts_=ropts} j = do
|
|
d <- getCurrentDay
|
|
putStr $ showHistogram ropts (queryFromOpts d ropts) j
|
|
|
|
showHistogram :: ReportOpts -> Query -> Journal -> String
|
|
showHistogram opts q j = concatMap (printDayWith countBar) spanps
|
|
where
|
|
i = interval_ opts
|
|
interval | i == NoInterval = Days 1
|
|
| otherwise = i
|
|
span' = queryDateSpan (date2_ opts) q `spanDefaultsFrom` journalDateSpan (date2_ opts) j
|
|
spans = filter (DateSpan Nothing Nothing /=) $ splitSpan interval span'
|
|
spanps = [(s, filter (isPostingInDateSpan s) ps) | s <- spans]
|
|
-- same as Register
|
|
-- should count transactions, not postings ?
|
|
-- ps = sortBy (comparing postingDate) $ filterempties $ filter matchapats $ filterdepth $ journalPostings j
|
|
ps = sortBy (comparing postingDate) $ filter (q `matchesPosting`) $ journalPostings j
|
|
|
|
printDayWith f (DateSpan b _, ps) = printf "%s %s\n" (show $ fromJust b) (f ps)
|
|
|
|
countBar ps = replicate (length ps) barchar
|