Add keybindings

1 files changed, 43 insertions, 0 deletions

@@ -628,6 +628,49 @@ This is not /quite/ correct yet.  For example, scrolling in the margins with a t
     (bind-key vec #'mwheel-scroll))
 #+end_src
 
+** Keyboard
+
+*** Use =ESC= as a cancel key
+
+From [[https://github.com/link0ff/emacs-init][link0ff]].  I thought they made a great point that =ESC= isn’t necessary to copy the =META= key on window-systems, which is where I use Emacs, anyway.
+
+#+begin_src emacs-lisp
+  (when window-system
+    (define-key global-map [escape] 'keyboard-escape-quit)
+    (define-key isearch-mode-map  [escape] 'isearch-cancel))
+#+end_src
+
+*** Make =C-z= more useful as a prefix key
+
+Also from link0ff.  See the above for a link.
+
+#+begin_src emacs-lisp
+  (defvar my-map
+    (let ((map (make-sparse-keymap))
+          (c-z (global-key-binding "\C-z")))
+      (global-unset-key "\C-z")
+      (define-key global-map "\C-z" map)
+      (define-key map "\C-z" c-z)
+      map))
+  (run-hooks 'my-map-defined-hook)
+#+end_src
+
+*** Which-key
+
+#+begin_src emacs-lisp
+  (use-package which-key
+    :config
+    (which-key-mode +1))
+#+end_src
+
+*** Bindings
+
+**** Switch to another window
+
+#+begin_src emacs-lisp
+  (bind-key "M-o" #'other-window)
+#+end_src
+
 * Persistence
 
 ** Save history