Add soft colemak bindings

global.org

@@ -2205,6 +2205,31 @@
                              (concat "~/.emacs-" basename)))))
    #+end_src
 
+* Moving to colemak
+#+begin_src emacs-lisp
+  (defun set-key-translation-map (pairs)
+    (dolist (p pairs)
+      (define-key key-translation-map  (kbd (downcase (car p))) (kbd (downcase (cdr p))))
+      (define-key key-translation-map  (kbd (upcase (car p))) (kbd (upcase (cdr p))))))
+
+  (defun reset-key-translation-map ()
+    (dolist (c '("j" "k" "n" "e"))
+      (define-key key-translation-map (kbd (downcase c)) nil)
+      (define-key key-translation-map (kbd (upcase c)) nil)))
+
+
+  (defun tarmak1 ()
+    (interactive)
+    (set-key-translation-map '(("j" . "n")
+                               ("k" . "e")
+                               ("n" . "k")
+                               ("e" . "j"))))
+
+  (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.