Cleanup the tarmak stages thingie

global.org

@@ -2223,48 +2223,79 @@
    #+end_src
 
 * Moving to colemak
-#+begin_src emacs-lisp
+Set up all possible combinations of modifiers
-  (defun set-key-translation-map (pairs)
+   #+begin_src emacs-lisp
-    (dolist (p pairs)
+     (defun concat-recursive (b &optional a)
-      (define-key key-translation-map  (kbd (downcase (car p))) (kbd (downcase (cdr p))))
+       (if b
-      (define-key key-translation-map  (kbd (upcase (car p))) (kbd (upcase (cdr p))))))
+           (append (concat-recursive (cdr b) (concat a (car b)))
-
+                   (concat-recursive (cdr b) a))
-  (defun set-key-translation-map-caseless (pairs)
+         (when a (list a))))
-    (dolist (p pairs)
+
-      (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))
+     (setq modifier-combo (concat-recursive '("C-" "M-" "s-" "H-")))
-   ))
+   #+end_src
-
+   Then list the swapped keys
-  (defun reset-key-translation-map ()
+   #+begin_src emacs-lisp
-    (dolist (c '("j" "k" "n" "e"))
+     (setq tarmak1-swap-alist '(("j" . "e")
-      (define-key key-translation-map (kbd (downcase c)) nil)
+                                ("e" . "k")
-      (define-key key-translation-map (kbd (upcase c)) nil)))
+                                ("k" . "n")
-
+                                ("n" . "j")))
-
+     (setq tarmak2-swap-alist '(("j" . "g")
-  (defun tarmak1 ()
+                                ("g" . "t")
-    (interactive)
+                                ("t" . "f")
-    (set-key-translation-map '(("j" . "n")
+                                ("f" . "e")
-                               ("k" . "e")
+                                ("e" . "k")
-                               ("n" . "k")
+                                ("k" . "n")
-                               ("e" . "j"))))
+                                ("n" . "j")))
-
+   #+end_src
-
+
-  (defun untarmak-modifiers ()
+  #+begin_src emacs-lisp
-    (interactive)
+    (defun set-key-translation-map (pairs)
-    (set-key-translation-map-caseless
+      (dolist (p pairs)
-     (mapcan (lambda (swap-pair)
+        (define-key key-translation-map  (kbd (downcase (car p))) (kbd (downcase (cdr p))))
-               (mapcar (lambda (mod-combo)
+        (define-key key-translation-map  (kbd (upcase (car p))) (kbd (upcase (cdr p))))))
-                         (cons (concat mod-combo
+
-                                       (car swap-pair))
+    (defun set-key-translation-map-caseless (pairs)
-                               (concat mod-combo
+      (dolist (p pairs)
-                                       (cdr swap-pair))))
+        (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))))
-                       modifier-combo))
+
-             tarmak1-swaps)))
+    (defun reset-key-translation-map ()
-
+      (dolist (c '("j" "k" "n" "e" "f" "t" "g"))
-  (defun qwerty()
+        (define-key key-translation-map (kbd (downcase c)) nil)
-    (interactive)
+        (define-key key-translation-map (kbd (upcase c)) nil)))
-
+
-    (reset-key-translation-map))
+
-#+end_src
+    (defun tarmak1 ()
+      (interactive)
+      (set-key-translation-map '(("j" . "n")
+                                 ("k" . "e")
+                                 ("n" . "k")
+                                 ("e" . "j"))))
+
+
+    (defun untarmak-modifiers ()
+      (interactive)
+      (set-key-translation-map-caseless
+       (mapcan (lambda (swap-pair)
+                 (mapcar (lambda (mod-combo)
+                           (cons (concat mod-combo
+                                         (car swap-pair))
+                                 (concat mod-combo
+                                         (cdr swap-pair))))
+                         modifier-combo))
+               tarmak2-swap-alist)))
+
+    (defun tarmak-avy ()
+      (interactive)
+      (setq aw-keys '(?n ?t ?h ?j ?e ?d ?l ?s ?a)
+            avy-keys '(?a ?s ?d ?t ?j ?h ?n ?e ?l)))
+
+
+    (defun qwerty()
+      (interactive)
+
+      (reset-key-translation-map))
+
+    #+end_src
 * Finale
 ** Fixup faces
    This is really a workaround as I do not like either bold or italic.