Preprocess some unicode characters in MathJax (see #7)

This commit is contained in:
Georges Dupéron 2017-07-11 00:58:00 +02:00
parent 98c6ac9a57
commit e45cbe5c74

View File

@ -287,12 +287,14 @@ EOTEX
(list (tex-addition tex-commands) (list (tex-addition tex-commands)
'exact-chars))) 'exact-chars)))
;; TODO: handle delayed elements here instead of just flattening.
(define ($-mathjax strs) (define ($-mathjax strs)
(elem #:style math-inline-style-mathjax strs)) (elem #:style math-inline-style-mathjax
(map katex-convert-unicode (flatten strs))))
(define ($-katex strs) (define ($-katex strs)
(elem #:style math-inline-style-katex (elem #:style math-inline-style-katex
(map katex-convert-unicode (flatten strs)))) (map katex-convert-unicode (flatten strs))))
(define ($$-mathjax strs) (define ($$-mathjax strs)
(elem #:style math-display-style-mathjax strs)) (elem #:style math-display-style-mathjax strs))