From a11b3f1fc0846cbcfd1e4b5d354f70480172c5b3 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Tue, 4 Aug 2020 21:13:35 -0400 Subject: [PATCH] Start getting ready for tarmak switch. --- global.org | 30 ++++++++++++++++++++++++++---- 1 file changed, 26 insertions(+), 4 deletions(-) diff --git a/global.org b/global.org index 759565e..553266c 100644 --- a/global.org +++ b/global.org @@ -562,15 +562,37 @@ :session nil "/org/xkbvleds" "org.xkbvleds" "indicatorChanged" 'xkbvleds-indicator-signal-handler) #+END_SRC +** Tarmak-ready + Set up all possible combinations of modifiers + #+BEGIN_SRC emacs-lisp + (defun concat-recursive (b &optional a) + (if b + (append (concat-recursive (cdr b) (concat a (car b))) + (concat-recursive (cdr b) a)) + (when a (list a)))) + + (setq modifier-combo (concat-recursive '("C-" "M-" "s-" "H-"))) + #+END_SRC + Then list the swapped keys + #+BEGIN_SRC emacs-lisp + (setq tarmak1-swaps '(("j" . "e") + ("e" . "k") + ("k" . "n") + ("n" . "j"))) + #+END_SRC + * Main major modes ** org-mode *** Require Require the ~org~ package; I also occasionally use org-pomodoro #+BEGIN_SRC emacs-lisp - (with-eval-after-load "org" - (define-key org-src-mode-map (kbd "C-c C-c") 'org-edit-src-exit)) - (require 'org) - (require 'org-pomodoro) + (with-eval-after-load "org" + (define-key org-src-mode-map (kbd "C-c C-c") 'org-edit-src-exit) + (define-key org-src-mode-map (kbd "C-c C-k") nil) ;this conflicts with my LaTeX bindings + (define-key org-src-mode-map (kbd "C-c C-`") 'org-edit-src-abort) + ) + (require 'org) + (require 'org-pomodoro) #+END_SRC *** Hooks Enable ~auto-fill-mode~ (see