From 35797a591d58825bf7f990dd0510128bdec4a4a5 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Thu, 12 Sep 2024 20:32:05 -0700 Subject: [PATCH] Add evil-cleverparens --- init.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/init.el b/init.el index 8e30296..bb16383 100644 --- a/init.el +++ b/init.el @@ -281,11 +281,11 @@ Interactively, force the recompile if called with a prefix." :after evil :config (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 - "gz" #'evil-surround-region - "gZ" #'evil-Surround-region) + "gz" #'evil-surround-region + "gZ" #'evil-Surround-region) (global-evil-surround-mode 1)) (use-package evil-terminal-cursor-changer :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/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 :hook (prog-mode . aggressive-indent-mode) :config (add-to-list 'aggressive-indent-protected-commands #'evil-undo)) +;; and nicer (use-package adjust-parens :hook (prog-mode . adjust-parens-mode)) @@ -455,7 +461,7 @@ visual states." :hook (minibuffer-setup . my/consult-setup-minibuffer-completion) :init (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)) (use-package consult-eglot :commands consult-eglot-symbols) @@ -971,7 +977,7 @@ COMMAND and COMINT are like `compile'." (use-package sly :hook (lisp-mode . my/-lisp-mode-autoconnect-sly) :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 :init (defun my/-lisp-mode-autoconnect-sly ()