Display transaction code in hledger-web

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

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;

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)}