emacs: Overhaul configuration completely

1 files changed, 112 insertions, 0 deletions

diff --git a/.config/emacs/modules/mm-keybindings.el b/.config/emacs/modules/mm-keybindings.el
new file mode 100644
index 0000000..d01b447
--- /dev/null
+++ b/.config/emacs/modules/mm-keybindings.el
@@ -0,0 +1,112 @@
+;;; mm-keybindings.el --- Emacs keybindings  -*- lexical-binding: t; -*-
+
+(require 'editing)
+
+;; The following keys are either unbound and are free to populate, or are
+;; bound to functions I don’t care for:
+;; ‘C-i’, ‘C-j’, ‘C-o’, ‘C-.’, ‘C-{’, ‘C-}’, ‘C-|’, ‘C-/’, ‘C-\;’, ‘C-:’
+
+
+;;; Helper Macros
+
+(defmacro mm-keymap-set (keymap &rest definitions)
+  (declare (indent 1))
+  (unless (cl-evenp (length definitions))
+    (user-error "Expected an even-number of elements in DEFINITIONS."))
+  `(cl-loop for (from to) on (list ,@definitions) by #'cddr
+            do (keymap-set ,keymap from to)))
+
+(defmacro mm-keymap-set-repeating (keymap &rest definitions)
+  (declare (indent 1))
+  (unless (cl-evenp (length definitions))
+    (user-error "Expected an even-number of elements in DEFINITIONS."))
+  (let ((keymap-gen (gensym "mm-keybindings--repeat-map-")))
+    `(progn
+       (defvar-keymap ,keymap-gen)
+       (cl-loop for (from to) on (list ,@definitions) by #'cddr
+                do (progn
+                     (keymap-set ,keymap-gen from to)
+                     (put to 'repeat-map ',keymap-gen))))))
+
+(defmacro mm-keymap-remap (keymap &rest commands)
+  "Define command remappings for a given KEYMAP.
+COMMANDS is a sequence of unquoted commands.  For each pair of COMMANDS
+the first command is remapped to the second command."
+  (declare (indent 1))
+  (unless (cl-evenp (length commands))
+    (user-error "Expected an even-number of elements in COMMANDS."))
+  (macroexp-progn
+   (cl-loop for (from to) in (seq-partition commands 2)
+            collect `(keymap-set
+                      ,keymap
+                      ,(concat "<remap> <" (symbol-name from) ">")
+                      #',to))))
+
+
+;;; Disable ESC as Meta
+
+(keymap-global-set "<escape>" #'ignore)
+
+
+;;; Enable Repeat Bindings
+
+(use-package repeat
+  :init
+  (repeat-mode))
+
+
+;;; Remap Existing Bindings
+
+(mm-keymap-remap global-map
+  backward-delete-char-untabify backward-delete-char
+  kill-ring-save                e/kill-ring-save-dwim
+
+  capitalize-word capitalize-dwim
+  downcase-word   downcase-dwim
+  upcase-word     upcase-dwim
+
+  mark-word e/mark-entire-word
+  mark-sexp e/mark-entire-sexp
+
+  transpose-chars e/transpose-previous-chars
+  transpose-lines e/transpose-current-and-next-lines)
+
+(with-eval-after-load 'cc-vars
+  (setopt c-backspace-function #'backward-delete-char))
+
+
+;;; Remove Unwanted Bindings
+
+(keymap-global-unset "C-x C-c" :remove) ; ‘capitalize-region’
+(keymap-global-unset "C-x C-l" :remove) ; ‘downcase-region’
+(keymap-global-unset "C-x C-u" :remove) ; ‘upcase-region’
+
+
+;;; Bind Commands Globally
+
+(mm-keymap-set global-map
+  "<next>"    #'e/scroll-up
+  "<prior>"   #'e/scroll-down
+  "C-<next>"  #'forward-page
+  "C-<prior>" #'backward-page
+
+  "C-." #'repeat
+  "C-/" #'e/mark-line-dwim
+
+  "C-c d"   #'duplicate-dwim
+  "C-c t a" #'e/align-regexp
+  "C-c t f" #'fill-paragraph
+  "C-c t s" #'sort-lines
+  "C-c j"   #'e/join-current-and-next-line
+  "C-c J"   #'join-line)
+
+(mm-keymap-set-repeating global-map
+  "j" #'e/join-current-and-next-line
+  "J" #'join-line)
+
+(with-eval-after-load 'increment
+  (mm-keymap-set-repeating global-map
+    "d" #'decrement-number-at-point
+    "i" #'increment-number-at-point))
+
+(provide 'mm-keybindings)