Add helper to use tarmak1 without switching other chords.

global.org

@@ -2223,6 +2223,11 @@
       (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 set-key-translation-map-caseless (pairs)
+    (dolist (p pairs)
+      (define-key key-translation-map  (kbd (car p)) (kbd (cdr p)))
+   ))
+
   (defun reset-key-translation-map ()
     (dolist (c '("j" "k" "n" "e"))
       (define-key key-translation-map (kbd (downcase c)) nil)
@@ -2236,6 +2241,19 @@
                                ("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))
+             tarmak1-swaps)))
+
   (defun qwerty()
     (interactive)