haskal
/
aoc2020
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix get-challenge script

This commit is contained in:
xenia 2020-12-03 00:17:52 -05:00
parent f54047466a
commit 7f0b579a01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/get-challenge
View File

@ -16,7 +16,7 @@
(define (xexpr->style-ast doc) (define (xexpr->style-ast doc)
(match doc (match doc
[(? string?) (style-ast #f #f #f 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-no-order 'p (list 'span (list-no-order '(class "share")) _ ...) _ ...) #f]
[(list 'li _ children ...) [(list 'li _ children ...)
(define out-children (filter identity (map xexpr->style-ast children))) (define out-children (filter identity (map xexpr->style-ast children)))
@ -38,7 +38,7 @@
[('em _) (values #f #f 'bold)] [('em _) (values #f #f 'bold)]
[(_ _) [(_ _)
(printf "warning: unhandled ~a ~a\n" tag attrs) (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 inner-children (filter identity (map xexpr->style-ast children)))
(define new-children (define new-children
(if ((or/c 'h2 'pre 'p) tag) (if ((or/c 'h2 'pre 'p) tag)