Add mathmode? option to katex-convert-unicode

SuzanneSoy · Jul 12, 2017 · 4386f65 · 4386f65
1 parent e1f3c3d
commit 4386f65
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/katex-convert-unicode.rkt b/katex-convert-unicode.rkt
@@ -8,7 +8,7 @@
                  (string-join (map regexp-quote literal-alternatives) "|")
                  ")"))
 
-(define (string-replace* str sym→*)
+(define (string-replace* str mathmode? sym→*)
   (define →* (map (λ (x)
                     (cons (symbol->string (car x))
                           (cadr x)))
@@ -17,12 +17,16 @@
   (regexp-replace* (literal-alternatives→regexp (map car →*))
                    str
                    (λ (found . _)
-                     (hash-ref hash→* found))))
+                     (let ([replacement (hash-ref hash→* found)])
+                       (if mathmode?
+                           replacement
+                           (string-append "$" replacement "$"))))))
 
-(define (katex-convert-unicode str)
+(define (katex-convert-unicode str mathmode?)
   (if (string? str)
       (string-replace*
        str
+       mathmode?
        '([₀ "{}_0"]
          [₁ "{}_1"]
          [₂ "{}_2"]