minus inserterHEADmain

1 files changed, 0 insertions, 48 deletions

diff --git a/init-el.org b/init-el.org
index c0304cd..03df15b 100644
--- a/init-el.org
+++ b/init-el.org
@@ -1208,9 +1208,6 @@ Little utils for editing.
 
 =my-freaking-align= tries to align lines of text into columns.
 
-=my-special-insert= presents a menu for inserting common unicode
-characters.
-
 #+name: my-leader-special-edit
 #+begin_src elisp :noweb no-export :results none
 (message "ALIGN")
@@ -1226,7 +1223,6 @@ characters.
 (def-my-command my-special-edit-command
                 '(
                   (?l "[l]atex" latex-unicode-mode)
-                  (?i "[i]nsert" my-special-insert)
                   (?a "[a]lign"  my-freaking-align)))
 
 
@@ -1234,50 +1230,6 @@ characters.
 #+end_src
 
 
-*** My leader key Special inserts
-
-Included are common greekletters, arrows, logical symbols and some
-math symbols.
-
-#+name: my-special-inserts
-#+begin_src elisp :noweb no-export :results none
-(message "INSERTER")
-(defun inserter (what)
-  (lexical-let ((what what))
-    (lambda ()
-      (interactive)
-      (insert what))))
-
-(def-my-command my-special-insert
-  `((?l "[l] λ" ,(inserter "λ"))
-    (?a "[a] α" ,(inserter "α"))
-    (?b "[b] β" ,(inserter "β"))
-    (?g "[g] γ" ,(inserter "γ"))
-    (?p "[p] π" ,(inserter "π"))
-    (?f "[f] φ" ,(inserter "φ"))
-    (?^ "[^] ↑" ,(inserter "↑"))
-    (?v "[v] ↓" ,(inserter "↓"))
-    (?> "[>] →" ,(inserter "→"))
-    (?< "[<] ←" ,(inserter "←"))
-    (?A "[A] ∀" ,(inserter "∀"))
-    (?E "[E] ∃" ,(inserter "∃"))
-    (?. "[.] ·" ,(inserter "·"))
-    (?x "[x] ×" ,(inserter "×"))
-    (?X "[X] ⊗" ,(inserter "⊗"))
-    (?+ "[+] ⊕" ,(inserter "⊕"))
-    (?/ "[/] ÷" ,(inserter "÷"))
-    (?U "[U] ∪" ,(inserter "∪"))
-    (?I "[I] ∩" ,(inserter "∩"))
-    (?& "[&] ∧" ,(inserter "∧"))
-    (?| "[|] ∨" ,(inserter "∨"))))
-
-#+end_src
-
-#+RESULTS: my-special-inserts
-: my-special-insert
-
-
-
 * Software Development 
 
 #+name: software-development-preamble