Adjust the pairs to be chars rather than strings

global.org

@@ -2242,17 +2242,17 @@ Set up all possible combinations of modifiers
    #+end_src
    Then list the swapped keys
    #+begin_src emacs-lisp
-     (setq tarmak1-swap-alist '(("j" . "e")
+     (setq tarmak1-swap-alist '((?j . ?e)
-                                ("e" . "k")
+                                (?e . ?k)
-                                ("k" . "n")
+                                (?k . ?n)
-                                ("n" . "j")))
+                                (?n . ?j)))
-     (setq tarmak2-swap-alist '(("j" . "g")
+     (setq tarmak2-swap-alist '((?j . ?g)
-                                ("g" . "t")
+                                (?g . ?t)
-                                ("t" . "f")
+                                (?t . ?f)
-                                ("f" . "e")
+                                (?f . ?e)
-                                ("e" . "k")
+                                (?e . ?k)
-                                ("k" . "n")
+                                (?k . ?n)
-                                ("n" . "j")))
+                                (?n . ?j)))
    #+end_src
 
   #+begin_src emacs-lisp
@@ -2285,9 +2285,9 @@ Set up all possible combinations of modifiers
        (mapcan (lambda (swap-pair)
                  (mapcar (lambda (mod-combo)
                            (cons (concat mod-combo
-                                         (car swap-pair))
+                                         (string  (car swap-pair)))
                                  (concat mod-combo
-                                         (cdr swap-pair))))
+                                         (string  (cdr swap-pair)))))
                          modifier-combo))
                tarmak2-swap-alist)))