{-# LANGUAGE QuasiQuotes, RecordWildCards, NoCPP #-}
{-|

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 (
  cashflowmode
 ,cashflow
 ,tests_Hledger_Cli_Cashflow
) where

import System.Console.CmdArgs.Explicit
import Test.HUnit

import Hledger
import Hledger.Cli.CliOptions
import Hledger.Cli.BalanceView

cfBV = BalanceView {
         bvmode     = "cashflow",
         bvaliases  = ["cf"],
         bvhelp     = "show a cashflow statement",
         bvtitle    = "Cashflow Statement",
         bvqueries  = [("Cash flows", journalCashAccountQuery)],
         bvsnapshot = False
      }

cashflowmode :: Mode RawOpts
cashflowmode = balanceviewmode cfBV

cashflow :: CliOpts -> Journal -> IO ()
cashflow = balanceviewReport cfBV

tests_Hledger_Cli_Cashflow :: Test
tests_Hledger_Cli_Cashflow = TestList
 [
 ]