Add evil-cleverparens

This commit is contained in:
Alexander Rosenberg 2024-09-12 20:32:05 -07:00
parent c62ab7497f
commit 35797a591d
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

18
init.el
View File

@ -281,11 +281,11 @@ Interactively, force the recompile if called with a prefix."
:after evil :after evil
:config :config
(evil-define-key 'operator evil-surround-mode-map (evil-define-key 'operator evil-surround-mode-map
"z" #'evil-surround-edit "z" #'evil-surround-edit
"Z" #'evil-Surround-edit) "Z" #'evil-Surround-edit)
(evil-define-key 'visual evil-surround-mode-map (evil-define-key 'visual evil-surround-mode-map
"gz" #'evil-surround-region "gz" #'evil-surround-region
"gZ" #'evil-Surround-region) "gZ" #'evil-Surround-region)
(global-evil-surround-mode 1)) (global-evil-surround-mode 1))
(use-package evil-terminal-cursor-changer (use-package evil-terminal-cursor-changer
:after evil :after evil
@ -299,13 +299,19 @@ Interactively, force the recompile if called with a prefix."
("C-c C-=" . evil-numbers/inc-at-pt-incremental) ("C-c C-=" . evil-numbers/inc-at-pt-incremental)
("C-c C-+" . evil-numbers/inc-at-pt-incremental) ("C-c C-+" . evil-numbers/inc-at-pt-incremental)
("C-c C--" . evil-numbers/dec-at-pt-incremental))) ("C-c C--" . evil-numbers/dec-at-pt-incremental)))
(use-package evil-cleverparens
:hook ((lisp-mode emacs-lisp-mode) . evil-cleverparens-mode)
:custom
(evil-cleverparens-use-s-and-S nil))
;; make lisp editing nicer
(use-package aggressive-indent (use-package aggressive-indent
:hook (prog-mode . aggressive-indent-mode) :hook (prog-mode . aggressive-indent-mode)
:config :config
(add-to-list 'aggressive-indent-protected-commands (add-to-list 'aggressive-indent-protected-commands
#'evil-undo)) #'evil-undo))
;; and nicer
(use-package adjust-parens (use-package adjust-parens
:hook (prog-mode . adjust-parens-mode)) :hook (prog-mode . adjust-parens-mode))
@ -455,7 +461,7 @@ visual states."
:hook (minibuffer-setup . my/consult-setup-minibuffer-completion) :hook (minibuffer-setup . my/consult-setup-minibuffer-completion)
:init :init
(defun my/consult-setup-minibuffer-completion () (defun my/consult-setup-minibuffer-completion ()
(setq-local completion-in-region-function #'consult-completion-in-region)) (setq-local completion-in-region-function #'consult-completion-in-region))
(evil-declare-motion #'consult-line)) (evil-declare-motion #'consult-line))
(use-package consult-eglot (use-package consult-eglot
:commands consult-eglot-symbols) :commands consult-eglot-symbols)
@ -971,7 +977,7 @@ COMMAND and COMINT are like `compile'."
(use-package sly (use-package sly
:hook (lisp-mode . my/-lisp-mode-autoconnect-sly) :hook (lisp-mode . my/-lisp-mode-autoconnect-sly)
:bind (:map sly-mode-map :bind (:map sly-mode-map
("C-c e" . my/sly-show-notes-at-point)) ("C-c e" . my/sly-show-notes-at-point))
:autoload sly-connected-p :autoload sly-connected-p
:init :init
(defun my/-lisp-mode-autoconnect-sly () (defun my/-lisp-mode-autoconnect-sly ()