Cleanup the tarmak stages thingie

global.org

@@ -2223,6 +2223,31 @@
    #+end_src
 
 * Moving to colemak
+Set up all possible combinations of modifiers
+   #+begin_src emacs-lisp
+     (defun concat-recursive (b &optional a)
+       (if b
+           (append (concat-recursive (cdr b) (concat a (car b)))
+                   (concat-recursive (cdr b) a))
+         (when a (list a))))
+
+     (setq modifier-combo (concat-recursive '("C-" "M-" "s-" "H-")))
+   #+end_src
+   Then list the swapped keys
+   #+begin_src emacs-lisp
+     (setq tarmak1-swap-alist '(("j" . "e")
+                                ("e" . "k")
+                                ("k" . "n")
+                                ("n" . "j")))
+     (setq tarmak2-swap-alist '(("j" . "g")
+                                ("g" . "t")
+                                ("t" . "f")
+                                ("f" . "e")
+                                ("e" . "k")
+                                ("k" . "n")
+                                ("n" . "j")))
+   #+end_src
+
   #+begin_src emacs-lisp
     (defun set-key-translation-map (pairs)
       (dolist (p pairs)
@@ -2231,11 +2256,10 @@
 
     (defun set-key-translation-map-caseless (pairs)
       (dolist (p pairs)
-      (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))
+        (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))))
-   ))
 
     (defun reset-key-translation-map ()
-    (dolist (c '("j" "k" "n" "e"))
+      (dolist (c '("j" "k" "n" "e" "f" "t" "g"))
         (define-key key-translation-map (kbd (downcase c)) nil)
         (define-key key-translation-map (kbd (upcase c)) nil)))
 
@@ -2258,12 +2282,19 @@
                                  (concat mod-combo
                                          (cdr swap-pair))))
                          modifier-combo))
-             tarmak1-swaps)))
+               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