|
|
|
@ -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.
|
|
|
|
|