Preprocess some unicode characters in MathJax (see #7)

SuzanneSoy · Jul 10, 2017 · e45cbe5 · e45cbe5
1 parent 98c6ac9
commit e45cbe5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/dollar.rkt b/dollar.rkt
@@ -287,12 +287,14 @@ EOTEX
          (list (tex-addition tex-commands)
                'exact-chars)))
 
+;; TODO: handle delayed elements here instead of just flattening.
 (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)
   (elem #:style math-inline-style-katex
-                (map katex-convert-unicode (flatten strs))))
+        (map katex-convert-unicode (flatten strs))))
 
 (define ($$-mathjax strs)
   (elem #:style math-display-style-mathjax strs))