f264a9bc6e
On MacOS, command used to be 'meta, which Emacs (and many packages) use for many keybinds. I don't want to pollute the command key, so it is now meta (as is the Emacs default). The MacOS keybind fixes have been moved back to super.
186 lines
7.3 KiB
EmacsLisp
186 lines
7.3 KiB
EmacsLisp
;;; config/default/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +default-minibuffer-maps
|
|
`(minibuffer-local-map
|
|
minibuffer-local-ns-map
|
|
minibuffer-local-completion-map
|
|
minibuffer-local-must-match-map
|
|
minibuffer-local-isearch-map
|
|
read-expression-map
|
|
,@(if (featurep! :completion ivy) '(ivy-minibuffer-map)))
|
|
"A list of all the keymaps used for the minibuffer.")
|
|
|
|
|
|
;;
|
|
;; Reasonable defaults
|
|
|
|
(after! epa
|
|
(setq epa-file-encrypt-to
|
|
(or epa-file-encrypt-to
|
|
;; Collect all public key IDs with your username
|
|
(unless (string-empty-p user-full-name)
|
|
(cl-loop for key in (ignore-errors (epg-list-keys (epg-make-context) user-full-name))
|
|
collect (epg-sub-key-id (car (epg-key-sub-key-list key)))))
|
|
user-mail-address)
|
|
;; With GPG 2.1, this forces gpg-agent to use the Emacs minibuffer to
|
|
;; prompt for the key passphrase.
|
|
epa-pinentry-mode 'loopback))
|
|
|
|
|
|
(when (featurep! +smartparens)
|
|
;; You can disable :unless predicates with (sp-pair "'" nil :unless nil)
|
|
;; And disable :post-handlers with (sp-pair "{" nil :post-handlers nil)
|
|
;; or specific :post-handlers with:
|
|
;; (sp-pair "{" nil :post-handlers '(:rem ("| " "SPC")))
|
|
(after! smartparens
|
|
;; Autopair quotes more conservatively; if I'm next to a word/before another
|
|
;; quote, I likely don't want to open a new pair.
|
|
(let ((unless-list '(sp-point-before-word-p
|
|
sp-point-after-word-p
|
|
sp-point-before-same-p)))
|
|
(sp-pair "'" nil :unless unless-list)
|
|
(sp-pair "\"" nil :unless unless-list))
|
|
|
|
;; Expand {|} => { | }
|
|
;; Expand {|} => {
|
|
;; |
|
|
;; }
|
|
(dolist (brace '("(" "{" "["))
|
|
(sp-pair brace nil
|
|
:post-handlers '(("||\n[i]" "RET") ("| " "SPC"))
|
|
;; I likely don't want a new pair if adjacent to a word or opening brace
|
|
:unless '(sp-point-before-word-p sp-point-before-same-p)))
|
|
|
|
;; Major-mode specific fixes
|
|
(sp-local-pair '(ruby-mode enh-ruby-mode) "{" "}"
|
|
:pre-handlers '(:rem sp-ruby-pre-handler)
|
|
:post-handlers '(:rem sp-ruby-post-handler))
|
|
|
|
;; Don't do square-bracket space-expansion where it doesn't make sense to
|
|
(sp-local-pair '(emacs-lisp-mode org-mode markdown-mode gfm-mode)
|
|
"[" nil :post-handlers '(:rem ("| " "SPC")))
|
|
|
|
;; Reasonable default pairs for HTML-style comments
|
|
(sp-local-pair (append sp--html-modes '(markdown-mode gfm-mode))
|
|
"<!--" "-->" :actions '(insert) :post-handlers '(("| " "SPC")))
|
|
|
|
;; Expand C-style doc comment blocks. Must be done manually because some of
|
|
;; these languages use specialized (and deferred) parsers, whose state we
|
|
;; can't access while smartparens is doing its thing.
|
|
(defun +default-expand-doc-comment-block (&rest _ignored)
|
|
(let ((indent (current-indentation)))
|
|
(newline-and-indent)
|
|
(save-excursion
|
|
(newline)
|
|
(insert (make-string indent 32) " */")
|
|
(delete-char 2))))
|
|
(sp-local-pair
|
|
'(js2-mode typescript-mode rjsx-mode rust-mode c-mode c++-mode objc-mode
|
|
java-mode php-mode css-mode scss-mode less-css-mode stylus-mode)
|
|
"/*" "*/"
|
|
:actions '(insert)
|
|
:post-handlers '(("| " "SPC") ("|\n*/[i][d-2]" "RET") (+default-expand-doc-comment-block "*")))
|
|
|
|
;; Highjacks backspace to:
|
|
;; a) balance spaces inside brackets/parentheses ( | ) -> (|)
|
|
;; b) delete space-indented `tab-width' steps at a time
|
|
;; c) close empty multiline brace blocks in one step:
|
|
;; {
|
|
;; |
|
|
;; }
|
|
;; becomes {|}
|
|
;; d) refresh smartparens' :post-handlers, so SPC and RET expansions work
|
|
;; even after a backspace.
|
|
;; e) properly delete smartparen pairs when they are encountered, without
|
|
;; the need for strict mode.
|
|
;; f) do none of this when inside a string
|
|
(advice-add #'delete-backward-char :override #'doom/delete-backward-char)
|
|
|
|
;; Makes `newline-and-indent' continue comments (and more reliably)
|
|
(advice-add #'newline-and-indent :around #'doom*newline-indent-and-continue-comments)))
|
|
|
|
|
|
;;
|
|
;; Keybinding fixes
|
|
|
|
;; This section is dedicated to "fixing" certain keys so that they behave
|
|
;; sensibly (and consistently with similar contexts).
|
|
|
|
;; Make SPC u SPC u [...] possible (#747)
|
|
(map! :map universal-argument-map
|
|
:prefix doom-leader-key "u" #'universal-argument-more
|
|
:prefix doom-leader-alt-key "u" #'universal-argument-more)
|
|
|
|
(defun +default|setup-input-decode-map ()
|
|
"Ensure TAB and [tab] are treated the same in TTY Emacs."
|
|
(define-key input-decode-map (kbd "TAB") [tab]))
|
|
(add-hook 'tty-setup-hook #'+default|setup-input-decode-map)
|
|
|
|
;; A Doom convention where C-s on popups and interactive searches will invoke
|
|
;; ivy/helm for their superior filtering.
|
|
(define-key! :keymaps +default-minibuffer-maps
|
|
"C-s" (if (featurep! :completion ivy)
|
|
#'counsel-minibuffer-history
|
|
#'helm-minibuffer-history))
|
|
|
|
;; Consistently use q to quit windows
|
|
(after! tabulated-list
|
|
(define-key tabulated-list-mode-map "q" #'quit-window))
|
|
|
|
;; OS specific fixes
|
|
(when IS-MAC
|
|
;; Fix MacOS shift+tab
|
|
(define-key input-decode-map [S-iso-lefttab] [backtab])
|
|
;; Fix conventional OS keys in Emacs
|
|
(map! "s-`" #'other-frame ; fix frame-switching
|
|
;; fix OS window/frame navigation/manipulation keys
|
|
"s-w" #'delete-window
|
|
"s-W" #'delete-frame
|
|
"s-n" #'+default/new-buffer
|
|
"s-N" #'make-frame
|
|
"s-q" (if (daemonp) #'delete-frame #'evil-quit-all)
|
|
;; Restore OS undo, save, copy, & paste keys (without cua-mode, because
|
|
;; it imposes some other functionality and overhead we don't need)
|
|
"s-z" #'undo
|
|
"s-c" (if (featurep 'evil) #'evil-yank #'copy-region-as-kill)
|
|
"s-v" #'yank
|
|
"s-s" #'save-buffer
|
|
;; Buffer-local font scaling
|
|
"s-+" (λ! (text-scale-set 0))
|
|
"s-=" #'text-scale-increase
|
|
"s--" #'text-scale-decrease
|
|
;; Conventional text-editing keys & motions
|
|
"s-a" #'mark-whole-buffer
|
|
:gi [s-return] #'+default/newline-below
|
|
:gi [s-S-return] #'+default/newline-above
|
|
:gi [s-backspace] #'doom/backward-kill-to-bol-and-indent
|
|
:gi [s-left] #'doom/backward-to-bol-or-indent
|
|
:gi [s-right] #'doom/forward-to-last-non-comment-or-eol
|
|
:gi [M-backspace] #'backward-kill-word
|
|
:gi [M-left] #'backward-word
|
|
:gi [M-right] #'forward-word))
|
|
|
|
|
|
;;
|
|
;; Doom's keybinding scheme
|
|
|
|
(when (featurep! +bindings)
|
|
;; Make M-x harder to miss
|
|
(define-key! 'override
|
|
"M-x" #'execute-extended-command
|
|
"A-x" #'execute-extended-command
|
|
"s-x" #'execute-extended-command)
|
|
|
|
;; Smarter C-a/C-e for both Emacs and Evil. C-a will jump to indentation.
|
|
;; Pressing it again will send you to the true bol. Same goes for C-e, except
|
|
;; it will ignore comments+trailing whitespace before jumping to eol.
|
|
(map! :gi "C-a" #'doom/backward-to-bol-or-indent
|
|
:gi "C-e" #'doom/forward-to-last-non-comment-or-eol
|
|
;; Standardize the behavior of M-RET/M-S-RET as a "add new item
|
|
;; below/above" key.
|
|
:gi [M-return] #'+default/newline-below
|
|
:gi [M-S-return] #'+default/newline-above)
|
|
|
|
(if (featurep 'evil)
|
|
(load! "+evil-bindings")
|
|
(load! "+emacs-bindings")))
|