Let URL-RULE use SURFLET-SXML->LOW-LEVEL-SXML instead of writing own string list

This commit is contained in:
interp 2003-03-13 12:07:29 +00:00
parent 39066ac109
commit dcce51cc3f
1 changed files with 4 additions and 4 deletions

View File

@ -1,11 +1,11 @@
(define url-rule
(cons 'url
(lambda (tag uri . maybe-text)
(list "<a href=\"" uri "\">"
(if (null? maybe-text)
(surflet-sxml->low-level-sxml
`(a (@ (href ,uri))
,(if (null? maybe-text)
uri
maybe-text)
"</a>"))))
maybe-text))))))
(define plain-html-rule
`(plain-html