From 961fd71e57081828b61d6021917393020ad03ddb Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Fri, 16 Jan 2026 12:02:09 +0200
Subject: [PATCH] Display transaction code in hledger-web

---
 hledger-web/Hledger/Web/Handler/JournalR.hs | 2 ++
 hledger-web/static/hledger.css              | 5 +++++
 hledger-web/templates/journal.hamlet        | 3 +++
 3 files changed, 10 insertions(+)

diff --git a/hledger-web/Hledger/Web/Handler/JournalR.hs b/hledger-web/Hledger/Web/Handler/JournalR.hs
index 68ac91b1c..da1494885 100644
--- a/hledger-web/Hledger/Web/Handler/JournalR.hs
+++ b/hledger-web/Hledger/Web/Handler/JournalR.hs
@@ -7,6 +7,8 @@
 
 module Hledger.Web.Handler.JournalR where
 
+import qualified Data.Text as T -- for journal.hamlet
+
 import Hledger
 import Hledger.Cli.CliOptions
 import Hledger.Web.Import
diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css
index aa111b704..53e045e9d 100644
--- a/hledger-web/static/hledger.css
+++ b/hledger-web/static/hledger.css
@@ -227,6 +227,11 @@ ul {
     whitespace: nowrap;
 }
 
+.transaction-code {
+    font-family: monospace;
+    color: #888;
+}
+
 .col-any-0 {
     width:0 !important;
     height:0 !important;
diff --git a/hledger-web/templates/journal.hamlet b/hledger-web/templates/journal.hamlet
index 26a19fe82..ef5537280 100644
--- a/hledger-web/templates/journal.hamlet
+++ b/hledger-web/templates/journal.hamlet
@@ -12,6 +12,9 @@ $if elem AddPermission perms
         <div .title title="#{showTransaction torig}">
           <time .date datetime="#{show (tdate torig)}" nowrap>
             #{show (tdate torig)}
+          $if not $ T.null $ tcode torig
+            <div .transaction-code>
+              (#{tcode torig})
           <div>
             #{textElideRight 60 (tdescription torig)}