eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Replace add-to-list spam with setq+append

Browse source
This commit is contained in:
eriedaberrie 2023-04-17 13:52:30 -07:00
parent 23e0bb3e94
commit 5338b55299
1 changed files with 16 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
init.el
View file

@ -121,6 +121,7 @@
'("e" . meow-next-word) '("e" . meow-next-word)
'("E" . meow-next-symbol) '("E" . meow-next-symbol)
'("f" . meow-find) '("f" . meow-find)
'("F" . meow-find-expand)
'("g" . meow-cancel-selection) '("g" . meow-cancel-selection)
'("G" . meow-grab) '("G" . meow-grab)
'("h" . meow-left) '("h" . meow-left)
@ -144,6 +145,7 @@
'("R" . meow-swap-grab) '("R" . meow-swap-grab)
'("s" . meow-kill) '("s" . meow-kill)
'("t" . meow-till) '("t" . meow-till)
'("T" . meow-till-expand)
'("u" . my-meow-undo) '("u" . my-meow-undo)
'("U" . undo-fu-only-redo) '("U" . undo-fu-only-redo)
'("v" . meow-page-down) '("v" . meow-page-down)
@ -151,11 +153,11 @@
'("w" . meow-mark-word) '("w" . meow-mark-word)
'("W" . meow-mark-symbol) '("W" . meow-mark-symbol)
'("x" . meow-line) '("x" . meow-line)
'("X" . meow-goto-line) '("X" . meow-find-ref)
'("y" . meow-save) '("y" . meow-save)
'("Y" . meow-sync-grab) '("Y" . meow-sync-grab)
'("z" . meow-pop-selection) '("z" . meow-pop-selection)
'("Z" . meow-find-ref) '("Z" . meow-goto-line)
'("'" . repeat) '("'" . repeat)
'("/" . meow-visit) '("/" . meow-visit)
'(">" . meow-forward-slurp) '(">" . meow-forward-slurp)
@ -294,9 +296,9 @@
nix-mode nix-mode
:config :config
(with-eval-after-load 'meow (with-eval-after-load 'meow
(add-to-list 'aggressive-indent-protected-commands #'my-meow-undo) (setq aggressive-indent-protected-commands
(add-to-list 'aggressive-indent-protected-commands #'meow-undo) (append aggressive-indent-protected-commands
(add-to-list 'aggressive-indent-protected-commands #'meow-undo-in-selection))) '(my-meow-undo meow-undo meow-undo-in-selection)))))
(use-package rainbow-delimiters (use-package rainbow-delimiters
:hook prog-mode) :hook prog-mode)
@ -365,7 +367,7 @@
:custom :custom
(completion-styles '(orderless basic)) (completion-styles '(orderless basic))
(completion-category-defaults nil) (completion-category-defaults nil)
(completion-category-overrides '((file (styles . (partial-completion)))))) (completion-category-overrides '((file (styles basic partial-completion)))))
(use-package marginalia (use-package marginalia
:demand t :demand t
@ -834,9 +836,9 @@
(emacs-everywhere-frame-parameters '((name . "emacs-everywhere") (emacs-everywhere-frame-parameters '((name . "emacs-everywhere")
(alpha-background . 1.0))) (alpha-background . 1.0)))
:config :config
(add-to-list 'emacs-everywhere-frame-parameters '(alpha-background . 1.0)) (setq emacs-everywhere-frame-parameters
(add-to-list 'emacs-everywhere-frame-parameters '(width . 120)) (append '((alpha-background . 1.0) (width . 120) (height . 20))
(add-to-list 'emacs-everywhere-frame-parameters '(height . 20))) emacs-everywhere-frame-parameters)))
(use-package ffap (use-package ffap
:ensure nil :ensure nil
@ -945,9 +947,11 @@
(file-writable-p buffer-file-name)) (file-writable-p buffer-file-name))
(find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name)))) (find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name))))
(add-to-list 'auto-mode-alist '("\\.yuck\\'" . lisp-mode)) (setq auto-mode-alist
(add-to-list 'auto-mode-alist '("flake\\.lock\\'" . js-json-mode)) (append '(("\\.yuck\\'" . lisp-mode)
(add-to-list 'auto-mode-alist '("/qutebrowser-editor-" . text-mode) t) ("flake\\.lock\\'" . js-json-mode))
auto-mode-alist
'(("/qutebrowser-editor-" . text-mode))))
(when (daemonp) (when (daemonp)
(with-current-buffer "*scratch*" (with-current-buffer "*scratch*"