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

2003-03-13 12:07:29 +00:00 · 2003-03-13 12:07:29 +00:00 · dcce51cc3f
parent 39066ac109
commit dcce51cc3f
1 changed files with 4 additions and 4 deletions
--- a/scheme/httpd/surflets/surflet-sxml.scm
+++ b/scheme/httpd/surflets/surflet-sxml.scm
@ -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