1

Flatten :bind lists

This commit is contained in:
Jessie Hildebrandt 2023-01-26 05:46:56 -05:00
parent dfa43090b0
commit 9869e2ee27

52
init.el
View File

@ -819,9 +819,9 @@ DOCSTRING is an optional form that is discarded upon expansion."
:config :config
(global-anzu-mode) (global-anzu-mode)
:bind :bind
(("M-s r ." . anzu-query-replace-at-cursor) ("M-s r ." . anzu-query-replace-at-cursor)
("<remap> <query-replace>" . anzu-query-replace) ("<remap> <query-replace>" . anzu-query-replace)
("<remap> <query-replace-regexp>" . anzu-query-replace-regexp))) ("<remap> <query-replace-regexp>" . anzu-query-replace-regexp))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; bufler ;; bufler
@ -882,7 +882,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
(auto-directory) (auto-directory)
(auto-mode))) (auto-mode)))
:bind :bind
(("C-x C-b" . bufler-list))) ("C-x C-b" . bufler-list))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; cider ;; cider
@ -904,15 +904,15 @@ DOCSTRING is an optional form that is discarded upon expansion."
(eval-after-load 'esh-mode (lambda () (eval-after-load 'esh-mode (lambda ()
(bind-key "C-r" #'consult-history 'eshell-mode-map))) (bind-key "C-r" #'consult-history 'eshell-mode-map)))
:bind :bind
(("M-s l" . consult-line) ("M-s l" . consult-line)
("M-s L" . consult-line-multi) ("M-s L" . consult-line-multi)
("C-S-s" . consult-line-multi) ("C-S-s" . consult-line-multi)
("C-x M-b" . consult-buffer-other-window) ("C-x M-b" . consult-buffer-other-window)
("<remap> <goto-line>" . consult-goto-line) ("<remap> <goto-line>" . consult-goto-line)
("<remap> <isearch-forward>" . consult-line) ("<remap> <isearch-forward>" . consult-line)
("<remap> <switch-to-buffer>" . consult-buffer) ("<remap> <switch-to-buffer>" . consult-buffer)
("<remap> <yank-pop>" . consult-yank-from-kill-ring) ("<remap> <yank-pop>" . consult-yank-from-kill-ring)
("<remap> <project-find-regexp>" . consult-ripgrep))) ("<remap> <project-find-regexp>" . consult-ripgrep))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; corfu ;; corfu
@ -1209,10 +1209,10 @@ DOCSTRING is an optional form that is discarded upon expansion."
(external-package multiple-cursors (external-package multiple-cursors
"Provides the ability to summon additional cursors." "Provides the ability to summon additional cursors."
:bind :bind
(("C->" . mc/mark-next-like-this) ("C->" . mc/mark-next-like-this)
("C-<" . mc/mark-previous-like-this) ("C-<" . mc/mark-previous-like-this)
("C-c C->" . mc/mark-all-like-this) ("C-c C->" . mc/mark-all-like-this)
("C-c C-<" . mc/mark-all-like-this))) ("C-c C-<" . mc/mark-all-like-this))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; neotree ;; neotree
@ -1229,11 +1229,11 @@ DOCSTRING is an optional form that is discarded upon expansion."
(neo-confirm-create-file #'off-p "Skip confirmation when creating a new file from neotree") (neo-confirm-create-file #'off-p "Skip confirmation when creating a new file from neotree")
(neo-confirm-create-directory #'off-p "Skip confirmation when creating a new directory from neotree") (neo-confirm-create-directory #'off-p "Skip confirmation when creating a new directory from neotree")
:bind :bind
(("C-c t" . neotree) ("C-c t" . neotree)
(:map neotree-mode-map (:map neotree-mode-map
("C-c w" . (lambda () (interactive) nil)) ("C-c w" . (lambda () (interactive) nil))
("C-c q" . (lambda () (interactive) nil)) ("C-c q" . (lambda () (interactive) nil))
("C-c n" . (lambda () (interactive) nil))))) ("C-c n" . (lambda () (interactive) nil))))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; package-lint ;; package-lint
@ -1402,10 +1402,10 @@ DOCSTRING is an optional form that is discarded upon expansion."
(writeroom-global-effects nil "Disable all frame-wide writeroom effects.") (writeroom-global-effects nil "Disable all frame-wide writeroom effects.")
(writeroom-fringes-outside-margins nil "Keep the fringes close to the text.") (writeroom-fringes-outside-margins nil "Keep the fringes close to the text.")
:bind :bind
(("C-c c" . writeroom-mode) ("C-c c" . writeroom-mode)
(:map writeroom-mode-map (:map writeroom-mode-map
("C-<next>" . writeroom-decrease-width) ("C-<next>" . writeroom-decrease-width)
("C-<prior>" . writeroom-increase-width)))) ("C-<prior>" . writeroom-increase-width)))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; yansippet ;; yansippet