diff options
| author | Case Duckworth | 2022-01-04 00:40:11 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-04 00:40:11 -0600 |
| commit | e9a1034f8c942187ecccdf93e5d3be8c073a79b2 (patch) | |
| tree | dc8a9ea1a91f1ce375aecfa8ed96af56e09782be | |
| parent | Remove el-patch on setup (diff) | |
| download | emacs-e9a1034f8c942187ecccdf93e5d3be8c073a79b2.tar.gz emacs-e9a1034f8c942187ecccdf93e5d3be8c073a79b2.zip | |
Move stuff around
| -rw-r--r-- | init.el | 7 |
1 files changed, 3 insertions, 4 deletions
| diff --git a/init.el b/init.el index 5707ab6..c9cf3c7 100644 --- a/init.el +++ b/init.el | |||
| @@ -21,20 +21,19 @@ | |||
| 21 | private)) | 21 | private)) |
| 22 | (require (or (car-safe feature) feature) (cdr-safe feature) :noerror)) | 22 | (require (or (car-safe feature) feature) (cdr-safe feature) :noerror)) |
| 23 | 23 | ||
| 24 | (setq debug-on-error t) | 24 | (setq debug-on-error (memq system-type '(msdos windows-nt))) |
| 25 | 25 | ||
| 26 | (setup (:require +emacs) | 26 | (setup (:require +emacs) |
| 27 | (:also-load +lisp) | ||
| 28 | ;; +emacs.el contains super-basic defaults that are basically necessary for | 27 | ;; +emacs.el contains super-basic defaults that are basically necessary for |
| 29 | ;; good functioning. In this block, I add extra things or more "experimental" | 28 | ;; good functioning. In this block, I add extra things or more "experimental" |
| 30 | ;; ones that might not belong in a separate file. | 29 | ;; ones that might not belong in a separate file. |
| 30 | (:also-load +lisp) | ||
| 31 | (:option truncate-string-ellipsis "…") | 31 | (:option truncate-string-ellipsis "…") |
| 32 | ;; Bindings | 32 | ;; Bindings |
| 33 | (:global "C-x C-k" #'kill-current-buffer | 33 | (:global "C-x C-k" #'kill-current-buffer |
| 34 | "C-x 4 n" #'clone-buffer | 34 | "C-x 4 n" #'clone-buffer |
| 35 | "C-c v" #'visible-mode | 35 | "C-c v" #'visible-mode |
| 36 | "C-M-;" #'+lisp-comment-or-uncomment-sexp | 36 | "C-M-;" #'+lisp-comment-or-uncomment-sexp) |
| 37 | "<f12>" #'consult-buffer) | ||
| 38 | ;; Unbind stuff, too. | 37 | ;; Unbind stuff, too. |
| 39 | (dolist (key '("C-M-j" | 38 | (dolist (key '("C-M-j" |
| 40 | "M-j")) | 39 | "M-j")) |