2019-07-16 07:19:52 +03:00
|
|
|
#!/usr/bin/env stack
|
2020-12-08 23:57:40 +03:00
|
|
|
-- stack script --compile --resolver lts-16.25
|
2019-07-16 07:19:52 +03:00
|
|
|
|
|
|
|
{-# OPTIONS_GHC -Wno-missing-signatures -Wno-name-shadowing #-}
|
2019-07-17 01:31:18 +03:00
|
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
{-# LANGUAGE RecordWildCards #-}
|
2019-07-16 07:19:52 +03:00
|
|
|
|
2020-08-15 19:06:09 +03:00
|
|
|
import Data.String.QQ (s)
|
2019-07-16 07:19:52 +03:00
|
|
|
import Hledger
|
|
|
|
import Hledger.Cli
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------
|
|
|
|
cmdmode = hledgerCommandMode
|
2020-08-15 19:06:09 +03:00
|
|
|
[s| swap-dates
|
2019-07-17 01:31:18 +03:00
|
|
|
Swap date and date2, on transactions which have date2 defined.
|
|
|
|
(Does not yet swap posting dates.)
|
2020-08-15 21:29:35 +03:00
|
|
|
_FLAGS
|
2019-07-16 07:19:52 +03:00
|
|
|
|]
|
|
|
|
[]
|
|
|
|
[generalflagsgroup1]
|
|
|
|
[]
|
|
|
|
([], Nothing) -- Just $ argsFlag "[QUERY]")
|
|
|
|
------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
main = do
|
2020-12-30 09:59:12 +03:00
|
|
|
opts@CliOpts{reportspec_=rspec} <- getHledgerCliOpts cmdmode
|
2019-07-16 07:19:52 +03:00
|
|
|
withJournalDo opts $
|
2019-07-17 01:31:18 +03:00
|
|
|
\j -> do
|
2019-07-16 07:19:52 +03:00
|
|
|
d <- getCurrentDay
|
|
|
|
let
|
2020-12-30 09:59:12 +03:00
|
|
|
q = rsQuery rspec
|
|
|
|
ts = filter (q `matchesTransaction`) $ jtxns $ journalSelectingAmountFromOpts (rsOpts rspec) j
|
2019-07-17 01:31:18 +03:00
|
|
|
ts' = map transactionSwapDates ts
|
2019-11-16 14:46:21 +03:00
|
|
|
mapM_ (putStrLn . showTransaction) ts'
|
2019-07-17 01:31:18 +03:00
|
|
|
|
|
|
|
transactionSwapDates :: Transaction -> Transaction
|
|
|
|
transactionSwapDates t@Transaction{tdate2=Nothing} = t
|
|
|
|
transactionSwapDates t@Transaction{tdate2=Just d} = t{tdate=d, tdate2=Just $ tdate t}
|