    {-|

    A ledger-compatible @print@ command.

    -}

    module Hledger.Cli.Print (
      printmode
     ,print'
     ,tests_Hledger_Cli_Print
    )
    where

    import Data.List
    import System.Console.CmdArgs.Explicit
    import Test.HUnit
    import Text.CSV

    import Hledger
    import Hledger.Cli.Options
    import Hledger.Cli.Utils

    printmode = (defCommandMode $ ["print"] ++ aliases) {
      modeHelp = "show transaction entries" `withAliases` aliases
     ,modeGroupFlags = Group {
         groupUnnamed = outputflags
        ,groupHidden = []
        ,groupNamed = [generalflagsgroup1]
        }
     }
      where aliases = []

    -- | Print journal transactions in standard format.
    print' :: CliOpts -> Journal -> IO ()
    print' opts@CliOpts{reportopts_=ropts} j = do
      d <- getCurrentDay
      let q = queryFromOpts d ropts
          fmt = outputFormatFromOpts opts
          (render, ropts') = case fmt of
            "csv" -> ((++"\n") . printCSV . entriesReportAsCsv, ropts{accountlistmode_=ALFlat})
            _     -> (entriesReportAsText,                      ropts)
      writeOutput opts $ render $ entriesReport ropts' q j

    entriesReportAsText :: EntriesReport -> String
    entriesReportAsText items = concatMap showTransactionUnelided items

    -- XXX
    -- tests_showTransactions = [
    --   "showTransactions" ~: do

    --    -- "print expenses" ~:
    --    do
    --     let opts = defreportopts{query_="expenses"}
    --     d <- getCurrentDay
    --     showTransactions opts (queryFromOpts d opts) samplejournal `is` unlines
    --      ["2008/06/03 * eat & shop"
    --      ,"    expenses:food                $1"
    --      ,"    expenses:supplies            $1"
    --      ,"    assets:cash                 $-2"
    --      ,""
    --      ]

    --   -- , "print report with depth arg" ~:
    --    do
    --     let opts = defreportopts{depth_=Just 2}
    --     d <- getCurrentDay
    --     showTransactions opts (queryFromOpts d opts) samplejournal `is` unlines
    --       ["2008/01/01 income"
    --       ,"    assets:bank:checking            $1"
    --       ,"    income:salary                  $-1"
    --       ,""
    --       ,"2008/06/01 gift"
    --       ,"    assets:bank:checking            $1"
    --       ,"    income:gifts                   $-1"
    --       ,""
    --       ,"2008/06/03 * eat & shop"
    --       ,"    expenses:food                $1"
    --       ,"    expenses:supplies            $1"
    --       ,"    assets:cash                 $-2"
    --       ,""
    --       ,"2008/12/31 * pay off"
    --       ,"    liabilities:debts               $1"
    --       ,"    assets:bank:checking           $-1"
    --       ,""
    --       ]
    --  ]

    entriesReportAsCsv :: EntriesReport -> CSV
    entriesReportAsCsv items =
      concat $
      ([["nth","date","date2","status","code","description","comment","account","amount","commodity","credit","debit","status","posting-comment"]]:).snd $
      mapAccumL (\n e -> (n + 1, transactionToCSV n e)) 0 items

    transactionToCSV :: Integer -> Transaction -> CSV
    transactionToCSV n t =
      map (\p -> show n:date:date2:status:code:description:comment:p)
       (concatMap postingToCSV $ tpostings t)
      where
        description = tdescription t
        date = showDate (tdate t)
        date2 = maybe "" showDate (tdate2 t)
        status = show $ tstatus t
        code = tcode t
        comment = chomp $ strip $ tcomment t

    postingToCSV :: Posting -> CSV
    postingToCSV p =
      map (\(a@(Amount {aquantity=q,acommodity=c})) ->
        let a_ = a{acommodity=""} in
        let amount = showAmount a_ in
        let commodity = c in
        let credit = if q < 0 then showAmount $ negate a_ else "" in
        let debit  = if q > 0 then showAmount a_ else "" in
        account:amount:commodity:credit:debit:status:comment:[])
       amounts
      where
        Mixed amounts = pamount p
        status = show $ pstatus p
        account = showAccountName Nothing (ptype p) (paccount p)
        comment = chomp $ strip $ pcomment p

    tests_Hledger_Cli_Print = TestList []
      -- tests_showTransactions