cashflow: forgot th' module

hledger/Hledger/Cli/Cashflow.hs

@@ -0,0 +1,56 @@
+{-# LANGUAGE QuasiQuotes, RecordWildCards #-}
+{-|
+
+The @cashflow@ command prints a simplified cashflow statement.  It just
+shows the change in all "cash" accounts for the period (without the
+traditional segmentation into operating, investing, and financing
+cash flows.)
+
+-}
+
+module Hledger.Cli.Cashflow (
+  cashflow
+ ,tests_Hledger_Cli_Cashflow
+) where
+
+import Data.List
+import qualified Data.Text.Lazy.IO as LT
+import Test.HUnit
+import Text.Shakespeare.Text
+
+import Hledger
+import Prelude hiding (putStr)
+import Hledger.Utils.UTF8IOCompat (putStr)
+import Hledger.Cli.Options
+import Hledger.Cli.Balance
+
+
+-- | Print a simple cashflow statement.
+cashflow :: CliOpts -> Journal -> IO ()
+cashflow CliOpts{reportopts_=ropts} j = do
+  -- let lines = case formatFromOpts ropts of Left err, Right ...
+  d <- getCurrentDay
+  let m = optsToMatcher (withoutBeginDate ropts) d
+      cashreport@(_,total) = accountsReport2 ropts (MatchAnd [m, journalCashAccountMatcher j]) j
+      -- operatingreport@(_,operating) = accountsReport2 ropts (MatchAnd [m, journalOperatingAccountMatcher j]) j
+      -- investingreport@(_,investing) = accountsReport2 ropts (MatchAnd [m, journalInvestingAccountMatcher j]) j
+      -- financingreport@(_,financing) = accountsReport2 ropts (MatchAnd [m, journalFinancingAccountMatcher j]) j
+      -- total = operating + investing + financing
+  LT.putStr $ [lt|Cashflow Statement
+
+Cash flows:
+#{unlines $ accountsReportAsText ropts cashreport}
+
+Total:
+--------------------
+#{padleft 20 $ showMixedAmountWithoutPrice total}
+|]
+
+withoutBeginDate :: ReportOpts -> ReportOpts
+withoutBeginDate ropts@ReportOpts{..} = ropts{begin_=Nothing, period_=p}
+  where p = case period_ of Nothing -> Nothing
+                            Just (i, DateSpan _ e) -> Just (i, DateSpan Nothing e)
+
+tests_Hledger_Cli_Cashflow = TestList
+ [
+ ]