~clean up evil-mc

This commit is contained in:
2020-08-15 00:02:33 +01:00
parent 7dd02a2a13
commit e8e4ba509c

View File

@@ -246,30 +246,17 @@ the current position.
("r" . evil-mc-resume-cursors) ("r" . evil-mc-resume-cursors)
("s" . evil-mc-pause-cursors)) ("s" . evil-mc-pause-cursors))
:init :init
(setq evil-mc-key-map nil)
(define-prefix-command 'dx:evil-mc-map) (define-prefix-command 'dx:evil-mc-map)
(bind-key "gz" dx:evil-mc-map evil-normal-state-map) (bind-key "gz" dx:evil-mc-map evil-normal-state-map)
:config :config
(dolist (fn '((delete-char)
(backward-kill-word)
(company-complete-common . evil-mc-execute-default-complete)
(evil-delete-back-to-indentation . evil-mc-execute-default-call)
;; Have evil-mc work with explicit `evil-escape' (on C-g)
(evil-escape . evil-mc-execute-default-evil-normal-state)
;; Add `evil-org' support
(evil-org-delete . evil-mc-execute-default-evil-delete)
(evil-org-delete-char . evil-mc-execute-default-evil-delete)
(evil-org-delete-backward-char . evil-mc-execute-default-evil-delete)))
(cl-pushnew `(,(car fn) (:default . ,(or (cdr fn) #'evil-mc-execute-default-call-with-count)))
evil-mc-custom-known-commands
:test #'eq
:key #'car))
(global-evil-mc-mode +1) (global-evil-mc-mode +1)
(defun dx:evil-mc-cursor-here () (defun dx:evil-mc-cursor-here ()
(interactive) (interactive)
(evil-mc-make-cursor-here) (evil-mc-make-cursor-here)
(evil-mc-pause-cursors))) (evil-mc-pause-cursors)))
#+END_SRC #+END_SRC
** Evil collection ** Evil collection
Setup evil collection, but don't turn on the mode. Instead, I'll turn Setup evil collection, but don't turn on the mode. Instead, I'll turn
on setups for specific modes I think benefit from it. on setups for specific modes I think benefit from it.