Define untarmak-key as a helper for other funs

5 years ago · 9b10c6b9f9
parent 18f0b05c5c
commit 9b10c6b9f9
1 changed files with 3 additions and 0 deletions
--- a/global.org
+++ b/global.org
@ -2293,6 +2293,9 @@ Set up all possible combinations of modifiers
                         modifier-combo))
               tarmak-current-swap-alist)))

+    (defun untarmak-key (char)
+      (let ((pair (rassoc char tarmak-current-swap-alist)))
+        (if pair (car pair) char)))

    (defun tarmak-avy ()
      (interactive)