dc191ec76e
Builtin commands are now gathered more tightly in a single module, Hledger.Cli.Commands, reducing duplication and facilitating change. The tests command was difficult and has been dropped for now. The obsolete convert/info/man commands have been dropped. cli: refactor: a proper commands list, better Main/Commands separation The legacy "convert" command has been dropped. The activity command's module is now named consistently.
59 lines
1.8 KiB
Haskell
59 lines
1.8 KiB
Haskell
{-|
|
|
|
|
Print a bar chart of posting activity per day, or other report interval.
|
|
|
|
-}
|
|
|
|
module Hledger.Cli.Activity
|
|
where
|
|
|
|
import Data.List
|
|
import Data.Maybe
|
|
import Data.Ord
|
|
import System.Console.CmdArgs.Explicit
|
|
import Text.Printf
|
|
|
|
import Hledger
|
|
import Hledger.Cli.CliOptions
|
|
import Prelude hiding (putStr)
|
|
import Hledger.Utils.UTF8IOCompat (putStr)
|
|
|
|
activitymode :: Mode RawOpts
|
|
activitymode = (defCommandMode $ ["activity"] ++ aliases) {
|
|
modeHelp = "show an ascii barchart of posting counts per interval (default: daily)" `withAliases` aliases
|
|
,modeHelpSuffix = []
|
|
,modeGroupFlags = Group {
|
|
groupUnnamed = []
|
|
,groupHidden = []
|
|
,groupNamed = [generalflagsgroup1]
|
|
}
|
|
}
|
|
where aliases = []
|
|
|
|
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
|