603b2e9f09
This increases composability and avoids some ugly case handling. We re-export runExceptT in Hledger.Read. The final return types of the following functions has been changed from IO (Either String a) to ExceptT String IO a. If this causes a problem, you can get the old behaviour by calling runExceptT on the output: readJournal, readJournalFiles, readJournalFile Or, you can use the easy functions readJournal', readJournalFiles', and readJournalFile', which assume default options and return in the IO monad.
663 lines
22 KiB
Haskell
663 lines
22 KiB
Haskell
{-|
|
|
hledger's built-in commands, and helpers for printing the commands list.
|
|
|
|
New built-in commands should be added in four places below:
|
|
the export list, the import list, builtinCommands, commandsList.
|
|
-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Hledger.Cli.Commands (
|
|
findCommand
|
|
,testcmd
|
|
,builtinCommands
|
|
,builtinCommandNames
|
|
,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.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.Printunique
|
|
,module Hledger.Cli.Commands.Register
|
|
,module Hledger.Cli.Commands.Registermatch
|
|
,module Hledger.Cli.Commands.Rewrite
|
|
,module Hledger.Cli.Commands.Stats
|
|
,module Hledger.Cli.Commands.Tags
|
|
)
|
|
where
|
|
|
|
import Data.Char (isSpace)
|
|
import Data.List
|
|
import Data.Text (Text)
|
|
import qualified Data.Text as T
|
|
import Data.Time.Calendar
|
|
import System.Environment (withArgs)
|
|
import System.Console.CmdArgs.Explicit as C
|
|
import Test.Tasty (defaultMain)
|
|
|
|
import Hledger
|
|
import Hledger.Cli.CliOptions
|
|
import Hledger.Cli.Version
|
|
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.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.Printunique
|
|
import Hledger.Cli.Commands.Register
|
|
import Hledger.Cli.Commands.Registermatch
|
|
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)
|
|
|
|
-- | The cmdargs subcommand mode (for command-line parsing)
|
|
-- and IO action (for doing the command's work) for each builtin command.
|
|
-- Command actions take parsed CLI options and a (lazy) finalised journal.
|
|
builtinCommands :: [(Mode RawOpts, CliOpts -> Journal -> IO ())]
|
|
builtinCommands = [
|
|
(accountsmode , accounts)
|
|
,(activitymode , activity)
|
|
,(addmode , add)
|
|
,(aregistermode , aregister)
|
|
,(balancemode , balance)
|
|
,(balancesheetequitymode , balancesheetequity)
|
|
,(balancesheetmode , balancesheet)
|
|
,(cashflowmode , cashflow)
|
|
,(checkmode , check)
|
|
,(closemode , close)
|
|
,(codesmode , codes)
|
|
,(commoditiesmode , commodities)
|
|
,(descriptionsmode , descriptions)
|
|
,(diffmode , diff)
|
|
,(filesmode , files)
|
|
,(helpmode , help')
|
|
,(importmode , importcmd)
|
|
,(incomestatementmode , incomestatement)
|
|
,(notesmode , notes)
|
|
,(payeesmode , payees)
|
|
,(pricesmode , prices)
|
|
,(printmode , print')
|
|
,(printuniquemode , printunique)
|
|
,(registermatchmode , registermatch)
|
|
,(registermode , register)
|
|
,(rewritemode , rewrite)
|
|
,(roimode , roi)
|
|
,(statsmode , stats)
|
|
,(tagsmode , tags)
|
|
,(testmode , testcmd)
|
|
]
|
|
|
|
-- | The commands list, showing command names, standard aliases,
|
|
-- and short descriptions. This is modified at runtime, as follows:
|
|
--
|
|
-- progversion is the program name and version.
|
|
--
|
|
-- Lines beginning with a space represent builtin commands, with format:
|
|
-- COMMAND (ALIASES) DESCRIPTION
|
|
-- These should be kept synced with builtinCommands above, and
|
|
-- their docs (Commands/\*.md).
|
|
--
|
|
-- Lines beginning with + represent known addon commands. These lines
|
|
-- will be suppressed if hledger-CMD is not found in $PATH at runtime.
|
|
--
|
|
-- OTHER is replaced with additional command lines (without descriptions)
|
|
-- for any unknown addon commands found in $PATH at runtime.
|
|
--
|
|
-- TODO: generate more of this automatically.
|
|
--
|
|
commandsList :: String -> [String] -> [String]
|
|
commandsList progversion othercmds = [
|
|
-- keep synced with hledger.m4.md -> Commands, commands.m4 -->
|
|
"-------------------------------------------------------------------------------"
|
|
,progversion
|
|
,"Usage: hledger COMMAND [OPTIONS] [-- ADDONCMDOPTIONS]"
|
|
,"Commands (+ addons found in $PATH):"
|
|
,""
|
|
,"Data entry (these commands modify the journal file):"
|
|
," add add transactions using guided prompts"
|
|
,"+iadd add transactions using curses ui"
|
|
," import add any new transactions from other files (eg csv)"
|
|
,""
|
|
,"Data management:"
|
|
,"+autosync download/deduplicate/convert OFX data"
|
|
," check check for various kinds of issue in the data"
|
|
,"+check-fancyassertions check more powerful balance assertions"
|
|
,"+check-tagfiles check file paths in tag values exist"
|
|
," close generate balance-resetting transactions"
|
|
," diff compare account transactions in two journal files"
|
|
,"+interest generate interest transactions"
|
|
," rewrite generate extra postings, similar to print --auto"
|
|
,"+stockquotes download market prices from AlphaVantage"
|
|
,""
|
|
,"Financial reports:"
|
|
," aregister (areg) show transactions in a particular account"
|
|
," balancesheet (bs) show assets, liabilities and net worth"
|
|
," balancesheetequity (bse) show assets, liabilities and equity"
|
|
," cashflow (cf) show changes in liquid assets"
|
|
," incomestatement (is) show revenues and expenses"
|
|
," roi show return on investments"
|
|
,""
|
|
,"Low-level reports:"
|
|
," accounts show account names"
|
|
," activity show postings-per-interval bar charts"
|
|
," balance (bal) show balance changes/end balances/budgets in accounts"
|
|
," codes show transaction codes"
|
|
," commodities show commodity/currency symbols"
|
|
," descriptions show unique transaction descriptions"
|
|
," files show input file paths"
|
|
," notes show unique note segments of transaction descriptions"
|
|
," payees show unique payee segments of transaction descriptions"
|
|
," prices show market price records"
|
|
," print show transactions (journal entries)"
|
|
," print-unique show only transactions with unique descriptions"
|
|
," register (reg) show postings in one or more accounts & running total"
|
|
," register-match show a recent posting that best matches a description"
|
|
," stats show journal statistics"
|
|
," tags show tag names"
|
|
," test run self tests"
|
|
,""
|
|
,"Alternate user interfaces:"
|
|
,"+ui run terminal UI"
|
|
,"+web run web UI"
|
|
,""
|
|
,"Other:"
|
|
] ++
|
|
othercmds
|
|
++
|
|
[""
|
|
,"Help:"
|
|
," (no arguments) show this commands list"
|
|
," -h show general flags"
|
|
," COMMAND -h show flags & docs for COMMAND"
|
|
," help [MANUAL] show hledger manuals in various formats"
|
|
,""
|
|
]
|
|
-- edit open a text editor on some part of the journal
|
|
|
|
|
|
-- | All names and aliases of builtin commands.
|
|
builtinCommandNames :: [String]
|
|
builtinCommandNames = concatMap (modeNames . fst) builtinCommands
|
|
|
|
-- | Look up a builtin command's mode and action by exact command name or alias.
|
|
findCommand :: String -> Maybe (Mode RawOpts, CliOpts -> Journal -> IO ())
|
|
findCommand cmdname = find (elem cmdname . modeNames . fst) builtinCommands
|
|
|
|
-- | Extract the command names from commandsList: the first word
|
|
-- of lines beginning with a space or + sign.
|
|
commandsFromCommandsList :: [String] -> [String]
|
|
commandsFromCommandsList s =
|
|
[w | c:l <- s, c `elem` [' ','+'], let w:_ = words l]
|
|
|
|
knownCommands :: [String]
|
|
knownCommands = sort . commandsFromCommandsList . drop 1 $ commandsList progname [] -- progname will not be seen
|
|
|
|
-- | Print the commands list, modifying the template above based on
|
|
-- the currently available addons. Missing addons will be removed, and
|
|
-- extra addons will be added under Misc.
|
|
printCommandsList :: String -> [String] -> IO ()
|
|
printCommandsList progversion addonsFound =
|
|
putStr . unlines . concatMap adjustline $
|
|
commandsList progversion (map ('+':) unknownCommandsFound)
|
|
where
|
|
commandsFound = map (' ':) builtinCommandNames ++ map ('+':) addonsFound
|
|
unknownCommandsFound = addonsFound \\ knownCommands
|
|
|
|
adjustline l | " hledger " `isPrefixOf` l = [l]
|
|
adjustline l@('+':_) | cmd `notElem` commandsFound = []
|
|
where
|
|
cmd = takeWhile (not . isSpace) l
|
|
adjustline l = [l]
|
|
|
|
|
|
-- The test command is defined here for easy access to other modules' tests.
|
|
|
|
testmode = hledgerCommandMode
|
|
$(embedFileRelative "Hledger/Cli/Commands/Test.txt")
|
|
[]
|
|
[generalflagsgroup3]
|
|
[]
|
|
([], Just $ argsFlag "[-- TASTYOPTS]")
|
|
|
|
-- | The test command, which runs the hledger and hledger-lib
|
|
-- packages' unit tests. This command also accepts tasty test runner
|
|
-- options, written after a -- (double hyphen).
|
|
--
|
|
-- Unlike most hledger commands, this one does not read the user's journal.
|
|
-- A 'Journal' argument remains in the type signature, but it should
|
|
-- not be used (and would raise an error).
|
|
--
|
|
testcmd :: CliOpts -> Journal -> IO ()
|
|
testcmd opts _undefined = do
|
|
withArgs (listofstringopt "args" $ rawopts_ opts) $
|
|
Test.Tasty.defaultMain $ testGroup "hledger" [
|
|
tests_Hledger
|
|
,tests_Hledger_Cli
|
|
]
|
|
|
|
-- All unit tests for Hledger.Cli, defined here rather than
|
|
-- Hledger.Cli so testcmd can use them.
|
|
tests_Hledger_Cli = testGroup "Hledger.Cli" [
|
|
tests_Cli_Utils
|
|
,tests_Commands
|
|
]
|
|
|
|
tests_Commands = testGroup "Commands" [
|
|
tests_Balance
|
|
,tests_Register
|
|
,tests_Aregister
|
|
|
|
-- some more tests easiest to define here:
|
|
|
|
,testGroup "apply account directive" [
|
|
testCase "works" $ do
|
|
let
|
|
ignoresourcepos j = j{jtxns=map (\t -> t{tsourcepos=nullsourcepos}) (jtxns j)}
|
|
sameParse str1 str2 = do
|
|
j1 <- ignoresourcepos <$> readJournal' str1 -- PARTIAL:
|
|
j2 <- ignoresourcepos <$> readJournal' str2 -- PARTIAL:
|
|
j1 @?= j2{jlastreadtime=jlastreadtime j1, jfiles=jfiles j1} --, jparsestate=jparsestate j1}
|
|
sameParse
|
|
("2008/12/07 One\n alpha $-1\n beta $1\n" <>
|
|
"apply account outer\n2008/12/07 Two\n aigh $-2\n bee $2\n" <>
|
|
"apply account inner\n2008/12/07 Three\n gamma $-3\n delta $3\n" <>
|
|
"end apply account\n2008/12/07 Four\n why $-4\n zed $4\n" <>
|
|
"end apply account\n2008/12/07 Five\n foo $-5\n bar $5\n"
|
|
)
|
|
("2008/12/07 One\n alpha $-1\n beta $1\n" <>
|
|
"2008/12/07 Two\n outer:aigh $-2\n outer:bee $2\n" <>
|
|
"2008/12/07 Three\n outer:inner:gamma $-3\n outer:inner:delta $3\n" <>
|
|
"2008/12/07 Four\n outer:why $-4\n outer:zed $4\n" <>
|
|
"2008/12/07 Five\n foo $-5\n bar $5\n"
|
|
)
|
|
|
|
,testCase "preserves \"virtual\" posting type" $ do
|
|
j <- readJournal' "apply account test\n2008/12/07 One\n (from) $-1\n (to) $1\n" -- PARTIAL:
|
|
let p = head $ tpostings $ head $ jtxns j
|
|
paccount p @?= "test:from"
|
|
ptype p @?= VirtualPosting
|
|
]
|
|
|
|
,testCase "alias directive" $ do
|
|
j <- readJournal' "!alias expenses = equity:draw:personal\n1/1\n (expenses:food) 1\n" -- PARTIAL:
|
|
let p = head $ tpostings $ head $ jtxns j
|
|
paccount p @?= "equity:draw:personal:food"
|
|
|
|
,testCase "Y default year directive" $ do
|
|
j <- readJournal' defaultyear_journal_txt -- PARTIAL:
|
|
tdate (head $ jtxns j) @?= fromGregorian 2009 1 1
|
|
|
|
,testCase "ledgerAccountNames" $
|
|
(ledgerAccountNames ledger7)
|
|
@?=
|
|
["assets","assets:cash","assets:checking","assets:saving","equity","equity:opening balances",
|
|
"expenses","expenses:food","expenses:food:dining","expenses:phone","expenses:vacation",
|
|
"liabilities","liabilities:credit cards","liabilities:credit cards:discover"]
|
|
|
|
-- ,testCase "journalCanonicaliseAmounts" ~:
|
|
-- "use the greatest precision" ~:
|
|
-- (map asprecision $ journalAmountAndPriceCommodities $ journalCanonicaliseAmounts $ journalWithAmounts ["1","2.00"]) @?= [2,2]
|
|
|
|
-- don't know what this should do
|
|
-- ,testCase "elideAccountName" ~: do
|
|
-- (elideAccountName 50 "aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa"
|
|
-- @?= "aa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa")
|
|
-- (elideAccountName 20 "aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa"
|
|
-- @?= "aa:aa:aaaaaaaaaaaaaa")
|
|
|
|
,testCase "show dollars" $ showAmount (usd 1) @?= "$1.00"
|
|
|
|
,testCase "show hours" $ showAmount (hrs 1) @?= "1.00h"
|
|
|
|
]
|
|
|
|
-- test data
|
|
|
|
-- date1 = fromGregorian 2008 11 26
|
|
-- t1 = LocalTime date1 midday
|
|
|
|
{-
|
|
samplejournal = readJournal' sample_journal_str
|
|
|
|
sample_journal_str = unlines
|
|
["; A sample journal file."
|
|
,";"
|
|
,"; Sets up this account tree:"
|
|
,"; assets"
|
|
,"; bank"
|
|
,"; checking"
|
|
,"; saving"
|
|
,"; cash"
|
|
,"; expenses"
|
|
,"; food"
|
|
,"; supplies"
|
|
,"; income"
|
|
,"; gifts"
|
|
,"; salary"
|
|
,"; liabilities"
|
|
,"; debts"
|
|
,""
|
|
,"2008/01/01 income"
|
|
," assets:bank:checking $1"
|
|
," income:salary"
|
|
,""
|
|
,"2008/06/01 gift"
|
|
," assets:bank:checking $1"
|
|
," income:gifts"
|
|
,""
|
|
,"2008/06/02 save"
|
|
," assets:bank:saving $1"
|
|
," assets:bank:checking"
|
|
,""
|
|
,"2008/06/03 * eat & shop"
|
|
," expenses:food $1"
|
|
," expenses:supplies $1"
|
|
," assets:cash"
|
|
,""
|
|
,"2008/12/31 * pay off"
|
|
," liabilities:debts $1"
|
|
," assets:bank:checking"
|
|
,""
|
|
,""
|
|
,";final comment"
|
|
]
|
|
-}
|
|
|
|
defaultyear_journal_txt :: Text
|
|
defaultyear_journal_txt = T.unlines
|
|
["Y2009"
|
|
,""
|
|
,"01/01 A"
|
|
," a $1"
|
|
," b"
|
|
]
|
|
|
|
-- write_sample_journal = writeFile "sample.journal" sample_journal_str
|
|
|
|
-- entry2_str = unlines
|
|
-- ["2007/01/27 * joes diner"
|
|
-- ," expenses:food:dining $10.00"
|
|
-- ," expenses:gifts $10.00"
|
|
-- ," assets:checking $-20.00"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- entry3_str = unlines
|
|
-- ["2007/01/01 * opening balance"
|
|
-- ," assets:cash $4.82"
|
|
-- ," equity:opening balances"
|
|
-- ,""
|
|
-- ,"2007/01/01 * opening balance"
|
|
-- ," assets:cash $4.82"
|
|
-- ," equity:opening balances"
|
|
-- ,""
|
|
-- ,"2007/01/28 coopportunity"
|
|
-- ," expenses:food:groceries $47.18"
|
|
-- ," assets:checking"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- periodic_entry1_str = unlines
|
|
-- ["~ monthly from 2007/2/2"
|
|
-- ," assets:saving $200.00"
|
|
-- ," assets:checking"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- periodic_entry2_str = unlines
|
|
-- ["~ monthly from 2007/2/2"
|
|
-- ," assets:saving $200.00 ;auto savings"
|
|
-- ," assets:checking"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- periodic_entry3_str = unlines
|
|
-- ["~ monthly from 2007/01/01"
|
|
-- ," assets:cash $4.82"
|
|
-- ," equity:opening balances"
|
|
-- ,""
|
|
-- ,"~ monthly from 2007/01/01"
|
|
-- ," assets:cash $4.82"
|
|
-- ," equity:opening balances"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal1_str = unlines
|
|
-- [""
|
|
-- ,"2007/01/27 * joes diner"
|
|
-- ," expenses:food:dining $10.00"
|
|
-- ," expenses:gifts $10.00"
|
|
-- ," assets:checking $-20.00"
|
|
-- ,""
|
|
-- ,""
|
|
-- ,"2007/01/28 coopportunity"
|
|
-- ," expenses:food:groceries $47.18"
|
|
-- ," assets:checking $-47.18"
|
|
-- ,""
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal2_str = unlines
|
|
-- [";comment"
|
|
-- ,"2007/01/27 * joes diner"
|
|
-- ," expenses:food:dining $10.00"
|
|
-- ," assets:checking $-47.18"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal3_str = unlines
|
|
-- ["2007/01/27 * joes diner"
|
|
-- ," expenses:food:dining $10.00"
|
|
-- ,";intra-entry comment"
|
|
-- ," assets:checking $-47.18"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal4_str = unlines
|
|
-- ["include \"somefile\""
|
|
-- ,"2007/01/27 * joes diner"
|
|
-- ," expenses:food:dining $10.00"
|
|
-- ," assets:checking $-47.18"
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal5_str = ""
|
|
|
|
-- journal6_str = unlines
|
|
-- ["~ monthly from 2007/1/21"
|
|
-- ," expenses:entertainment $16.23 ;netflix"
|
|
-- ," assets:checking"
|
|
-- ,""
|
|
-- ,"; 2007/01/01 * opening balance"
|
|
-- ,"; assets:saving $200.04"
|
|
-- ,"; equity:opening balances "
|
|
-- ,""
|
|
-- ]
|
|
|
|
-- journal7_str = unlines
|
|
-- ["2007/01/01 * opening balance"
|
|
-- ," assets:cash $4.82"
|
|
-- ," equity:opening balances "
|
|
-- ,""
|
|
-- ,"2007/01/01 * opening balance"
|
|
-- ," income:interest $-4.82"
|
|
-- ," equity:opening balances "
|
|
-- ,""
|
|
-- ,"2007/01/02 * ayres suites"
|
|
-- ," expenses:vacation $179.92"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ,"2007/01/02 * auto transfer to savings"
|
|
-- ," assets:saving $200.00"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ,"2007/01/03 * poquito mas"
|
|
-- ," expenses:food:dining $4.82"
|
|
-- ," assets:cash "
|
|
-- ,""
|
|
-- ,"2007/01/03 * verizon"
|
|
-- ," expenses:phone $95.11"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ,"2007/01/03 * discover"
|
|
-- ," liabilities:credit cards:discover $80.00"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ,"2007/01/04 * blue cross"
|
|
-- ," expenses:health:insurance $90.00"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ,"2007/01/05 * village market liquor"
|
|
-- ," expenses:food:dining $6.48"
|
|
-- ," assets:checking "
|
|
-- ,""
|
|
-- ]
|
|
|
|
journal7 :: Journal
|
|
journal7 = 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 = ledgerFromJournal Any journal7
|