Support .UR and .UE

7 months ago · a89f23973c
parent 8d14fa2997
commit a89f23973c
1 changed files with 11 additions and 0 deletions
--- 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.