New characters and fixes.

katex-convert-unicode.rkt

@@ -1,4 +1,4 @@
-#lang racket/base
+#lang at-exp racket/base
 (require racket/string)
 
 (provide katex-convert-unicode)
@@ -27,7 +27,7 @@
       (string-replace*
        str
        mathmode?
-       '([₀ "{}_0"]
+       `([₀ "{}_0"]
          [₁ "{}_1"]
          [₂ "{}_2"]
          [₃ "{}_3"]
@@ -44,6 +44,7 @@
          [ₘ "{}_m"]
          [ₙ "{}_n"]
          [ₒ "{}_o"]
+         [ₓ "{}_x"]
          [⁰ "{}^0"]
          [¹ "{}^1"]
          [² "{}^2"]
@@ -61,45 +62,46 @@
          [ᵐ "{}^m"]
          [ⁿ "{}^n"]
          [ᵒ "{}^o"]
-         [⊆ "\\subseteq" "\\ensuremath{\\subseteq}"]
-         [⊂ "\\subset" "\\ensuremath{\\subset}"]
-         [⊇ "\\supseteq" "\\ensuremath{\\supseteq}"]
-         [⊃ "\\supset" "\\ensuremath{\\supset}"]
-         [→ "\\rightarrow" "\\ensuremath{\\rightarrow}"]
-         [⇒ "\\Rightarrow" "\\ensuremath{\\Rightarrow}"]
-         [← "\\leftarrow" "\\ensuremath{\\leftarrow}"]
-         [⇐ "\\Leftarrow" "\\ensuremath{\\Leftarrow}"]
-         [↔ "\\leftrightarrow" "\\ensuremath{\\leftrightarrow}"]
-         [⇔ "\\Leftrightarrow" "\\ensuremath{\\Leftrightarrow}"]
+         [⊆ "\\subseteq{}" "\\ensuremath{\\subseteq}"]
+         [⊂ "\\subset{}" "\\ensuremath{\\subset}"]
+         [⊇ "\\supseteq{}" "\\ensuremath{\\supseteq}"]
+         [⊃ "\\supset{}" "\\ensuremath{\\supset}"]
+         [→ "\\rightarrow{}" "\\ensuremath{\\rightarrow}"]
+         [⇒ "\\Rightarrow{}" "\\ensuremath{\\Rightarrow}"]
+         [← "\\leftarrow{}" "\\ensuremath{\\leftarrow}"]
+         [⇐ "\\Leftarrow{}" "\\ensuremath{\\Leftarrow}"]
+         [↔ "\\leftrightarrow{}" "\\ensuremath{\\leftrightarrow}"]
+         [⇔ "\\Leftrightarrow{}" "\\ensuremath{\\Leftrightarrow}"]
          ;; Partially extracted from my .XCompose generator
          [ñ "\\tilde{n}" "{\\ifmmode\\tilde{n}\\else\\~{n}\\fi}"]
          [Ñ "\\tilde{N}" "{\\ifmmode\\tilde{N}\\else\\~{N}\\fi}"]
-         [⋆ "\\star" "\\ensuremath{\\star}"]
+         [⋆ "\\star{}" "\\ensuremath{\\star}"]
          [⍣ "\\ddot{\\star}}" "\\ensuremath{\\ddot{\\star}}"]
          [⃰ "^*" "^*"]
-         [⟨ "\\langle" "\\ensuremath{\\mathsmaller{\\raisemath{.15ex}{\\langle}}}"]
-         [⟩ "\\rangle" "\\ensuremath{\\mathsmaller{\\raisemath{.15ex}{\\rangle}}}"]
-         [⋯ "\\cdots"]
-         [⋮ "\\vdots"]
-         [⋰ "\\iddots"]
-         [⋱ "\\ddots"]
+         [⟨ "\\langle{}" "\\ensuremath{\\mathsmaller{\\raisemath{.15ex}{\\langle}}}"]
+         [⟩ "\\rangle{}" "\\ensuremath{\\mathsmaller{\\raisemath{.15ex}{\\rangle}}}"]
+         [⋯ "\\cdots{}"]
+         [⋮ "\\vdots{}"]
+         [⋰ "\\iddots{}"]
+         [⋱ "\\ddots{}"]
          [⧺ "\\mathbin{+\\mkern-6.5mu+}" "\\ensuremath{\\mathbin{+\\mkern-6.5mu+}}"]
-         [∅ "\\emptyset" "\\ensuremath{\\emptyset}"]
+         [∅ "\\emptyset{}" "\\ensuremath{\\emptyset}"]
          [ı⃗ "\\vec{\\i}}" "\\ensuremath{\\vec{\\i}"]
-         [⊕ "\\oplus" "\\ensuremath{\\oplus}"]
-         [⊖ "\\ominus" "\\ensuremath{\\ominus}"]
-         [⋓ "\\Cup" "\\ensuremath{\\Cup}"]
+         [⊕ "\\oplus{}" "\\ensuremath{\\oplus}"]
+         [⊖ "\\ominus{}" "\\ensuremath{\\ominus}"]
+         [⋓ "\\Cup{}" "\\ensuremath{\\Cup}"]
          ;[ₗ "\\ensuremath{_{l}}"]
          [∷ "::"]
-         [Λ "\\Lambda" "\\ensuremath{\\Lambda}"]
-         [∀ "\\forall"]
-         [∃ "\\exists"]
-         [≡ "\\equiv"]
-         [≢ "\not\\equiv"]
-         [… "\\ldots"]
-         [⋯ "\\cdots"]
-         [⋰ "\\uddots"] ;; or \iddots from package mathdots, see http://tex.stackexchange.com/a/17650
-         [⋱ "\\ddots"]
-         [∌ "\\notni"]
-         [ℰ "\\mathcal{E}"]))
+         [Λ "\\Lambda{}" "\\ensuremath{\\Lambda}"]
+         [∀ "\\forall{}"]
+         [∃ "\\exists{}"]
+         [≡ "\\equiv{}"]
+         [≢ "\\not\\equiv{}"]
+         [… "\\ldots{}"]
+         [⋯ "\\cdots{}"]
+         [⋰ "\\uddots{}"] ;; or \iddots from package mathdots, see http://tex.stackexchange.com/a/17650
+         [⋱ "\\ddots{}"]
+         [∌ "\\notni{}"]
+         [ℰ "\\mathcal{E}"]
+         ))
       str))