From d387b7c2ab6f95e8ee91eaa3c4a1bf0e9be5c980 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Thu, 22 Jan 2026 10:34:48 +0200
Subject: [PATCH] Add links to URI-valued tags

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

diff --git a/hledger-web/Hledger/Web/Handler/JournalR.hs b/hledger-web/Hledger/Web/Handler/JournalR.hs
index da1494885..40cd4fe89 100644
--- a/hledger-web/Hledger/Web/Handler/JournalR.hs
+++ b/hledger-web/Hledger/Web/Handler/JournalR.hs
@@ -8,6 +8,7 @@
 module Hledger.Web.Handler.JournalR where
 
 import qualified Data.Text as T -- for journal.hamlet
+import qualified Text.URI as URI
 
 import Hledger
 import Hledger.Cli.CliOptions
@@ -36,6 +37,7 @@ getJournalR = do
       transactionFrag = transactionFragment j
       isVisibleTag = not . isHiddenTagName . fst
       isPostingTag account tag = not $ tag `elem` journalInheritedAccountTags j account
+      isAbsoluteURI = maybe False URI.isPathAbsolute . URI.mkURI
 
   defaultLayout $ do
     setTitle "päiväkirja - hledger-web"
diff --git a/hledger-web/templates/journal.hamlet b/hledger-web/templates/journal.hamlet
index e65d4a22d..590bcb227 100644
--- a/hledger-web/templates/journal.hamlet
+++ b/hledger-web/templates/journal.hamlet
@@ -43,7 +43,10 @@ $if elem AddPermission perms
                     #{tagName}
                   $if not $ T.null $ T.strip tagValue
                     <div .tag-value>
-                      #{tagValue}
+                      $if isAbsoluteURI tagValue
+                        <a href="#{tagValue}">#{tagValue}
+                      $else
+                        #{tagValue}
 
         <ul .postings>
           $forall Posting { paccount = acc, pamount = amt, ptags = tags } <- tpostings torig
@@ -63,7 +66,10 @@ $if elem AddPermission perms
                         #{tagName}
                       $if not $ T.null $ T.strip tagValue
                         <div .tag-value>
-                          #{tagValue}
+                          $if isAbsoluteURI tagValue
+                            <a href="#{tagValue}">#{tagValue}
+                          $else
+                            #{tagValue}
 
 $if elem AddPermission perms
   ^{addModal AddR j today}