fix get-challenge script
This commit is contained in:
parent
f54047466a
commit
7f0b579a01
|
@ -16,7 +16,7 @@
|
|||
(define (xexpr->style-ast doc)
|
||||
(match doc
|
||||
[(? string?) (style-ast #f #f #f doc)]
|
||||
[(list 'script _ ...) #f]
|
||||
[(list (or 'script 'form) _ ...) #f]
|
||||
[(list-no-order 'p (list 'span (list-no-order '(class "share")) _ ...) _ ...) #f]
|
||||
[(list 'li _ children ...)
|
||||
(define out-children (filter identity (map xexpr->style-ast children)))
|
||||
|
@ -38,7 +38,7 @@
|
|||
[('em _) (values #f #f 'bold)]
|
||||
[(_ _)
|
||||
(printf "warning: unhandled ~a ~a\n" tag attrs)
|
||||
(#f #f #f)]))
|
||||
(values #f #f #f)]))
|
||||
(define inner-children (filter identity (map xexpr->style-ast children)))
|
||||
(define new-children
|
||||
(if ((or/c 'h2 'pre 'p) tag)
|
||||
|
|
Loading…
Reference in New Issue