;; This file is not part of GNU Emacs
;;; Code:
-
+\f
;; Stopping Emacs & Saving
(keymap-global-set "C-x M-c" #'re/kill-emacs)
(keymap-global-set "C-x M-r" #'re/restart-emacs)
(keymap-global-set "C-x S" (lambda () (interactive) (save-some-buffers t))) ; don't ask
(keymap-global-set "C-x c" #'delete-frame) ; delete a frame without asking about saving files
+\f
;; Editing Bindings
(keymap-global-set "<insert>" nil) ; I keep toggliŋ overwrite-mode haply
(keymap-global-set "C-\\" #'undo-redo)
(keymap-global-set "<remap> <upcase-word>" #'upcase-dwim) ; M-u
(keymap-global-set "<remap> <keyboard-quit>" #'re/keyboard-quit) ; C-g works better
(keymap-global-set "<remap> <exchange-point-and-mark>" #'re/exchange-point-and-mark-maybe-activate)
-
+\f
;; Wayfindiŋ
(keymap-global-set "<home>" #'beginning-of-buffer)
(keymap-global-set "<end>" #'end-of-buffer)
(keymap-set visual-line-mode-map "C-a" #'re/smart-beginning-of-line)
(keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line)
(keymap-global-set "<remap> <goto-line>" #'re/goto-line)
-
+\f
;; Seeking
(keymap-global-set "M-s ." #'isearch-forward-thing-at-point)
(keymap-global-set "M-s M-." #'isearch-forward-symbol-at-point)
(keymap-global-set "C-M-S-R" #'replace-regexp-as-diff)
(keymap-global-set "C-S-S" #'isearch-forward-regexp)
(keymap-global-set "C-S-R" #'isearch-backward-regexp)
-
+\f
;; Damper/Window Dealing
(keymap-global-set "C-x C-r" #'re/rename-current-buffer-file)
(keymap-global-set "<f5>" #'scratch-buffer)
(lambda ()
(keymap-set vc-dir-mode-map "b b" #'re/vc-show-branches)
(keymap-set vc-dir-mode-map "f" #'re/vc-fetch)))
-
+\f
;; (E)Lisp
(defvar *re/lisp-mode-hooks*
(keymap-set lisp-interaction-mode-map
"]"
(re/balance-and-eval-sexp #'eval-print-last-sexp)))))
-
+\f
;; IELM
(add-hook 'ielm-mode-hook
(keymap-set inferior-emacs-lisp-mode-map
"]"
(re/balance-and-eval-sexp eval-function)))))
-
+\f
;; Eshell
(keymap-global-set "C-c e" #'eshell)
(keymap-set eshell-mode-map
"]"
(re/balance-and-eval-sexp eval-function)))))
-
+\f
;; SLY REPL
(add-hook 'sly-mrepl-mode-hook
(lambda ()