47 lines
1.1 KiB
Haskell
Executable File
47 lines
1.1 KiB
Haskell
Executable File
#!/usr/bin/env stack
|
|
{- stack runghc --verbosity info
|
|
--package hledger-lib
|
|
--package hledger
|
|
--package here
|
|
-}
|
|
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
import Data.List
|
|
import Data.Ord
|
|
import Data.String.Here
|
|
import Hledger.Cli
|
|
|
|
------------------------------------------------------------------------------
|
|
cmdmode = (defAddonCommandMode "print-unique") {
|
|
modeHelp = [here|
|
|
Remove transactions which reuse an already-seen description.
|
|
|]
|
|
,modeHelpSuffix=lines [here|
|
|
|
|
Example:
|
|
```shell
|
|
$ cat unique.journal
|
|
1/1 test
|
|
(acct:one) 1
|
|
2/2 test
|
|
(acct:two) 2
|
|
$ LEDGER_FILE=unique.journal hledger print-unique
|
|
(-f option not supported)
|
|
2015/01/01 test
|
|
(acct:one) 1
|
|
```
|
|
|
|
|]
|
|
}
|
|
------------------------------------------------------------------------------
|
|
|
|
main = do
|
|
opts <- getHledgerCliOpts cmdmode
|
|
withJournalDo opts $
|
|
\opts j@Journal{jtxns=ts} -> print' opts j{jtxns=uniquify ts}
|
|
where
|
|
uniquify = nubBy (\t1 t2 -> thingToCompare t1 == thingToCompare t2) . sortBy (comparing thingToCompare)
|
|
thingToCompare = tdescription
|
|
-- thingToCompare = tdate
|