scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add nbps-rule that inserts a  

This commit is contained in:
interp 2003-04-16 12:19:44 +00:00
parent 107cb30eb2
commit eb5f44b932
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/httpd/surflets/surflet-sxml.scm
View File

@ -12,6 +12,9 @@
*preorder* *preorder*
. ,(lambda (tag . text) text))) . ,(lambda (tag . text) text)))
(define nbsp-rule
`(nbsp . ,(lambda (_) " ")))
(define comment-rule (define comment-rule
`(*COMMENT* *preorder* `(*COMMENT* *preorder*
. ,(lambda (tag . elems) . ,(lambda (tag . elems)
@ -25,7 +28,8 @@
,text-rule ,text-rule
,comment-rule ,comment-rule
,url-rule ,url-rule
,plain-html-rule)) ,plain-html-rule
,nbsp-rule))
(define surflet-form-rule (define surflet-form-rule
`(surflet-form `(surflet-form
@ -58,7 +62,8 @@
*preorder* *preorder*
. ,(lambda (trigger input-field) . ,(lambda (trigger input-field)
(surflet-sxml->low-level-sxml (surflet-sxml->low-level-sxml
(input-field-html-tree input-field))))) ;; We need a real input-field for input-field-html-tree.
(input-field-html-tree (list trigger input-field))))))
(define surflet-sxml-rules (define surflet-sxml-rules
`(,@default-rules `(,@default-rules