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

editor/multiple-cursors: minor refactor

Browse source 
Remove some redundant entries in evil-mc-custom-known-commands.
This commit is contained in:
Henrik Lissner 2020-08-02 19:21:31 -04:00
parent b8c20d50fe
commit a9d36ddcaf
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -64,22 +64,21 @@
;; Whitelist more commands ;; Whitelist more commands
(dolist (fn '((delete-char) (dolist (fn '((delete-char)
(backward-kill-word) (backward-kill-word)
(undo-fu-only-undo . evil-mc-execute-default-undo)
(undo-fu-only-redo . evil-mc-execute-default-redo)
(company-complete-common . evil-mc-execute-default-complete) (company-complete-common . evil-mc-execute-default-complete)
(doom/backward-to-bol-or-indent . evil-mc-execute-default-call) (doom/backward-to-bol-or-indent . evil-mc-execute-default-call)
(doom/forward-to-last-non-comment-or-eol . evil-mc-execute-default-call) (doom/forward-to-last-non-comment-or-eol . evil-mc-execute-default-call)
;; :emacs undo
(undo-fu-only-undo . evil-mc-execute-default-undo)
(undo-fu-only-redo . evil-mc-execute-default-redo)
;; :editor evil ;; :editor evil
(evil-delete-back-to-indentation . evil-mc-execute-default-call) (evil-delete-back-to-indentation . evil-mc-execute-default-call)
(evil-escape . evil-mc-execute-default-evil-normal-state) ; C-g (evil-escape . evil-mc-execute-default-evil-normal-state) ; C-g
(evil-numbers/inc-at-pt-incremental) (evil-numbers/inc-at-pt-incremental)
(evil-numbers/dec-at-pt-incremental) (evil-numbers/dec-at-pt-incremental)
;; :tools eval commands ;; :tools eval
(+eval:replace-region . +multiple-cursors-execute-default-operator-fn) (+eval:replace-region . +multiple-cursors-execute-default-operator-fn)
;; :lang org ;; :lang org
(evil-org-delete . evil-mc-execute-default-evil-delete) (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)))
(setf (alist-get (car fn) evil-mc-custom-known-commands) (setf (alist-get (car fn) evil-mc-custom-known-commands)
(list (cons :default (list (cons :default
(or (cdr fn) (or (cdr fn)
@ -105,12 +104,12 @@
;; our multiple cursors ;; 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)
;; evil-escape's escape key sequence leaves behind extraneous characters (pushnew! evil-mc-incompatible-minor-modes
(cl-pushnew 'evil-escape-mode evil-mc-incompatible-minor-modes) ;; evil-escape's escape key leaves behind extraneous characters
;; Lispy commands don't register on more than 1 cursor. Lispyville is fine 'evil-escape-mode
;; though. ;; Lispy commands don't register on more than 1 cursor. Lispyville
(when (featurep! :editor lispy) ;; is fine though.
(cl-pushnew 'lispy-mode evil-mc-incompatible-minor-modes)) 'lispy-mode)
(add-hook! 'doom-escape-hook (add-hook! 'doom-escape-hook
(defun +multiple-cursors-escape-multiple-cursors-h () (defun +multiple-cursors-escape-multiple-cursors-h ()