{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
module Hledger.Cli.Commands (
testcmd
,builtinCommands
,builtinCommandNames
,findBuiltinCommand
,knownAddonCommands
,knownCommands
,printCommandsList
,tests_Hledger_Cli
,module Hledger.Cli.Commands.Accounts
,module Hledger.Cli.Commands.Activity
,module Hledger.Cli.Commands.Add
,module Hledger.Cli.Commands.Aregister
,module Hledger.Cli.Commands.Balance
,module Hledger.Cli.Commands.Balancesheet
,module Hledger.Cli.Commands.Balancesheetequity
,module Hledger.Cli.Commands.Cashflow
,module Hledger.Cli.Commands.Close
,module Hledger.Cli.Commands.Codes
,module Hledger.Cli.Commands.Commodities
,module Hledger.Cli.Commands.Demo
,module Hledger.Cli.Commands.Descriptions
,module Hledger.Cli.Commands.Diff
,module Hledger.Cli.Commands.Help
,module Hledger.Cli.Commands.Import
,module Hledger.Cli.Commands.Incomestatement
,module Hledger.Cli.Commands.Notes
,module Hledger.Cli.Commands.Payees
,module Hledger.Cli.Commands.Prices
,module Hledger.Cli.Commands.Print
,module Hledger.Cli.Commands.Register
,module Hledger.Cli.Commands.Rewrite
,module Hledger.Cli.Commands.Stats
,module Hledger.Cli.Commands.Tags
)
where
import Data.Char (isAlphaNum, isSpace)
import Data.List
import Data.List.Extra (nubSort)
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time.Calendar
import Safe (headErr)
import String.ANSI
import System.Environment (withArgs)
import System.Console.CmdArgs.Explicit as C
import Test.Tasty (defaultMain)
import Hledger
import Hledger.Cli.CliOptions
import Hledger.Cli.Commands.Accounts
import Hledger.Cli.Commands.Activity
import Hledger.Cli.Commands.Add
import Hledger.Cli.Commands.Aregister
import Hledger.Cli.Commands.Balance
import Hledger.Cli.Commands.Balancesheet
import Hledger.Cli.Commands.Balancesheetequity
import Hledger.Cli.Commands.Cashflow
import Hledger.Cli.Commands.Check
import Hledger.Cli.Commands.Close
import Hledger.Cli.Commands.Codes
import Hledger.Cli.Commands.Commodities
import Hledger.Cli.Commands.Demo
import Hledger.Cli.Commands.Descriptions
import Hledger.Cli.Commands.Diff
import Hledger.Cli.Commands.Files
import Hledger.Cli.Commands.Help
import Hledger.Cli.Commands.Import
import Hledger.Cli.Commands.Incomestatement
import Hledger.Cli.Commands.Notes
import Hledger.Cli.Commands.Payees
import Hledger.Cli.Commands.Prices
import Hledger.Cli.Commands.Print
import Hledger.Cli.Commands.Register
import Hledger.Cli.Commands.Rewrite
import Hledger.Cli.Commands.Roi
import Hledger.Cli.Commands.Stats
import Hledger.Cli.Commands.Tags
import Hledger.Cli.Utils (tests_Cli_Utils)
builtinCommands :: [(Mode RawOpts, CliOpts -> Journal -> IO ())]
builtinCommands :: [(Mode RawOpts, CliOpts -> Journal -> IO ())]
builtinCommands = [
(Mode RawOpts
accountsmode , CliOpts -> Journal -> IO ()
accounts)
,(Mode RawOpts
activitymode , CliOpts -> Journal -> IO ()
activity)
,(Mode RawOpts
addmode , CliOpts -> Journal -> IO ()
add)
,(Mode RawOpts
aregistermode , CliOpts -> Journal -> IO ()
aregister)
,(Mode RawOpts
balancemode , CliOpts -> Journal -> IO ()
balance)
,(Mode RawOpts
balancesheetequitymode , CliOpts -> Journal -> IO ()
balancesheetequity)
,(Mode RawOpts
balancesheetmode , CliOpts -> Journal -> IO ()
balancesheet)
,(Mode RawOpts
cashflowmode , CliOpts -> Journal -> IO ()
cashflow)
,(Mode RawOpts
checkmode , CliOpts -> Journal -> IO ()
check)
,(Mode RawOpts
closemode , CliOpts -> Journal -> IO ()
close)
,(Mode RawOpts
codesmode , CliOpts -> Journal -> IO ()
codes)
,(Mode RawOpts
commoditiesmode , CliOpts -> Journal -> IO ()
commodities)
,(Mode RawOpts
demomode , CliOpts -> Journal -> IO ()
demo)
,(Mode RawOpts
descriptionsmode , CliOpts -> Journal -> IO ()
descriptions)
,(Mode RawOpts
diffmode , CliOpts -> Journal -> IO ()
diff)
,(Mode RawOpts
filesmode , CliOpts -> Journal -> IO ()
files)
,(Mode RawOpts
helpmode , CliOpts -> Journal -> IO ()
help')
,(Mode RawOpts
importmode , CliOpts -> Journal -> IO ()
importcmd)
,(Mode RawOpts
incomestatementmode , CliOpts -> Journal -> IO ()
incomestatement)
,(Mode RawOpts
notesmode , CliOpts -> Journal -> IO ()
notes)
,(Mode RawOpts
payeesmode , CliOpts -> Journal -> IO ()
payees)
,(Mode RawOpts
pricesmode , CliOpts -> Journal -> IO ()
prices)
,(Mode RawOpts
printmode , CliOpts -> Journal -> IO ()
print')
,(Mode RawOpts
registermode , CliOpts -> Journal -> IO ()
register)
,(Mode RawOpts
rewritemode , CliOpts -> Journal -> IO ()
rewrite)
,(Mode RawOpts
roimode , CliOpts -> Journal -> IO ()
roi)
,(Mode RawOpts
statsmode , CliOpts -> Journal -> IO ()
stats)
,(Mode RawOpts
tagsmode , CliOpts -> Journal -> IO ()
tags)
,(Mode RawOpts
testmode , CliOpts -> Journal -> IO ()
testcmd)
]
_banner_slant :: [[Char]]
_banner_slant = Int -> [[Char]] -> [[Char]]
forall a. Int -> [a] -> [a]
drop Int
1 [[Char]
""
,[Char]
" __ __ __ "
,[Char]
" / /_ / /__ ____/ /___ ____ _____"
,[Char]
" / __ \\/ / _ \\/ __ / __ `/ _ \\/ ___/"
,[Char]
" / / / / / __/ /_/ / /_/ / __/ / "
,[Char]
"/_/ /_/_/\\___/\\__,_/\\__, /\\___/_/ "
,[Char]
" /____/ "
]
_banner_smslant :: [[Char]]
_banner_smslant = Int -> [[Char]] -> [[Char]]
forall a. Int -> [a] -> [a]
drop Int
1 [[Char]
""
,[Char]
" __ __ __ "
,[Char]
" / / / /__ ___/ /__ ____ ____"
,[Char]
" / _ \\/ / -_) _ / _ `/ -_) __/"
,[Char]
"/_//_/_/\\__/\\_,_/\\_, /\\__/_/ "
,[Char]
" /___/ "
]
_banner_speed :: [[Char]]
_banner_speed = Int -> [[Char]] -> [[Char]]
forall a. Int -> [a] -> [a]
drop Int
1 [[Char]
""
,[Char]
"______ ______ _________ "
,[Char]
"___ /____ /__________ /______ _____________"
,[Char]
"__ __ \\_ /_ _ \\ __ /__ __ `/ _ \\_ ___/"
,[Char]
"_ / / / / / __/ /_/ / _ /_/ // __/ / "
,[Char]
"/_/ /_//_/ \\___/\\__,_/ _\\__, / \\___//_/ "
,[Char]
" /____/ "
]
accent :: String -> String
accent :: [Char] -> [Char]
accent
| Bool -> Bool
not Bool
useColorOnStdout = [Char] -> [Char]
forall a. a -> a
id
| Maybe Bool
terminalIsLight Maybe Bool -> Maybe Bool -> Bool
forall a. Eq a => a -> a -> Bool
== Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
False = [Char] -> [Char]
brightWhite
| Maybe Bool
terminalIsLight Maybe Bool -> Maybe Bool -> Bool
forall a. Eq a => a -> a -> Bool
== Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
True = [Char] -> [Char]
brightBlack
| Bool
otherwise = [Char] -> [Char]
forall a. a -> a
id
commandsList :: String -> [String] -> [String]
commandsList :: [Char] -> [[Char]] -> [[Char]]
commandsList [Char]
progversion [[Char]]
othercmds =
([Char] -> [Char]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> [a] -> [b]
map ([Char] -> [Char]
bold'([Char] -> [Char]) -> ([Char] -> [Char]) -> [Char] -> [Char]
forall b c a. (b -> c) -> (a -> b) -> a -> c
.[Char] -> [Char]
accent) [[Char]]
_banner_smslant [[Char]] -> [[Char]] -> [[Char]]
forall a. [a] -> [a] -> [a]
++
[
[Char]
"-------------------------------------------------------------------------------"
,[Char]
progversion
,[Char]
"Usage: hledger COMMAND [OPTIONS] [-- ADDONOPTIONS]"
,[Char]
"Commands (builtins + addons):"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"HELP (docs, demos..)"
,[Char]
" (no arguments) show this commands list"
,[Char]
" -h [COMMAND] show command line help"
,[Char]
" --tldr [COMMAND] show command examples with tldr"
,[Char]
" --info [COMMAND] show the hledger manual with info"
,[Char]
" --man [COMMAND] show the hledger manual with man"
,[Char]
" help [-i|-m|-p] [TOPIC] show any topic in the hledger manual"
,[Char]
" demo [DEMO] show brief demos in the terminal"
,[Char]
" more help: https://hledger.org"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"USER INTERFACES (alternate UIs)"
,[Char]
"+ui run terminal UI"
,[Char]
"+web run web UI"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"ENTERING DATA (add or edit transactions)"
,[Char]
" add add transactions using interactive prompts"
,[Char]
"+iadd add transactions using a TUI"
,[Char]
" import add new transactions from other files, eg CSV files"
,[Char]
"+edit edit existing transactions with $EDITOR"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"BASIC REPORTS (simple lists)"
,[Char]
" accounts show account names"
,[Char]
" codes show transaction codes"
,[Char]
" commodities show commodity/currency symbols"
,[Char]
" descriptions show transaction descriptions"
,[Char]
" files show data files in use"
,[Char]
" notes show note part of transaction descriptions"
,[Char]
" payees show payee part of transaction descriptions"
,[Char]
" prices show historical market prices"
,[Char]
" stats show journal statistics"
,[Char]
" tags show tag names"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"STANDARD REPORTS (the most useful financial reports)"
,[Char]
" print show full transaction entries, or export journal data"
,[Char]
" aregister (areg) show transactions & running balance in one account"
,[Char]
" register (reg) show postings & running total in one or more accounts"
,[Char]
" balancesheet (bs) show assets and liabilities"
,[Char]
" balancesheetequity (bse) show assets, liabilities and equity"
,[Char]
" cashflow (cf) show changes in liquid assets"
,[Char]
" incomestatement (is) show revenues and expenses"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"ADVANCED REPORTS (more versatile/advanced reports)"
,[Char]
" balance (bal) show balance changes, end balances, gains, budgets.."
,[Char]
"+lots show a commodity's lots"
,[Char]
" roi show return on investments"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"CHARTS (bar charts, line graphs..)"
,[Char]
" activity show posting counts as a bar chart"
,[Char]
"+bar show balances or changes as a bar chart"
,[Char]
"+plot show advanced matplotlib charts as gui/svg/png/pdf.."
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"GENERATING DATA (generate or download journal entries; less common)"
,[Char]
"+autosync download/deduplicate/show OFX data as transactions"
,[Char]
" close generate transactions to zero/restore/assert balances"
,[Char]
"+interest generate transactions transferring accrued interest"
,[Char]
"+lots sell generate a lot-selling transaction"
,[Char]
"+pricehist download historical market prices"
,[Char]
" rewrite add postings to transactions, like print --auto"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"MAINTENANCE (error checking, data management..)"
,[Char]
" check run any of hledger's built-in correctness checks"
,[Char]
"+check-fancyassertions check more powerful balance assertions"
,[Char]
"+check-tagfiles check that files referenced in tag values exist"
,[Char]
" diff compare an account's transactions in two journals"
,[Char]
"+git save or view journal file history simply in git"
,[Char]
"+pijul save or view journal file history simply in pijul"
,[Char]
" test run some self tests"
,[Char]
""
,[Char] -> [Char]
bold' [Char]
"OTHER ADDONS (more hledger-* commands found in PATH):"
]
[[Char]] -> [[Char]] -> [[Char]]
forall a. [a] -> [a] -> [a]
++ ([Char] -> [Char]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> [a] -> [b]
map (Char
' 'Char -> [Char] -> [Char]
forall a. a -> [a] -> [a]
:) ([Char] -> [[Char]]
lines ([Char] -> [[Char]]) -> [Char] -> [[Char]]
forall a b. (a -> b) -> a -> b
$ Int -> [[Char]] -> [Char]
multicol Int
79 [[Char]]
othercmds)
[[Char]] -> [[Char]] -> [[Char]]
forall a. [a] -> [a] -> [a]
++ [[Char]
""]
commandsListExtractCommands :: Bool -> [String] -> [String]
commandsListExtractCommands :: Bool -> [[Char]] -> [[Char]]
commandsListExtractCommands Bool
addonsonly [[Char]]
l =
[ [Char]
cmdname | Char
prefixchar:line :: [Char]
line@(Char
firstchar:[Char]
_) <-
([Char] -> Bool) -> [[Char]] -> [[Char]]
forall a. (a -> Bool) -> [a] -> [a]
takeWhile (Bool -> Bool
not (Bool -> Bool) -> ([Char] -> Bool) -> [Char] -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Char] -> [Char] -> Bool
forall a. Eq a => [a] -> [a] -> Bool
isInfixOf [Char]
"OTHER") ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> a -> b
$ ([Char] -> Bool) -> [[Char]] -> [[Char]]
forall a. (a -> Bool) -> [a] -> [a]
dropWhile (Bool -> Bool
not (Bool -> Bool) -> ([Char] -> Bool) -> [Char] -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Char] -> [Char] -> Bool
forall a. Eq a => [a] -> [a] -> Bool
isInfixOf [Char]
"Usage:") [[Char]]
l
, Char
prefixchar Char -> [Char] -> Bool
forall a. Eq a => a -> [a] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` Char
'+'Char -> [Char] -> [Char]
forall a. a -> [a] -> [a]
:[Char
' '|Bool -> Bool
not Bool
addonsonly]
, Char -> Bool
isAlphaNum Char
firstchar
, Bool -> Bool
not (Bool -> Bool) -> Bool -> Bool
forall a b. (a -> b) -> a -> b
$ [Char]
"https://" [Char] -> [Char] -> Bool
forall a. Eq a => [a] -> [a] -> Bool
`isInfixOf` [Char]
line
, let [Char]
cmdname:[[Char]]
_ = [Char] -> [[Char]]
words [Char]
line
]
knownCommands :: [String]
knownCommands :: [[Char]]
knownCommands = [[Char]] -> [[Char]]
forall a. Ord a => [a] -> [a]
nubSort ([[Char]] -> [[Char]])
-> ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> [[Char]] -> [[Char]]
commandsListExtractCommands Bool
False ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> a -> b
$ [Char] -> [[Char]] -> [[Char]]
commandsList [Char]
progname []
knownAddonCommands :: [String]
knownAddonCommands :: [[Char]]
knownAddonCommands = [[Char]] -> [[Char]]
forall a. Ord a => [a] -> [a]
nubSort ([[Char]] -> [[Char]])
-> ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> [[Char]] -> [[Char]]
commandsListExtractCommands Bool
True ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> a -> b
$ [Char] -> [[Char]] -> [[Char]]
commandsList [Char]
progname []
builtinCommandNames :: [String]
builtinCommandNames :: [[Char]]
builtinCommandNames = ((Mode RawOpts, CliOpts -> Journal -> IO ()) -> [[Char]])
-> [(Mode RawOpts, CliOpts -> Journal -> IO ())] -> [[Char]]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap (Mode RawOpts -> [[Char]]
forall a. Mode a -> [[Char]]
modeNames (Mode RawOpts -> [[Char]])
-> ((Mode RawOpts, CliOpts -> Journal -> IO ()) -> Mode RawOpts)
-> (Mode RawOpts, CliOpts -> Journal -> IO ())
-> [[Char]]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Mode RawOpts, CliOpts -> Journal -> IO ()) -> Mode RawOpts
forall a b. (a, b) -> a
fst) [(Mode RawOpts, CliOpts -> Journal -> IO ())]
builtinCommands
findBuiltinCommand :: String -> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())
findBuiltinCommand :: [Char] -> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())
findBuiltinCommand [Char]
cmdname = ((Mode RawOpts, CliOpts -> Journal -> IO ()) -> Bool)
-> [(Mode RawOpts, CliOpts -> Journal -> IO ())]
-> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())
forall (t :: * -> *) a. Foldable t => (a -> Bool) -> t a -> Maybe a
find ([Char] -> [[Char]] -> Bool
forall a. Eq a => a -> [a] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
elem [Char]
cmdname ([[Char]] -> Bool)
-> ((Mode RawOpts, CliOpts -> Journal -> IO ()) -> [[Char]])
-> (Mode RawOpts, CliOpts -> Journal -> IO ())
-> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Mode RawOpts -> [[Char]]
forall a. Mode a -> [[Char]]
modeNames (Mode RawOpts -> [[Char]])
-> ((Mode RawOpts, CliOpts -> Journal -> IO ()) -> Mode RawOpts)
-> (Mode RawOpts, CliOpts -> Journal -> IO ())
-> [[Char]]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Mode RawOpts, CliOpts -> Journal -> IO ()) -> Mode RawOpts
forall a b. (a, b) -> a
fst) [(Mode RawOpts, CliOpts -> Journal -> IO ())]
builtinCommands
printCommandsList :: String -> [String] -> IO ()
printCommandsList :: [Char] -> [[Char]] -> IO ()
printCommandsList [Char]
progversion [[Char]]
installedaddons =
Int -> IO () -> IO ()
forall a b. a -> b -> b
seq ([[Char]] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length ([[Char]] -> Int) -> [[Char]] -> Int
forall a b. (a -> b) -> a -> b
$ [Char] -> [[Char]] -> [[Char]]
forall a. Show a => [Char] -> a -> a
dbg8 [Char]
"uninstalledknownaddons" [[Char]]
uninstalledknownaddons) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
Int -> IO () -> IO ()
forall a b. a -> b -> b
seq ([[Char]] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length ([[Char]] -> Int) -> [[Char]] -> Int
forall a b. (a -> b) -> a -> b
$ [Char] -> [[Char]] -> [[Char]]
forall a. Show a => [Char] -> a -> a
dbg8 [Char]
"installedknownaddons" [[Char]]
installedknownaddons) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
Int -> IO () -> IO ()
forall a b. a -> b -> b
seq ([[Char]] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length ([[Char]] -> Int) -> [[Char]] -> Int
forall a b. (a -> b) -> a -> b
$ [Char] -> [[Char]] -> [[Char]]
forall a. Show a => [Char] -> a -> a
dbg8 [Char]
"installedunknownaddons" [[Char]]
installedunknownaddons) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
[Char] -> IO ()
pager ([Char] -> IO ()) -> [Char] -> IO ()
forall a b. (a -> b) -> a -> b
$ [[Char]] -> [Char]
unlines ([[Char]] -> [Char]) -> [[Char]] -> [Char]
forall a b. (a -> b) -> a -> b
$ ([Char] -> [Char]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> [a] -> [b]
map [Char] -> [Char]
unplus ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> a -> b
$ ([Char] -> Bool) -> [[Char]] -> [[Char]]
forall a. (a -> Bool) -> [a] -> [a]
filter (Bool -> Bool
not(Bool -> Bool) -> ([Char] -> Bool) -> [Char] -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
.[Char] -> Bool
isuninstalledaddon) ([[Char]] -> [[Char]]) -> [[Char]] -> [[Char]]
forall a b. (a -> b) -> a -> b
$
[Char] -> [[Char]] -> [[Char]]
commandsList [Char]
progversion [[Char]]
installedunknownaddons
where
knownaddons :: [[Char]]
knownaddons = [[Char]]
knownAddonCommands
uninstalledknownaddons :: [[Char]]
uninstalledknownaddons = [[Char]]
knownaddons [[Char]] -> [[Char]] -> [[Char]]
forall a. Eq a => [a] -> [a] -> [a]
\\ [[Char]]
installedaddons
installedknownaddons :: [[Char]]
installedknownaddons = [[Char]]
knownaddons [[Char]] -> [[Char]] -> [[Char]]
forall a. Eq a => [a] -> [a] -> [a]
`intersect` [[Char]]
installedaddons
installedunknownaddons :: [[Char]]
installedunknownaddons = [[Char]]
installedaddons [[Char]] -> [[Char]] -> [[Char]]
forall a. Eq a => [a] -> [a] -> [a]
\\ [[Char]]
knownaddons
unplus :: [Char] -> [Char]
unplus (Char
'+':[Char]
cs) = Char
' 'Char -> [Char] -> [Char]
forall a. a -> [a] -> [a]
:[Char]
cs
unplus [Char]
s = [Char]
s
isuninstalledaddon :: [Char] -> Bool
isuninstalledaddon =
\case
(Char
'+':[Char]
l) | [Char]
cmd [Char] -> [[Char]] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`notElem` [[Char]]
installedaddons ->
(Bool -> [Char]) -> Bool -> Bool
forall a. Show a => (a -> [Char]) -> a -> a
dbg9With ([Char] -> Bool -> [Char]
forall a b. a -> b -> a
const ([Char] -> Bool -> [Char]) -> [Char] -> Bool -> [Char]
forall a b. (a -> b) -> a -> b
$ [Char]
"hiding uninstalled addon: "[Char] -> [Char] -> [Char]
forall a. Semigroup a => a -> a -> a
<>[Char]
cmd) (Bool -> Bool) -> Bool -> Bool
forall a b. (a -> b) -> a -> b
$
Bool
True where cmd :: [Char]
cmd = (Char -> Bool) -> [Char] -> [Char]
forall a. (a -> Bool) -> [a] -> [a]
takeWhile (Bool -> Bool
not (Bool -> Bool) -> (Char -> Bool) -> Char -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Bool
isSpace) [Char]
l
[Char]
_ -> Bool
False
testmode :: Mode RawOpts
testmode = [Char]
-> [Flag RawOpts]
-> [([Char], [Flag RawOpts])]
-> [Flag RawOpts]
-> ([Arg RawOpts], Maybe (Arg RawOpts))
-> Mode RawOpts
hledgerCommandMode
$(embedFileRelative "Hledger/Cli/Commands/Test.txt")
[]
[([Char], [Flag RawOpts])
generalflagsgroup3]
[]
([], Arg RawOpts -> Maybe (Arg RawOpts)
forall a. a -> Maybe a
Just (Arg RawOpts -> Maybe (Arg RawOpts))
-> Arg RawOpts -> Maybe (Arg RawOpts)
forall a b. (a -> b) -> a -> b
$ [Char] -> Arg RawOpts
argsFlag [Char]
"[-- TASTYOPTS]")
testcmd :: CliOpts -> Journal -> IO ()
testcmd :: CliOpts -> Journal -> IO ()
testcmd CliOpts
opts Journal
_undefined = do
[[Char]] -> IO () -> IO ()
forall a. [[Char]] -> IO a -> IO a
withArgs ([Char] -> RawOpts -> [[Char]]
listofstringopt [Char]
"args" (RawOpts -> [[Char]]) -> RawOpts -> [[Char]]
forall a b. (a -> b) -> a -> b
$ CliOpts -> RawOpts
rawopts_ CliOpts
opts) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
TestTree -> IO ()
Test.Tasty.defaultMain (TestTree -> IO ()) -> TestTree -> IO ()
forall a b. (a -> b) -> a -> b
$ [Char] -> [TestTree] -> TestTree
testGroup [Char]
"hledger" [
TestTree
tests_Hledger
,TestTree
tests_Hledger_Cli
]
tests_Hledger_Cli :: TestTree
tests_Hledger_Cli = [Char] -> [TestTree] -> TestTree
testGroup [Char]
"Hledger.Cli" [
TestTree
tests_Cli_Utils
,TestTree
tests_Commands
]
tests_Commands :: TestTree
tests_Commands = [Char] -> [TestTree] -> TestTree
testGroup [Char]
"Commands" [
TestTree
tests_Balance
,TestTree
tests_Register
,TestTree
tests_Aregister
,[Char] -> [TestTree] -> TestTree
testGroup [Char]
"apply account directive" [
[Char] -> IO () -> TestTree
testCase [Char]
"works" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ do
let
ignoresourcepos :: Journal -> Journal
ignoresourcepos Journal
j = Journal
j{jtxns=map (\Transaction
t -> Transaction
t{tsourcepos=nullsourcepos}) (jtxns j)}
sameParse :: Text -> Text -> IO ()
sameParse Text
str1 Text
str2 = do
Journal
j1 <- Journal -> Journal
ignoresourcepos (Journal -> Journal) -> IO Journal -> IO Journal
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Text -> IO Journal
readJournal' Text
str1
Journal
j2 <- Journal -> Journal
ignoresourcepos (Journal -> Journal) -> IO Journal -> IO Journal
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Text -> IO Journal
readJournal' Text
str2
Journal
j1 Journal -> Journal -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= Journal
j2{jlastreadtime=jlastreadtime j1, jfiles=jfiles j1}
Text -> Text -> IO ()
sameParse
(Text
"2008/12/07 One\n alpha $-1\n beta $1\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"apply account outer\n2008/12/07 Two\n aigh $-2\n bee $2\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"apply account inner\n2008/12/07 Three\n gamma $-3\n delta $3\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"end apply account\n2008/12/07 Four\n why $-4\n zed $4\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"end apply account\n2008/12/07 Five\n foo $-5\n bar $5\n"
)
(Text
"2008/12/07 One\n alpha $-1\n beta $1\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"2008/12/07 Two\n outer:aigh $-2\n outer:bee $2\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"2008/12/07 Three\n outer:inner:gamma $-3\n outer:inner:delta $3\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"2008/12/07 Four\n outer:why $-4\n outer:zed $4\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"2008/12/07 Five\n foo $-5\n bar $5\n"
)
,[Char] -> IO () -> TestTree
testCase [Char]
"preserves \"virtual\" posting type" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ do
Journal
j <- Text -> IO Journal
readJournal' Text
"apply account test\n2008/12/07 One\n (from) $-1\n (to) $1\n"
let p :: Posting
p = [Posting] -> Posting
forall a. HasCallStack => [a] -> a
headErr ([Posting] -> Posting) -> [Posting] -> Posting
forall a b. (a -> b) -> a -> b
$ Transaction -> [Posting]
tpostings (Transaction -> [Posting]) -> Transaction -> [Posting]
forall a b. (a -> b) -> a -> b
$ [Transaction] -> Transaction
forall a. HasCallStack => [a] -> a
headErr ([Transaction] -> Transaction) -> [Transaction] -> Transaction
forall a b. (a -> b) -> a -> b
$ Journal -> [Transaction]
jtxns Journal
j
Posting -> Text
paccount Posting
p Text -> Text -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= Text
"test:from"
Posting -> PostingType
ptype Posting
p PostingType -> PostingType -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= PostingType
VirtualPosting
]
,[Char] -> IO () -> TestTree
testCase [Char]
"alias directive" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ do
Journal
j <- Text -> IO Journal
readJournal' Text
"!alias expenses = equity:draw:personal\n1/1\n (expenses:food) 1\n"
let p :: Posting
p = [Posting] -> Posting
forall a. HasCallStack => [a] -> a
headErr ([Posting] -> Posting) -> [Posting] -> Posting
forall a b. (a -> b) -> a -> b
$ Transaction -> [Posting]
tpostings (Transaction -> [Posting]) -> Transaction -> [Posting]
forall a b. (a -> b) -> a -> b
$ [Transaction] -> Transaction
forall a. HasCallStack => [a] -> a
headErr ([Transaction] -> Transaction) -> [Transaction] -> Transaction
forall a b. (a -> b) -> a -> b
$ Journal -> [Transaction]
jtxns Journal
j
Posting -> Text
paccount Posting
p Text -> Text -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= Text
"equity:draw:personal:food"
,[Char] -> IO () -> TestTree
testCase [Char]
"Y default year directive" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ do
Journal
j <- Text -> IO Journal
readJournal' Text
defaultyear_journal_txt
Transaction -> Day
tdate ([Transaction] -> Transaction
forall a. HasCallStack => [a] -> a
headErr ([Transaction] -> Transaction) -> [Transaction] -> Transaction
forall a b. (a -> b) -> a -> b
$ Journal -> [Transaction]
jtxns Journal
j) Day -> Day -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= Integer -> Int -> Int -> Day
fromGregorian Integer
2009 Int
1 Int
1
,[Char] -> IO () -> TestTree
testCase [Char]
"ledgerAccountNames" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$
(Ledger -> [Text]
ledgerAccountNames Ledger
ledger7)
[Text] -> [Text] -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?=
[Text
"assets",Text
"assets:cash",Text
"assets:checking",Text
"assets:saving",Text
"equity",Text
"equity:opening balances",
Text
"expenses",Text
"expenses:food",Text
"expenses:food:dining",Text
"expenses:phone",Text
"expenses:vacation",
Text
"liabilities",Text
"liabilities:credit cards",Text
"liabilities:credit cards:discover"]
,[Char] -> IO () -> TestTree
testCase [Char]
"show dollars" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ Amount -> [Char]
showAmount (DecimalRaw Integer -> Amount
usd DecimalRaw Integer
1) [Char] -> [Char] -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= [Char]
"$1.00"
,[Char] -> IO () -> TestTree
testCase [Char]
"show hours" (IO () -> TestTree) -> IO () -> TestTree
forall a b. (a -> b) -> a -> b
$ Amount -> [Char]
showAmount (DecimalRaw Integer -> Amount
hrs DecimalRaw Integer
1) [Char] -> [Char] -> IO ()
forall a. (Eq a, Show a, HasCallStack) => a -> a -> IO ()
@?= [Char]
"1.00h"
]
defaultyear_journal_txt :: Text
defaultyear_journal_txt :: Text
defaultyear_journal_txt = [Text] -> Text
T.unlines
[Text
"Y2009"
,Text
""
,Text
"01/01 A"
,Text
" a $1"
,Text
" b"
]
journal7 :: Journal
journal7 :: Journal
journal7 = Journal
nulljournal {jtxns =
[
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 01 01,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="opening balance",
tcomment="",
ttags=[],
tpostings=
["assets:cash" `post` usd 4.82
,"equity:opening balances" `post` usd (-4.82)
],
tprecedingcomment=""
}
,
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 02 01,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="ayres suites",
tcomment="",
ttags=[],
tpostings=
["expenses:vacation" `post` usd 179.92
,"assets:checking" `post` usd (-179.92)
],
tprecedingcomment=""
}
,
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 01 02,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="auto transfer to savings",
tcomment="",
ttags=[],
tpostings=
["assets:saving" `post` usd 200
,"assets:checking" `post` usd (-200)
],
tprecedingcomment=""
}
,
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 01 03,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="poquito mas",
tcomment="",
ttags=[],
tpostings=
["expenses:food:dining" `post` usd 4.82
,"assets:cash" `post` usd (-4.82)
],
tprecedingcomment=""
}
,
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 01 03,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="verizon",
tcomment="",
ttags=[],
tpostings=
["expenses:phone" `post` usd 95.11
,"assets:checking" `post` usd (-95.11)
],
tprecedingcomment=""
}
,
txnTieKnot Transaction {
tindex=0,
tsourcepos=nullsourcepos,
tdate=fromGregorian 2007 01 03,
tdate2=Nothing,
tstatus=Unmarked,
tcode="*",
tdescription="discover",
tcomment="",
ttags=[],
tpostings=
["liabilities:credit cards:discover" `post` usd 80
,"assets:checking" `post` usd (-80)
],
tprecedingcomment=""
}
]
}
ledger7 :: Ledger
ledger7 :: Ledger
ledger7 = Query -> Journal -> Ledger
ledgerFromJournal Query
Any Journal
journal7