From 8cd03167ca0bd47efd9b7c9b12aabebbe228b36c Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Fri, 19 Apr 2024 09:04:08 +0200
Subject: mod/notification-matrix: string protocol for display

---
 mod/notification-matrix.rsc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'mod')

diff --git a/mod/notification-matrix.rsc b/mod/notification-matrix.rsc
index 7eae1b0..9442f54 100644
--- a/mod/notification-matrix.rsc
+++ b/mod/notification-matrix.rsc
@@ -76,6 +76,7 @@
   :global EitherOr;
   :global FetchUserAgentStr;
   :global LogPrint;
+  :global ProtocolStrip;
   :global SymbolForNotification;
 
   :local PrepareText do={
@@ -117,11 +118,12 @@
     ($Notification->"subject")) ] . "</h2>" . "<pre><code>" . \
     [ $PrepareText ($Notification->"message") ] . "</code></pre>");
   :if ([ :len ($Notification->"link") ] > 0) do={
+    :local Label [ $ProtocolStrip ($Notification->"link") ];
     :set Plain ($Plain . "\n" . [ $SymbolForNotification "link" ] . \
-      "[" . $Notification->"link" . "](" . $Notification->"link" . ")");
+      "[" . $Label . "](" . $Notification->"link" . ")");
     :set Formatted ($Formatted . "<br/>" . [ $SymbolForNotification "link" ] . \
       "<a href=\"" . [ $PrepareText ($Notification->"link") ] . "\">" . \
-      [ $PrepareText ($Notification->"link") ] . "</a>");
+      [ $PrepareText $Label ] . "</a>");
   }
 
   :do {
-- 
cgit v1.2.3-70-g09d2