]> git.earman.xyz Git - emacsinit.git/commitdiff
Add note, fix typo
authorrearman <rearman@r717.net>
Thu, 12 Dec 2024 22:13:27 +0000 (17:13 -0500)
committerrearman <rearman@r717.net>
Thu, 12 Dec 2024 22:13:27 +0000 (17:13 -0500)
re/re-bindings.el

index 00a078370f487a7081c4e69cc7f3ab4741fd0363..27909fef6afc8cb6ac9424736e9a1c7b6f2c28af 100644 (file)
@@ -1,10 +1,10 @@
-;;; re-bindings.el --- Set Bindings  -*- lexical-binding: t; -*-
+;;; re-bindings.el --- Set Bindiŋs  -*- lexical-binding: t; -*-
 ;; This file is not part of GNU Emacs
 
 ;;; Code:
 
 ;; Editing Bindings
-(keymap-global-set "<insert>" nil) ; I keep toggling overwrite-mode haply
+(keymap-global-set "<insert>" nil) ; I keep toggliŋ overwrite-mode haply
 (keymap-global-set "C-\\" #'undo-redo)
 (keymap-global-set "C-S-K" #'kill-whole-line)
 (keymap-global-set "C-w" #'re/kill-bword-or-region)
@@ -26,7 +26,7 @@
 (keymap-global-set "<end>" #'end-of-buffer)
 (keymap-global-set "M-n" #'next-buffer)
 (keymap-global-set "M-p" #'previous-buffer)
-(keymap-global-set "<mouse-4>" #'previous-buffer)
+(keymap-global-set "<mouse-4>" #'previous-buffer) ; Back button
 (keymap-global-set "C-M-o" #'re/other-window-or-split-window)
 (keymap-global-set "<remap> <move-beginning-of-line>" #'re/smart-beginning-of-line)
 (keymap-global-set "<remap> <move-end-of-line>" #'re/smart-end-of-line)
 ;; (E)Lisp
 (keymap-global-set "C-M-z" #'eval-region)
 (keymap-global-set "C-M-S-q"
-                   (lambda () (interactive) (sedit-auto-prettify-sexp)))
+                  (lambda () (interactive) (sedit-auto-prettify-sexp)))
 
 (defvar *re/lisp-mode-hooks*
   '(emacs-lisp-mode-hook lisp-mode-hook slime-mode-hook scheme-mode-hook))
 
 (dolist (hook *re/lisp-mode-hooks*)
   (add-hook hook
-            (lambda ()
-              (keymap-set lisp-mode-shared-map
-                          "]"
-                          (re/balance-and-eval-sexp #'sedit-auto-prettify-sexp)))))
+           (lambda ()
+             (keymap-set lisp-mode-shared-map
+                         "]"
+                         (re/balance-and-eval-sexp #'sedit-auto-prettify-sexp)))))
 
 (add-hook 'lisp-interaction-mode-hook
-          (lambda ()
-            (keymap-set lisp-interaction-mode-map
-                        "]"
-                        (re/balance-and-eval-sexp #'eval-print-last-sexp))))
+         (lambda ()
+           (keymap-set lisp-interaction-mode-map
+                       "]"
+                       (re/balance-and-eval-sexp #'eval-print-last-sexp))))
 
 ;; IELM
 (keymap-global-set "C-c i" #'ielm)
 
 (add-hook 'ielm-mode-hook
-          (lambda ()
-            (keymap-set inferior-emacs-lisp-mode-map
-                        "C-l"
-                        #'comint-clear-buffer)
-            (let ((eval-function #'ielm-send-input))
-              (keymap-set inferior-emacs-lisp-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set inferior-emacs-lisp-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
-
+         (lambda ()
+           (keymap-set inferior-emacs-lisp-mode-map
+                       "C-l"
+                       #'comint-clear-buffer)
+           (let ((eval-function #'ielm-send-input))
+             (keymap-set inferior-emacs-lisp-mode-map
+                         ")"
+                         (re/send-on-close-paren eval-function))
+             (keymap-set inferior-emacs-lisp-mode-map
+                         "]"
+                         (re/balance-and-eval-sexp eval-function)))))
 
 ;; Eshell
 (keymap-global-set "C-c e" #'eshell)
 
 (add-hook 'eshell-mode-hook
-          (lambda ()
-            (keymap-set eshell-mode-map "C-d" #'eshell-quit-or-delete-char)
-            (let ((eval-function #'eshell-send-input))
-              (keymap-set eshell-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set eshell-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
+         (lambda ()
+           (keymap-set eshell-mode-map "C-d" #'eshell-quit-or-delete-char)
+           (let ((eval-function #'eshell-send-input))
+             (keymap-set eshell-mode-map
+                         ")"
+                         (re/send-on-close-paren eval-function))
+             (keymap-set eshell-mode-map
+                         "]"
+                         (re/balance-and-eval-sexp eval-function)))))
 
 ;; SLIME REPL
 (add-hook 'slime-repl-mode-hook
-          (lambda ()
-            (let ((eval-function #'slime-repl-return))
-              (keymap-set slime-repl-mode-map
-                          ")"
-                          (re/send-on-close-paren eval-function))
-              (keymap-set slime-repl-mode-map
-                          "]"
-                          (re/balance-and-eval-sexp eval-function)))))
+         (lambda ()
+           (let ((eval-function #'slime-repl-return))
+             (keymap-set slime-repl-mode-map
+                         ")"
+                         (re/send-on-close-paren eval-function))
+             (keymap-set slime-repl-mode-map
+                         "]"
+                         (re/balance-and-eval-sexp eval-function)))))
 
 ;; Org Starters
 (keymap-global-set "C-c l" #'org-store-link)