-;;; 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)
(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)