slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

resolve conflicts/explain (Add: filter relevant transactions by account)

Browse Source 
Previously, we supported "hledger add [DESCRIPTION]". A DESCRIPTION just
pre-filled the description field and bypassed that prompt, after which
existing transactions with similar descriptions were offered as
defaults/reminders.

Now, we support "hledger add [ACCOUNTPATTERN]" instead. After the
description prompt, existing transactions with similar descriptions *and*
which match ACCOUNTPATTERN are offered as defaults. This can be helpful eg
with a multi-person ledger, to match only your own transactions.
This commit is contained in:
Simon Michael 2010-02-04 15:57:19 +00:00
parent 20b243a3a3
commit 8310eaa6ff
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Commands/Add.hs
View File

@ -178,13 +178,13 @@ compareLedgerDescriptions s t = compareStrings s' t'
t' = simplify t t' = simplify t
simplify = filter (not . (`elem` "0123456789")) simplify = filter (not . (`elem` "0123456789"))
transactionsSimilarTo :: Ledger -> String -> [(Double,LedgerTransaction)] transactionsSimilarTo :: Ledger -> [String] -> String -> [(Double,Transaction)]
transactionsSimilarTo l s = transactionsSimilarTo l apats s =
sortBy compareRelevanceAndRecency sortBy compareRelevanceAndRecency
$ filter ((> threshold).fst) $ filter ((> threshold).fst)
[(compareLedgerDescriptions s $ tdescription t, t) | t <- ts] [(compareLedgerDescriptions s $ tdescription t, t) | t <- ts]
where where
compareRelevanceAndRecency (n1,t1) (n2,t2) = compare (n2,ltdate t2) (n1,ltdate t1) compareRelevanceAndRecency (n1,t1) (n2,t2) = compare (n2,tdate t2) (n1,tdate t1)
ts = ledger_txns $ rawledger l ts = jtxns $ filterJournalTransactionsByAccount apats $ journal l
threshold = 0 threshold = 0