cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Fix (& x) forms in update-tree

Browse source
This commit is contained in:
Cadence Ember 2022-09-05 13:34:16 +12:00
parent 6be10ed319
commit 44906015a5
Signed by: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/xexpr-utils.rkt
View file

@ -158,7 +158,8 @@
(define attributes (bits->attributes (cdr element))) (define attributes (bits->attributes (cdr element)))
(define contents (filter element-is-content? (cdr element))) ; provide elements and strings (define contents (filter element-is-content? (cdr element))) ; provide elements and strings
(if (or (equal? element-type '*DECL) (if (or (equal? element-type '*DECL)
(equal? element-type '@)) (equal? element-type '@)
(equal? element-type '&))
; special element, do nothing ; special element, do nothing
element element
; regular element, transform it ; regular element, transform it
@ -169,6 +170,10 @@
(map (λ (content) (map (λ (content)
(if (element-is-element? content) (loop content) content)) (if (element-is-element? content) (loop content) content))
contents))])))) contents))]))))
(module+ test
; check (& x) sequences are preserved
(check-equal? (update-tree (λ (e t a c) (list t a c)) '(body "Hey" (& nbsp) (a (@ (href "/")))))
'(body "Hey" (& nbsp) (a (@ (href "/"))))))
(define (has-class? name attributes) (define (has-class? name attributes)
(and (member name (string-split (or (get-attribute 'class attributes) "") " ")) #t)) (and (member name (string-split (or (get-attribute 'class attributes) "") " ")) #t))