Add :editor multiple-cursors module
Moves evil-mc/evil-multiedit out of feature/evil.
This commit is contained in:
Henrik Lissner
parent
4dc5ef3879
commit
8d26879f99
5 changed files with 120 additions and 120 deletions
|
|
@ -47,6 +47,7 @@
|
||||||
window-select ; visually switch windows
|
window-select ; visually switch windows
|
||||||
|
|
||||||
:editor
|
:editor
|
||||||
|
multiple-cursors ; editing in many places at once
|
||||||
;parinfer ; turn lisp into python, sort of
|
;parinfer ; turn lisp into python, sort of
|
||||||
rotate-text ; cycle region at point between text candidates
|
rotate-text ; cycle region at point between text candidates
|
||||||
|
|
||||||
|
|
|
||||||
108
modules/editor/multiple-cursors/config.el
Normal file
108
modules/editor/multiple-cursors/config.el
Normal file
|
|
@ -0,0 +1,108 @@
|
||||||
|
;;; editor/multiple-cursors/config.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(def-package! evil-mc
|
||||||
|
:when (featurep! :feature evil)
|
||||||
|
:commands (evil-mc-make-cursor-here evil-mc-make-all-cursors
|
||||||
|
evil-mc-undo-all-cursors evil-mc-pause-cursors
|
||||||
|
evil-mc-resume-cursors evil-mc-make-and-goto-first-cursor
|
||||||
|
evil-mc-make-and-goto-last-cursor
|
||||||
|
evil-mc-make-cursor-move-next-line
|
||||||
|
evil-mc-make-cursor-move-prev-line evil-mc-make-cursor-at-pos
|
||||||
|
evil-mc-has-cursors-p evil-mc-make-and-goto-next-cursor
|
||||||
|
evil-mc-skip-and-goto-next-cursor evil-mc-make-and-goto-prev-cursor
|
||||||
|
evil-mc-skip-and-goto-prev-cursor evil-mc-make-and-goto-next-match
|
||||||
|
evil-mc-skip-and-goto-next-match evil-mc-skip-and-goto-next-match
|
||||||
|
evil-mc-make-and-goto-prev-match evil-mc-skip-and-goto-prev-match)
|
||||||
|
:init
|
||||||
|
(defvar evil-mc-key-map (make-sparse-keymap))
|
||||||
|
:config
|
||||||
|
(global-evil-mc-mode +1)
|
||||||
|
|
||||||
|
(after! smartparens
|
||||||
|
;; Make evil-mc cooperate with smartparens better
|
||||||
|
(let ((vars (cdr (assq :default evil-mc-cursor-variables))))
|
||||||
|
(unless (memq (car sp--mc/cursor-specific-vars) vars)
|
||||||
|
(setcdr (assq :default evil-mc-cursor-variables)
|
||||||
|
(append vars sp--mc/cursor-specific-vars)))))
|
||||||
|
|
||||||
|
;; Add custom commands to whitelisted commands
|
||||||
|
(dolist (fn '(doom/backward-to-bol-or-indent doom/forward-to-last-non-comment-or-eol
|
||||||
|
doom/backward-kill-to-bol-and-indent))
|
||||||
|
(add-to-list 'evil-mc-custom-known-commands `(,fn (:default . evil-mc-execute-default-call))))
|
||||||
|
|
||||||
|
;; Activate evil-mc cursors upon switching to insert mode
|
||||||
|
(defun +evil-mc|resume-cursors () (setq evil-mc-frozen nil))
|
||||||
|
(add-hook 'evil-insert-state-entry-hook #'+evil-mc|resume-cursors)
|
||||||
|
|
||||||
|
;; disable evil-escape in evil-mc; causes unwanted text on invocation
|
||||||
|
(add-to-list 'evil-mc-incompatible-minor-modes 'evil-escape-mode nil #'eq)
|
||||||
|
|
||||||
|
(defun +multiple-cursors|escape-multiple-cursors ()
|
||||||
|
"Clear evil-mc cursors and restore state."
|
||||||
|
(when (evil-mc-has-cursors-p)
|
||||||
|
(evil-mc-undo-all-cursors)
|
||||||
|
(evil-mc-resume-cursors)
|
||||||
|
t))
|
||||||
|
(add-hook 'doom-escape-hook #'+multiple-cursors|escape-multiple-cursors)
|
||||||
|
|
||||||
|
;;
|
||||||
|
(evil-add-command-properties '+evil:align :evil-mc t)
|
||||||
|
(evil-add-command-properties '+evil:mc :evil-mc t))
|
||||||
|
|
||||||
|
|
||||||
|
(def-package! multiple-cursors
|
||||||
|
:defer t
|
||||||
|
:config
|
||||||
|
;; TODO multiple-cursors config for Emacs users?
|
||||||
|
|
||||||
|
;; mc doesn't play well with evil, this attempts to assuage some of its
|
||||||
|
;; problems so that any plugins that depend on multiple-cursors (which I have
|
||||||
|
;; no control over) can still use it in relative safety.
|
||||||
|
(when (featurep! :feature evil)
|
||||||
|
(evil-define-key* '(normal emacs) mc/keymap [escape] #'mc/keyboard-quit)
|
||||||
|
|
||||||
|
(defvar +mc--compat-evil-prev-state nil)
|
||||||
|
(defvar +mc--compat-mark-was-active nil)
|
||||||
|
|
||||||
|
(defun +multiple-cursors|compat-switch-to-emacs-state ()
|
||||||
|
(when (and (bound-and-true-p evil-mode)
|
||||||
|
(not (memq evil-state '(insert emacs))))
|
||||||
|
(setq +mc--compat-evil-prev-state evil-state)
|
||||||
|
(when (region-active-p)
|
||||||
|
(setq +mc--compat-mark-was-active t))
|
||||||
|
(let ((mark-before (mark))
|
||||||
|
(point-before (point)))
|
||||||
|
(evil-emacs-state 1)
|
||||||
|
(when (or +mc--compat-mark-was-active (region-active-p))
|
||||||
|
(goto-char point-before)
|
||||||
|
(set-mark mark-before)))))
|
||||||
|
(add-hook 'multiple-cursors-mode-enabled-hook #'+multiple-cursors|compat-switch-to-emacs-state)
|
||||||
|
|
||||||
|
(defun +multiple-cursors|compat-back-to-previous-state ()
|
||||||
|
(when +mc--compat-evil-prev-state
|
||||||
|
(unwind-protect
|
||||||
|
(case +mc--compat-evil-prev-state
|
||||||
|
((normal visual) (evil-force-normal-state))
|
||||||
|
(t (message "Don't know how to handle previous state: %S"
|
||||||
|
+mc--compat-evil-prev-state)))
|
||||||
|
(setq +mc--compat-evil-prev-state nil)
|
||||||
|
(setq +mc--compat-mark-was-active nil))))
|
||||||
|
(add-hook 'multiple-cursors-mode-disabled-hook #'+multiple-cursors|compat-back-to-previous-state)
|
||||||
|
|
||||||
|
;; When running edit-lines, point will return (position + 1) as a
|
||||||
|
;; result of how evil deals with regions
|
||||||
|
(defun +multiple-cursors*adjust-mark-for-evil (&rest _)
|
||||||
|
(when (and (bound-and-true-p evil-mode)
|
||||||
|
(not (memq evil-state '(insert emacs))))
|
||||||
|
(if (> (point) (mark))
|
||||||
|
(goto-char (1- (point)))
|
||||||
|
(push-mark (1- (mark))))))
|
||||||
|
(advice-add #'mc/edit-lines :before #'+multiple-cursors*adjust-mark-for-evil)
|
||||||
|
|
||||||
|
(defun +multiple-cursors|evil-compat-rect-switch-state ()
|
||||||
|
(if rectangular-region-mode
|
||||||
|
(+multiple-cursors|compat-switch-to-emacs-state)
|
||||||
|
(setq +mc--compat-evil-prev-state nil)))
|
||||||
|
(add-hook 'rectangular-region-mode-hook '+multiple-cursors|evil-compat-rect-switch-state)
|
||||||
|
|
||||||
|
(defvar mc--default-cmds-to-run-once nil)))
|
||||||
9
modules/editor/multiple-cursors/packages.el
Normal file
9
modules/editor/multiple-cursors/packages.el
Normal file
|
|
@ -0,0 +1,9 @@
|
||||||
|
;; -*- no-byte-compile: t; -*-
|
||||||
|
;;; editor/multiple-cursors/packages.el
|
||||||
|
|
||||||
|
(cond ((featurep! :feature evil)
|
||||||
|
(package! evil-multiedit)
|
||||||
|
(package! evil-mc))
|
||||||
|
|
||||||
|
((package! multiple-cursors)))
|
||||||
|
|
||||||
|
|
@ -138,9 +138,9 @@
|
||||||
;; Forward declare these so that ex completion works, even if the autoloaded
|
;; Forward declare these so that ex completion works, even if the autoloaded
|
||||||
;; functions aren't loaded yet.
|
;; functions aren't loaded yet.
|
||||||
(evil-set-command-properties
|
(evil-set-command-properties
|
||||||
'+evil:align :move-point t :ex-arg 'buffer-match :ex-bang t :evil-mc t :keep-visual t :suppress-operator t)
|
'+evil:align :move-point t :ex-arg 'buffer-match :ex-bang t :keep-visual t :suppress-operator t)
|
||||||
(evil-set-command-properties
|
(evil-set-command-properties
|
||||||
'+evil:mc :move-point nil :ex-arg 'global-match :ex-bang t :evil-mc t)
|
'+evil:mc :move-point nil :ex-arg 'global-match :ex-bang t)
|
||||||
|
|
||||||
;; `evil-collection'
|
;; `evil-collection'
|
||||||
(when (featurep! +everywhere)
|
(when (featurep! +everywhere)
|
||||||
|
|
@ -272,64 +272,6 @@ the new algorithm is confusing, like in python or ruby."
|
||||||
(add-hook 'python-mode-hook #'+evil|simple-matchit))
|
(add-hook 'python-mode-hook #'+evil|simple-matchit))
|
||||||
|
|
||||||
|
|
||||||
(def-package! evil-multiedit
|
|
||||||
:commands (evil-multiedit-match-all
|
|
||||||
evil-multiedit-match-and-next
|
|
||||||
evil-multiedit-match-and-prev
|
|
||||||
evil-multiedit-match-symbol-and-next
|
|
||||||
evil-multiedit-match-symbol-and-prev
|
|
||||||
evil-multiedit-toggle-or-restrict-region
|
|
||||||
evil-multiedit-next
|
|
||||||
evil-multiedit-prev
|
|
||||||
evil-multiedit-abort
|
|
||||||
evil-multiedit-ex-match))
|
|
||||||
|
|
||||||
|
|
||||||
(def-package! evil-mc
|
|
||||||
:commands (evil-mc-make-cursor-here evil-mc-make-all-cursors
|
|
||||||
evil-mc-undo-all-cursors evil-mc-pause-cursors
|
|
||||||
evil-mc-resume-cursors evil-mc-make-and-goto-first-cursor
|
|
||||||
evil-mc-make-and-goto-last-cursor
|
|
||||||
evil-mc-make-cursor-move-next-line
|
|
||||||
evil-mc-make-cursor-move-prev-line evil-mc-make-cursor-at-pos
|
|
||||||
evil-mc-has-cursors-p evil-mc-make-and-goto-next-cursor
|
|
||||||
evil-mc-skip-and-goto-next-cursor evil-mc-make-and-goto-prev-cursor
|
|
||||||
evil-mc-skip-and-goto-prev-cursor evil-mc-make-and-goto-next-match
|
|
||||||
evil-mc-skip-and-goto-next-match evil-mc-skip-and-goto-next-match
|
|
||||||
evil-mc-make-and-goto-prev-match evil-mc-skip-and-goto-prev-match)
|
|
||||||
:init
|
|
||||||
(defvar evil-mc-key-map (make-sparse-keymap))
|
|
||||||
:config
|
|
||||||
(global-evil-mc-mode +1)
|
|
||||||
|
|
||||||
(after! smartparens
|
|
||||||
;; Make evil-mc cooperate with smartparens better
|
|
||||||
(let ((vars (cdr (assq :default evil-mc-cursor-variables))))
|
|
||||||
(unless (memq (car sp--mc/cursor-specific-vars) vars)
|
|
||||||
(setcdr (assq :default evil-mc-cursor-variables)
|
|
||||||
(append vars sp--mc/cursor-specific-vars)))))
|
|
||||||
|
|
||||||
;; Add custom commands to whitelisted commands
|
|
||||||
(dolist (fn '(doom/backward-to-bol-or-indent doom/forward-to-last-non-comment-or-eol
|
|
||||||
doom/backward-kill-to-bol-and-indent))
|
|
||||||
(add-to-list 'evil-mc-custom-known-commands `(,fn (:default . evil-mc-execute-default-call))))
|
|
||||||
|
|
||||||
;; Activate evil-mc cursors upon switching to insert mode
|
|
||||||
(defun +evil-mc|resume-cursors () (setq evil-mc-frozen nil))
|
|
||||||
(add-hook 'evil-insert-state-entry-hook #'+evil-mc|resume-cursors)
|
|
||||||
|
|
||||||
;; disable evil-escape in evil-mc; causes unwanted text on invocation
|
|
||||||
(add-to-list 'evil-mc-incompatible-minor-modes 'evil-escape-mode nil #'eq)
|
|
||||||
|
|
||||||
(defun +evil|escape-multiple-cursors ()
|
|
||||||
"Clear evil-mc cursors and restore state."
|
|
||||||
(when (evil-mc-has-cursors-p)
|
|
||||||
(evil-mc-undo-all-cursors)
|
|
||||||
(evil-mc-resume-cursors)
|
|
||||||
t))
|
|
||||||
(add-hook 'doom-escape-hook #'+evil|escape-multiple-cursors))
|
|
||||||
|
|
||||||
|
|
||||||
(def-package! evil-snipe
|
(def-package! evil-snipe
|
||||||
:commands (evil-snipe-mode evil-snipe-override-mode
|
:commands (evil-snipe-mode evil-snipe-override-mode
|
||||||
evil-snipe-local-mode evil-snipe-override-local-mode)
|
evil-snipe-local-mode evil-snipe-override-local-mode)
|
||||||
|
|
@ -392,61 +334,3 @@ the new algorithm is confusing, like in python or ruby."
|
||||||
|
|
||||||
(def-package! exato
|
(def-package! exato
|
||||||
:commands (evil-outer-xml-attr evil-inner-xml-attr))
|
:commands (evil-outer-xml-attr evil-inner-xml-attr))
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Multiple cursors compatibility (for the plugins that use it)
|
|
||||||
;;
|
|
||||||
|
|
||||||
;; mc doesn't play well with evil, this attempts to assuage some of its problems
|
|
||||||
;; so that any plugins that depend on multiple-cursors (which I have no control
|
|
||||||
;; over) can still use it in relative safety.
|
|
||||||
(after! multiple-cursors-core
|
|
||||||
(evil-define-key* '(normal emacs) mc/keymap [escape] #'mc/keyboard-quit)
|
|
||||||
|
|
||||||
(defvar +evil--mc-compat-evil-prev-state nil)
|
|
||||||
(defvar +evil--mc-compat-mark-was-active nil)
|
|
||||||
|
|
||||||
(defun +evil|mc-compat-switch-to-emacs-state ()
|
|
||||||
(when (and (bound-and-true-p evil-mode)
|
|
||||||
(not (memq evil-state '(insert emacs))))
|
|
||||||
(setq +evil--mc-compat-evil-prev-state evil-state)
|
|
||||||
(when (region-active-p)
|
|
||||||
(setq +evil--mc-compat-mark-was-active t))
|
|
||||||
(let ((mark-before (mark))
|
|
||||||
(point-before (point)))
|
|
||||||
(evil-emacs-state 1)
|
|
||||||
(when (or +evil--mc-compat-mark-was-active (region-active-p))
|
|
||||||
(goto-char point-before)
|
|
||||||
(set-mark mark-before)))))
|
|
||||||
|
|
||||||
(defun +evil|mc-compat-back-to-previous-state ()
|
|
||||||
(when +evil--mc-compat-evil-prev-state
|
|
||||||
(unwind-protect
|
|
||||||
(case +evil--mc-compat-evil-prev-state
|
|
||||||
((normal visual) (evil-force-normal-state))
|
|
||||||
(t (message "Don't know how to handle previous state: %S"
|
|
||||||
+evil--mc-compat-evil-prev-state)))
|
|
||||||
(setq +evil--mc-compat-evil-prev-state nil)
|
|
||||||
(setq +evil--mc-compat-mark-was-active nil))))
|
|
||||||
|
|
||||||
(add-hook 'multiple-cursors-mode-enabled-hook #'+evil|mc-compat-switch-to-emacs-state)
|
|
||||||
(add-hook 'multiple-cursors-mode-disabled-hook #'+evil|mc-compat-back-to-previous-state)
|
|
||||||
|
|
||||||
;; When running edit-lines, point will return (position + 1) as a
|
|
||||||
;; result of how evil deals with regions
|
|
||||||
(defun +evil*mc/edit-lines (&rest _)
|
|
||||||
(when (and (bound-and-true-p evil-mode)
|
|
||||||
(not (memq evil-state '(insert emacs))))
|
|
||||||
(if (> (point) (mark))
|
|
||||||
(goto-char (1- (point)))
|
|
||||||
(push-mark (1- (mark))))))
|
|
||||||
(advice-add #'mc/edit-lines :before #'+evil*mc/edit-lines)
|
|
||||||
|
|
||||||
(defun +evil|mc-evil-compat-rect-switch-state ()
|
|
||||||
(if rectangular-region-mode
|
|
||||||
(+evil|mc-compat-switch-to-emacs-state)
|
|
||||||
(setq +evil--mc-compat-evil-prev-state nil)))
|
|
||||||
(add-hook 'rectangular-region-mode-hook '+evil|mc-evil-compat-rect-switch-state)
|
|
||||||
|
|
||||||
(defvar mc--default-cmds-to-run-once nil))
|
|
||||||
|
|
|
||||||
|
|
@ -10,8 +10,6 @@
|
||||||
(package! evil-exchange)
|
(package! evil-exchange)
|
||||||
(package! evil-indent-plus)
|
(package! evil-indent-plus)
|
||||||
(package! evil-matchit)
|
(package! evil-matchit)
|
||||||
(package! evil-mc)
|
|
||||||
(package! evil-multiedit)
|
|
||||||
(package! evil-numbers)
|
(package! evil-numbers)
|
||||||
(package! evil-textobj-anyblock)
|
(package! evil-textobj-anyblock)
|
||||||
(package! evil-snipe)
|
(package! evil-snipe)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue