Add shortcuts for tokens.

1 files changed, 75 insertions, 2 deletions

diff --git a/isar/isar-unicode-tokens.el b/isar/isar-unicode-tokens.el
index 0564d28f..414b926a 100644
--- a/isar/isar-unicode-tokens.el
+++ b/isar/isar-unicode-tokens.el
@@ -5,8 +5,10 @@
 ;; Author:    David Aspinall <David.Aspinall@ed.ac.uk>
 ;;
 ;; This file is loaded by `proof-unicode-tokens.el'.
-;; It sets the variables defined at the top of unicode-tokens.el.
-;; unicode-tokens-<foo> is set from isar-<foo>.
+;;
+;; It sets the variables defined at the top of unicode-tokens.el,
+;; unicode-tokens-<foo> is set from isar-<foo>.  See the corresponding
+;; variable for documentation.
 ;;
 
 (defconst isar-token-format "\\<%s>")
@@ -303,6 +305,77 @@
    ("ffl" . "ffl")
    ))
 
+(defvar isar-shortcut-alist
+  '(; short cut, unicode string
+    ("<>" . "⋄")
+    ("|>" . "⊳")
+    ("\\/" . "∨")
+    ("/\\" . "∧")
+    ("+O" . "⊕")
+    ("-O" . "⊖")
+    ("xO" . "⊗")
+    ("/O" . "⊘")
+    (".O" . "⊙")
+    ("|+" . "†")
+    ("|++" . "‡")
+    ("<=" . "≤")
+    ("|-" . "⊢")
+    (">=" . "≥")
+    ("-|" . "⊣")
+    ("||" . "∥")
+    ("==" . "≡")
+    ("~=" . "≃")
+    ("~~~" . "≍")
+    ("~~" . "≈")
+    ("~==" . "≅")
+    ("|<>|" . "⋈")
+    ("|=" . "⊨")
+    ("=." . "≐")
+    ("_|_" . "⊥")
+    ("</" . "≮")
+    (">=/" . "≱")
+    ("=/" . "≠")
+    ("==/" . "≢")
+    ("~/" . "≁")
+    ("~=/" . "≄")
+    ("~~/" . "≉")
+    ("~==/" . "≇")
+    ("<-" . "←")
+    ("<=" . "⇐")
+    ("->" . "→")
+    ("=>" . "⇒")
+    ("<->" . "↔")
+    ("<=>" . "⇔")
+    ("|->" . "↦")
+    ("<--" . "⟵")
+    ("<==" . "⟸")
+    ("-->" . "⟶")
+    ("==>" . "⟹")
+    ("<==>" . "⟷")
+    ("|-->" . "⟼")
+    ("<--" . "←⎯")
+    ("<-->" . "⟷")
+    ("<<" . "⟪")
+    ("[|" . "⟦")
+    (">>" . "⟫")
+    ("|]" . "⟧")
+    ("``" . "”")
+    ("''" . "“")
+    ("--" . "–")
+    ("---" . "—")
+    ("''" . "″")
+    ("'''" . "‴")
+    ("''''" . "⁗")
+    ("nat" . "ℕ")
+    ("int" . "ℤ")
+    ("rat" . "ℚ")
+    ("real" . "ℝ")
+    ("complex" . "ℂ")
+    (":=" . "≔")
+    ("euro" . "€")
+    ("yen" . "¥")
+    ("cent" . "¢")))
+
 
 (provide 'isar-unicode-tokens)