faf85d91e3
These Ledger-ish spellings were dropped over the years, to improve --help's layout. Now they work again, but are considered hidden flags so --help doesn't show them automatically (but I decided to mention them manually in --date2's description).
44 lines
1.2 KiB
Haskell
Executable File
44 lines
1.2 KiB
Haskell
Executable File
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Hledger.Cli.Commands.Checkdupes (
|
|
checkdupesmode
|
|
,checkdupes
|
|
)
|
|
where
|
|
|
|
import Data.Function
|
|
import Data.List
|
|
import qualified Data.Text as T
|
|
import Hledger
|
|
import Hledger.Cli.CliOptions
|
|
import System.Console.CmdArgs.Explicit
|
|
import Text.Printf
|
|
|
|
checkdupesmode :: Mode RawOpts
|
|
checkdupesmode = hledgerCommandMode
|
|
$(embedFileRelative "Hledger/Cli/Commands/Checkdupes.txt")
|
|
[]
|
|
[generalflagsgroup1]
|
|
hiddenflags
|
|
([], Nothing)
|
|
|
|
checkdupes _opts j = mapM_ render $ checkdupes' $ accountsNames j
|
|
|
|
accountsNames :: Journal -> [(String, AccountName)]
|
|
accountsNames j = map leafAndAccountName as
|
|
where leafAndAccountName a = (T.unpack $ accountLeafName a, a)
|
|
ps = journalPostings j
|
|
as = nub $ sort $ map paccount ps
|
|
|
|
checkdupes' :: (Ord k, Eq k) => [(k, v)] -> [(k, [v])]
|
|
checkdupes' l = zip dupLeafs dupAccountNames
|
|
where dupLeafs = map (fst . head) d
|
|
dupAccountNames = map (map snd) d
|
|
d = dupes' l
|
|
dupes' = filter ((> 1) . length)
|
|
. groupBy ((==) `on` fst)
|
|
. sortBy (compare `on` fst)
|
|
|
|
render :: (String, [AccountName]) -> IO ()
|
|
render (leafName, accountNameL) = printf "%s as %s\n" leafName (intercalate ", " (map T.unpack accountNameL))
|