Let URL-RULE use SURFLET-SXML->LOW-LEVEL-SXML instead of writing own string list
This commit is contained in:
parent
39066ac109
commit
dcce51cc3f
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue