From e45cbe5c74f769ccd8c868d8ec69ba95e78219b5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Tue, 11 Jul 2017 00:58:00 +0200
Subject: [PATCH] Preprocess some unicode characters in MathJax (see #7)

---
 dollar.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/dollar.rkt b/dollar.rkt
index 52fb12e0e..4f769b2dd 100644
--- 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))