From c6402d918a51fa0aa1a59e5f9d8027d1468ef42b Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Thu, 22 Jan 2026 21:53:12 +0200
Subject: [PATCH] Filter by payee by clicking on it

---
 hledger-web/Hledger/Web/Handler/JournalR.hs | 1 +
 hledger-web/templates/journal.hamlet        | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/Handler/JournalR.hs b/hledger-web/Hledger/Web/Handler/JournalR.hs
index 7bfaa3b5e..ac7f37881 100644
--- a/hledger-web/Hledger/Web/Handler/JournalR.hs
+++ b/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"
diff --git a/hledger-web/templates/journal.hamlet b/hledger-web/templates/journal.hamlet
index d10c39ce2..6ecbce3f4 100644
--- a/hledger-web/templates/journal.hamlet
+++ b/hledger-web/templates/journal.hamlet
@@ -29,7 +29,8 @@ $if elem AddPermission perms
                       (#{tcode torig})
                 $if not $ T.null $ T.strip payee
                   <span .transaction-payee>
-                    #{payee}
+                    <a href=@?{addPayeeQuery payee} .filter>
+                      #{payee}
             $if not $ T.null $ T.strip note
               <details .transaction-note .elided-text>
                 <summary>