From 1ebfa35b71625bf4cb5c01d98d0c582f09f40b67 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 18 Apr 2021 01:19:56 -0400 Subject: [PATCH] editor/evil: fix csw, csW, css, & csp text objects Until cute-jumper/evil-embrace.el#7 is merged. --- modules/editor/evil/config.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/modules/editor/evil/config.el b/modules/editor/evil/config.el index 6354dc605..fd28f8315 100644 --- a/modules/editor/evil/config.el +++ b/modules/editor/evil/config.el @@ -277,6 +277,16 @@ directives. By default, this only recognizes C directives.") :config (setq evil-embrace-show-help-p nil) + ;; REVIEW Remove when cute-jumper/evil-embrace.el#7 is merged + (pushnew! evil-embrace-evil-surround-keys ?w ?W ?p ?s) + (defadvice! +evil-embrace-evil-surround-change-a (orig-fn char &optional outer inner) + "Fix csw, csW, css & csp text objects too eagerly deleting regions." + :around #'evil-embrace-evil-surround-change + (letf! (defun evil-surround-delete (char &optional outer inner) + (unless (evil-surround-delete-char-noop-p char) + (funcall evil-surround-delete char outer inner))) + (funcall orig-fn char outer inner))) + (defun +evil-embrace-scala-mode-hook-h () (embrace-add-pair ?$ "${" "}"))