From a89f23973cbf689b6da2d8b12c6b30364ffa63eb Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Wed, 15 Feb 2023 15:10:58 +0200
Subject: [PATCH] Support .UR and .UE

---
 scm/html/man.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/scm/html/man.scm b/scm/html/man.scm
index 24bc4d0..b59f606 100644
--- a/scm/html/man.scm
+++ b/scm/html/man.scm
@@ -332,6 +332,17 @@
         (concat (hang-para #f) "<br>\n"))))
 
 
+;;; --------------------------------------------------------------------------
+;;; Internet URIs.
+
+(defmacro 'UR
+  (lambda (UR uri)
+    (format #f "<a href=\"~a\"><code>~a</code></a>" uri uri)))
+
+(defmacro 'UE
+  (lambda (UE . words)
+    (parse (apply spread words) #\newline)))
+
 
 ;;; --------------------------------------------------------------------------
 ;;; Bogus or SunOS-specific stuff.