Revert "add txexpr->html"

This reverts commit 951f467818.
dev-53
Matthew Butterick 11 years ago
parent 951f467818
commit 6348c1f897

@ -222,16 +222,3 @@
(define tx-extracted (do-extraction tx)) ;; do this first to fill matches
(values tx-extracted (reverse matches)))
(define+provide+safe (txexpr->html x)
(txexpr? . -> . string?)
(define (->cdata x)
(if (cdata? x) x (cdata #f #f x)))
(xexpr->string (let loop ([x x])
(cond
[(txexpr? x) (if (member (get-tag x) '(script style))
(make-txexpr (get-tag x) (get-attrs x) (map ->cdata (get-elements x)))
(make-txexpr (get-tag x) (get-attrs x) (map loop (get-elements x))))]
[else x]))))

Loading…
Cancel
Save