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