mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

drop empty attributes in `html->xexpr`

Browse Source
pull/108/merge
Matthew Butterick 9 years ago
parent 551b0ae046
commit 97b6dbb977
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
convert.rkt
Unescape Escape View File

@ -29,7 +29,7 @@
[(struct pcdata (start stop string)) string] [(struct pcdata (start stop string)) string]
[(struct entity (start stop entity)) entity] [(struct entity (start stop entity)) entity]
[(struct attribute (start stop key value)) (list key value)] [(struct attribute (start stop key value)) (list key value)]
[(struct element (start stop name attributes content)) `(,name ,(map loop attributes) ,@(map loop content))] [(struct element (start stop name attributes content)) `(,name ,@(if (empty? attributes) empty (list (map loop attributes))) ,@(map loop content))]
[(list elements ...) (map loop elements)] [(list elements ...) (map loop elements)]
[else (format "unknown item: ~a" elem)]))) [else (format "unknown item: ~a" elem)])))

Write Preview
Loading…
Cancel
Save