conservatory
/
unroff
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support .UR and .UE

This commit is contained in:
Lassi Kortela 2023-02-15 15:10:58 +02:00
parent 8d14fa2997
commit a89f23973c
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scm/html/man.scm
View File

@ -332,6 +332,17 @@
(concat (hang-para #f) "<br>\n")))) (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. ;;; Bogus or SunOS-specific stuff.