emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

editor/multiple-cursors: minor refactor

Browse source
This commit is contained in:
Henrik Lissner 2019-10-26 02:12:47 -04:00
parent 9b3f21a9bc
commit 945eb7e064
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

28
modules/editor/multiple-cursors/config.el
View file

@ -28,6 +28,8 @@
(defvar evil-mc-key-map (make-sparse-keymap)) (defvar evil-mc-key-map (make-sparse-keymap))
:config :config
(global-evil-mc-mode +1) (global-evil-mc-mode +1)
;; REVIEW This is tremendously slow on macos and windows for some reason.
(setq evil-mc-enable-bar-cursor (not (or IS-MAC IS-WINDOWS))) (setq evil-mc-enable-bar-cursor (not (or IS-MAC IS-WINDOWS)))
(after! smartparens (after! smartparens
@ -37,18 +39,26 @@
(setcdr (assq :default evil-mc-cursor-variables) (setcdr (assq :default evil-mc-cursor-variables)
(append vars sp--mc/cursor-specific-vars))))) (append vars sp--mc/cursor-specific-vars)))))
;; Add custom commands to whitelisted commands ;; Whitelist more commands
(dolist (fn '(doom/backward-to-bol-or-indent doom/forward-to-last-non-comment-or-eol (dolist (fn '((delete-char)
doom/backward-kill-to-bol-and-indent delete-char)) (backward-kill-word)
(add-to-list 'evil-mc-custom-known-commands `(,fn (:default . evil-mc-execute-default-call-with-count)))) (company-complete-common . evil-mc-execute-default-complete)
;; Have evil-mc work with explicit `evil-escape' (typically bound to C-g) (doom/backward-to-bol-or-indent . evil-mc-execute-default-call)
(add-to-list 'evil-mc-custom-known-commands '(evil-escape (:default . evil-mc-execute-default-evil-normal-state))) (doom/forward-to-last-non-comment-or-eol . evil-mc-execute-default-call)
(doom/backward-kill-to-bol-and-indent . 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)))
(cl-pushnew `(,(car fn) (:default . ,(or (cdr fn) #'evil-mc-execute-default-call-with-count)))
evil-mc-custom-known-commands
:test #'eq
:key #'car))
;; Activate evil-mc cursors upon switching to insert mode ;; If we're entering insert mode, it's a good bet that we want to start using
;; our multiple cursors
(add-hook 'evil-insert-state-entry-hook #'evil-mc-resume-cursors) (add-hook 'evil-insert-state-entry-hook #'evil-mc-resume-cursors)
;; disable evil-escape in evil-mc; causes unwanted text on invocation ;; evil-escape's escape key sequence leaves behind extraneous characters
(add-to-list 'evil-mc-incompatible-minor-modes 'evil-escape-mode nil #'eq) (cl-pushnew 'evil-escape-mode evil-mc-incompatible-minor-modes)
(add-hook! 'doom-escape-hook (add-hook! 'doom-escape-hook
(defun +multiple-cursors-escape-multiple-cursors-h () (defun +multiple-cursors-escape-multiple-cursors-h ()