From 3e2c698e4513718a8cc818ad91434f7846d414c7 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Fri, 8 Oct 2021 11:24:43 -0400 Subject: [PATCH] Adjust the pairs to be chars rather than strings --- global.org | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/global.org b/global.org index 7d8daa4..69d3299 100644 --- a/global.org +++ b/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") - ("e" . "k") - ("k" . "n") - ("n" . "j"))) - (setq tarmak2-swap-alist '(("j" . "g") - ("g" . "t") - ("t" . "f") - ("f" . "e") - ("e" . "k") - ("k" . "n") - ("n" . "j"))) + (setq tarmak1-swap-alist '((?j . ?e) + (?e . ?k) + (?k . ?n) + (?n . ?j))) + (setq tarmak2-swap-alist '((?j . ?g) + (?g . ?t) + (?t . ?f) + (?f . ?e) + (?e . ?k) + (?k . ?n) + (?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)))