sdaveb/cmark
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update the Racket wrapper with the safe -> unsafe flag change

Browse Source
This commit is contained in:
Eli Barzilay 2020-09-30 22:44:19 -04:00 committed by John MacFarlane
parent 3c414872cf
commit 8410d2c2ae
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
wrappers/wrapper.rkt
View File

@ -32,15 +32,17 @@
(define _cmark_delim_type (define _cmark_delim_type
(_enum '(no_delim period_delim paren_delim))) (_enum '(no_delim period_delim paren_delim)))
(define _cmark_opts (define _cmark_opts
(_bitmask (let ([opts '([sourcepos 1] ; include sourcepos attribute on block elements
'(sourcepos = 2 ; include sourcepos attribute on block elements [hardbreaks 2] ; render `softbreak` elements as hard line breaks
hardbreaks = 4 ; render `softbreak` elements as hard line breaks [safe 3] ; defined here for API compatibility (on by default)
safe = 8 ; suppress raw HTML and unsafe links [unsafe 17] ; render raw HTML and unsafe links
nobreaks = 16 ; render `softbreak` elements as spaces [nobreaks 4] ; render `softbreak` elements as spaces
normalize = 256 ; legacy (no effect) [normalize 8] ; legacy (no effect)
validate-utf8 = 512 ; validate UTF-8 in the input [validate-utf8 9] ; validate UTF-8 in the input
smart = 1024 ; straight quotes to curly, ---/-- to em/en dashes [smart 10] ; straight quotes to curly, ---/-- to em/en dashes
))) )])
(_bitmask (apply append (map (λ(o) `(,(car o) = ,(expt 2 (cadr o))))
opts)))))
(define-cpointer-type _node) (define-cpointer-type _node)