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

Filter by payee by clicking on it

Browse Source
This commit is contained in:
Saku Laesvuori 2026-01-22 21:53:12 +02:00
parent e6f8dc7a38
commit c6402d918a
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Hledger/Web/Handler/JournalR.hs
View File

@ -48,6 +48,7 @@ getJournalR = do
-- XXX:is there no way to escape quotes in queries -- XXX:is there no way to escape quotes in queries
addTagQuery name value = (JournalR, [("q", qparam <> " \"tag:" <> escapeRegex name <> (if T.null value then "" else "=" <> escapeRegex value) <> "\"")]) addTagQuery name value = (JournalR, [("q", qparam <> " \"tag:" <> escapeRegex name <> (if T.null value then "" else "=" <> escapeRegex value) <> "\"")])
addCodeQuery code = (JournalR, [("q", qparam <> " \"code:" <> escapeRegex code <> "\"")]) addCodeQuery code = (JournalR, [("q", qparam <> " \"code:" <> escapeRegex code <> "\"")])
addPayeeQuery code = (JournalR, [("q", qparam <> " \"payee:" <> escapeRegex code <> "\"")])
defaultLayout $ do defaultLayout $ do
setTitle "päiväkirja - hledger-web" setTitle "päiväkirja - hledger-web"

1
hledger-web/templates/journal.hamlet
View File

@ -29,6 +29,7 @@ $if elem AddPermission perms
(#{tcode torig}) (#{tcode torig})
$if not $ T.null $ T.strip payee $if not $ T.null $ T.strip payee
<span .transaction-payee> <span .transaction-payee>
<a href=@?{addPayeeQuery payee} .filter>
#{payee} #{payee}
$if not $ T.null $ T.strip note $if not $ T.null $ T.strip note
<details .transaction-note .elided-text> <details .transaction-note .elided-text>