30 lines
774 B
Haskell
30 lines
774 B
Haskell
{-|
|
|
|
|
A ledger-compatible @print@ command.
|
|
|
|
-}
|
|
|
|
module Commands.Print
|
|
where
|
|
import Prelude hiding (putStr)
|
|
import Ledger
|
|
import Options
|
|
import System.IO.UTF8
|
|
|
|
|
|
-- | Print ledger transactions in standard format.
|
|
print' :: [Opt] -> [String] -> Ledger -> IO ()
|
|
print' opts args = putStr . showTransactions opts args
|
|
|
|
showTransactions :: [Opt] -> [String] -> Ledger -> String
|
|
showTransactions opts args l = concatMap (showTransactionForPrint effective) txns
|
|
where
|
|
txns = sortBy (comparing tdate) $
|
|
jtxns $
|
|
filterJournalPostingsByDepth depth $
|
|
filterJournalPostingsByAccount apats $
|
|
journal l
|
|
depth = depthFromOpts opts
|
|
effective = Effective `elem` opts
|
|
(apats,_) = parsePatternArgs args
|