Filter by payee by clicking on it

hledger-web/Hledger/Web/Handler/JournalR.hs

@@ -48,6 +48,7 @@ getJournalR = do
        -- 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) <> "\"")])
       addCodeQuery code = (JournalR, [("q", qparam <> " \"code:" <> escapeRegex code <> "\"")])
+      addPayeeQuery code = (JournalR, [("q", qparam <> " \"payee:" <> escapeRegex code <> "\"")])
 
   defaultLayout $ do
     setTitle "päiväkirja - hledger-web"

hledger-web/templates/journal.hamlet

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