Get the list of keys to be unbound from the current tarmak stage

4 years ago · d2007d1bd8
parent b88b4149b9
commit d2007d1bd8
1 changed files with 1 additions and 10 deletions
--- a/global.org
+++ b/global.org
@ -2268,19 +2268,10 @@ Set up all possible combinations of modifiers
        (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))))

    (defun reset-key-translation-map ()
-      (dolist (c '("j" "k" "n" "e" "f" "t" "g"))
+      (dolist (c (mapcar 'cdr tarmak-current-swap-alist))
        (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 untarmak-modifiers ()
      (interactive)
      (set-key-translation-map-caseless