[elpa] master 6d2ba0a 20/29: [Fix #5] Add subscript and superscripts lists

[Vitalie Spinu]

branch: master
commit 6d2ba0af357b6da4474f437356099bc86c0e5971
Author: Vitalie Spinu <address@hidden>
Commit: Vitalie Spinu <address@hidden>

    [Fix #5] Add subscript and superscripts lists
---
 math-symbol-lists.el | 109 +++++++++++++++++++++++++++++++++++++++++++++++++++
 msl-build.el         |  30 ++++++++++++++
 2 files changed, 139 insertions(+)

diff --git a/math-symbol-lists.el b/math-symbol-lists.el
index fce8113..06b3cc4 100644
--- a/math-symbol-lists.el
+++ b/math-symbol-lists.el
@@ -3573,4 +3573,113 @@ more details. Package 'literal' corresponds to core 
(La)TeX.
    [1] http://milde.users.sourceforge.net/LUCR/Math/
 ")
 
+(defconst math-symbol-list-subscripts
+  '(("subscript" "_0" 8320 "₀")
+    ("subscript" "_1" 8321 "₁")
+    ("subscript" "_2" 8322 "₂")
+    ("subscript" "_3" 8323 "₃")
+    ("subscript" "_4" 8324 "₄")
+    ("subscript" "_5" 8325 "₅")
+    ("subscript" "_6" 8326 "₆")
+    ("subscript" "_7" 8327 "₇")
+    ("subscript" "_8" 8328 "₈")
+    ("subscript" "_9" 8329 "₉")
+    ("subscript" "_+" 8330 "₊")
+    ("subscript" "_-" 8331 "₋")
+    ("subscript" "_=" 8332 "₌")
+    ("subscript" "_(" 8333 "₍")
+    ("subscript" "_)" 8334 "₎")
+    ("subscript" "_a" 8336 "ₐ")
+    ("subscript" "_e" 8337 "ₑ")
+    ("subscript" "_h" 8341 "ₕ")
+    ("subscript" "_i" 7522 "ᵢ")
+    ("subscript" "_j" 11388 "ⱼ")
+    ("subscript" "_k" 8342 "ₖ")
+    ("subscript" "_l" 8343 "ₗ")
+    ("subscript" "_m" 8344 "ₘ")
+    ("subscript" "_n" 8345 "ₙ")
+    ("subscript" "_o" 8338 "ₒ")
+    ("subscript" "_p" 8346 "ₚ")
+    ("subscript" "_r" 7523 "ᵣ")
+    ("subscript" "_s" 8347 "ₛ")
+    ("subscript" "_t" 8348 "ₜ")
+    ("subscript" "_u" 7524 "ᵤ")
+    ("subscript" "_v" 7525 "ᵥ")
+    ("subscript" "_x" 8339 "ₓ")
+    ("subscript" "_beta" 7526 "ᵦ")
+    ("subscript" "_gamma" 7527 "ᵧ")
+    ("subscript" "_rho" 7528 "ᵨ")
+    ("subscript" "_varphi" 7529 "ᵩ")
+    ("subscript" "_chi" 7530 "ᵪ"))
+  "List of unicode subscripts.")
+
+(defconst math-symbol-list-superscripts
+  '(("superscripts" "^0" 8304 "⁰")
+    ("superscripts" "^1" 185 "¹")
+    ("superscripts" "^2" 178 "²")
+    ("superscripts" "^3" 179 "³")
+    ("superscripts" "^4" 8308 "⁴")
+    ("superscripts" "^5" 8309 "⁵")
+    ("superscripts" "^6" 8310 "⁶")
+    ("superscripts" "^7" 8311 "⁷")
+    ("superscripts" "^8" 8312 "⁸")
+    ("superscripts" "^9" 8313 "⁹")
+    ("superscripts" "^+" 8314 "⁺")
+    ("superscripts" "^-" 8315 "⁻")
+    ("superscripts" "^=" 8316 "⁼")
+    ("superscripts" "^(" 8317 "⁽")
+    ("superscripts" "^)" 8318 "⁾")
+    ("superscripts" "^a" 7491 "ᵃ")
+    ("superscripts" "^b" 7495 "ᵇ")
+    ("superscripts" "^c" 7580 "ᶜ")
+    ("superscripts" "^d" 7496 "ᵈ")
+    ("superscripts" "^e" 7497 "ᵉ")
+    ("superscripts" "^f" 7584 "ᶠ")
+    ("superscripts" "^g" 7501 "ᵍ")
+    ("superscripts" "^h" 688 "ʰ")
+    ("superscripts" "^i" 8305 "ⁱ")
+    ("superscripts" "^j" 690 "ʲ")
+    ("superscripts" "^k" 7503 "ᵏ")
+    ("superscripts" "^l" 737 "ˡ")
+    ("superscripts" "^m" 7504 "ᵐ")
+    ("superscripts" "^n" 8319 "ⁿ")
+    ("superscripts" "^o" 7506 "ᵒ")
+    ("superscripts" "^p" 7510 "ᵖ")
+    ("superscripts" "^r" 691 "ʳ")
+    ("superscripts" "^s" 738 "ˢ")
+    ("superscripts" "^t" 7511 "ᵗ")
+    ("superscripts" "^u" 7512 "ᵘ")
+    ("superscripts" "^v" 7515 "ᵛ")
+    ("superscripts" "^w" 695 "ʷ")
+    ("superscripts" "^x" 739 "ˣ")
+    ("superscripts" "^y" 696 "ʸ")
+    ("superscripts" "^z" 7611 "ᶻ")
+    ("superscripts" "^A" 7468 "ᴬ")
+    ("superscripts" "^B" 7470 "ᴮ")
+    ("superscripts" "^D" 7472 "ᴰ")
+    ("superscripts" "^E" 7473 "ᴱ")
+    ("superscripts" "^G" 7475 "ᴳ")
+    ("superscripts" "^H" 7476 "ᴴ")
+    ("superscripts" "^I" 7477 "ᴵ")
+    ("superscripts" "^J" 7478 "ᴶ")
+    ("superscripts" "^K" 7479 "ᴷ")
+    ("superscripts" "^L" 7480 "ᴸ")
+    ("superscripts" "^M" 7481 "ᴹ")
+    ("superscripts" "^N" 7482 "ᴺ")
+    ("superscripts" "^O" 7484 "ᴼ")
+    ("superscripts" "^P" 7486 "ᴾ")
+    ("superscripts" "^R" 7487 "ᴿ")
+    ("superscripts" "^T" 7488 "ᵀ")
+    ("superscripts" "^U" 7489 "ᵁ")
+    ("superscripts" "^V" 11389 "ⱽ")
+    ("superscripts" "^W" 7490 "ᵂ")
+    ("superscripts" "^beta" 7517 "ᵝ")
+    ("superscripts" "^gamma" 7518 "ᵞ")
+    ("superscripts" "^delta" 7519 "ᵟ")
+    ("superscripts" "^theta" 7615 "ᶿ")
+    ("superscripts" "^iota" 7589 "ᶥ")
+    ("superscripts" "^varphi" 7520 "ᵠ")
+    ("superscripts" "^chi" 7521 "ᵡ"))
+  "List of unicode superscripts.")
+
 (provide 'math-symbol-lists)
diff --git a/msl-build.el b/msl-build.el
index 2c690f2..202c4bd 100644
--- a/msl-build.el
+++ b/msl-build.el
@@ -113,3 +113,33 @@ command from alias field. "
 (msl--LUCR-to-msl tt t)
 ;; aliases
 (msl--LUCR-to-msl tt nil t)
+
+
+;; SUBSCRIPTS and SUPERSCRIPTS
+
+(defvar subscripts )
+(defvar superscripts 
"ⱽª²³¹ºʰʱʲʳʴʵʶʷʸˠˡˢˣᴬᴭᴮᴯᴰᴱᴲᴳᴴᴵᴶᴷᴸᴹᴺᴻᴼᴽᴾᴿᵀᵁᵂᵃᵄᵅᵆᵇᵈᵉᵊᵋᵌᵍᵎᵏᵐᵑᵒᵓᵔᵕᵖᵗᵘᵙᵚᵛᵜᵝᵞᵟᵠᵡᵸᶛᶜᶝᶞᶟᶠᶡᶢᶣᶤᶥᶦᶧᶨᶩᶪᶫᶬᶭᶮᶯᶰᶱᶲᶳᶴᶵᶶᶷᶸᶹᶺᶻᶼᶽᶾᶿ⁰ⁱ⁴⁵⁶⁷⁸⁹⁺⁻⁼⁽⁾ⁿ")
+
+;; taken from 
https://github.com/tpapp/company-unicode-subsuper/blob/master/company-unicode-subsuper.el
+(defconst unicode-name-table
+  '((?β . "beta")
+    (?γ . "gamma")
+    (?δ . "delta")
+    (?θ . "theta")
+    (?ɩ . "iota")
+    (?φ . "varphi")                     ; varphi instead of phi, as in LaTeX
+    (?χ . "chi")
+    (?ρ . "rho")
+    (?− . "-"))                         ; replace #x2212 with minus sign
+  "table for entering characters outside the ASCII range. Follows conventions 
of LaTeX for Greek letters, but without the \\ prefix.")
+
+(defun gen-scirpted-alist (char-str type prefix)
+  (mapcar (lambda (c)
+            (let* ((dec (cdr (get-char-code-property c 'decomposition)))
+                   (plain (or (cdr (assoc (car dec) unicode-name-table)) dec)))
+              (list type (concat prefix plain) c (char-to-string c))))
+          char-str))
+
+(gen-scirpted-alist "₀₁₂₃₄₅₆₇₈₉₊₋₌₍₎ₐₑₕᵢⱼₖₗₘₙₒₚᵣₛₜᵤᵥₓᵦᵧᵨᵩᵪ" "subscript" "_")
+(gen-scirpted-alist 
"⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁼⁽⁾ᵃᵇᶜᵈᵉᶠᵍʰⁱʲᵏˡᵐⁿᵒᵖʳˢᵗᵘᵛʷˣʸᶻᴬᴮᴰᴱᴳᴴᴵᴶᴷᴸᴹᴺᴼᴾᴿᵀᵁⱽᵂᵝᵞᵟᶿᶥᵠᵡ" 
"superscripts" "^")
+