diff options
Diffstat (limited to 'emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el')
-rw-r--r-- | emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el b/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el index 5c80ccf..b841d9f 100644 --- a/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el +++ b/emacs/.config/emacs-kj/lisp/kj-multiple-cursors.el @@ -2,24 +2,22 @@ (use-package multiple-cursors :config - (defvar kj/multiple-cursors-map (make-sparse-keymap "cursors")) - (define-key kj/multiple-cursors-map "." '("→ this" . mc/mark-next-like-this)) - (define-key kj/multiple-cursors-map "," '("← this" . mc/mark-previous-like-this)) - (define-key kj/multiple-cursors-map ">" '("⇥ this" . mc/skip-to-next-like-this)) - (define-key kj/multiple-cursors-map "<" '("⇤ this" . mc/skip-to-previous-like-this)) - (define-key kj/multiple-cursors-map "<" '("⇤ this" . mc/skip-to-previous-like-this)) - (define-key kj/multiple-cursors-map "*" '("all like this" . mc/mark-all-like-this)) - (define-key kj/multiple-cursors-map "w" '("word" . mc/mark-next-like-this-word)) - (define-key kj/multiple-cursors-map "s" '("symbol" . mc/mark-next-like-this-symbol)) - (define-key kj/multiple-cursors-map "(" '("symbol defun" . mc/mark-all-symbols-like-this-in-defun)) - (define-key kj/multiple-cursors-map (kbd "DEL") '("DEL last" . mc/unmark-next-like-this)) - (define-key kj/multiple-cursors-map (kbd "<delete>") '("DEL first" . mc/unmark-previous-like-this)) - (global-set-key (kbd "C-c m") (cons "cursors" kj/multiple-cursors-map)) - - (map-keymap - (lambda (_key cmd) - (put (cdr cmd) 'repeat-map 'kj/multiple-cursors-map)) - kj/multiple-cursors-map)) + (defvar kj/multiple-cursors-map + (let ((map (make-sparse-keymap "cursors"))) + (define-repeating-key map "." mc/mark-next-like-this "→ this") + (define-repeating-key map "," mc/mark-previous-like-this "← this") + (define-repeating-key map ">" mc/skip-to-next-like-this "⇥ this") + (define-repeating-key map "<" mc/skip-to-previous-like-this "⇤ this") + (define-repeating-key map "<" mc/skip-to-previous-like-this "⇤ this") + (define-repeating-key map "*" mc/mark-all-like-this "all like this") + (define-repeating-key map "w" mc/mark-next-like-this-word "word") + (define-repeating-key map "s" mc/mark-next-like-this-symbol "symbol") + (define-repeating-key map "(" mc/mark-all-symbols-like-this-in-defun "symbol defun") + (define-repeating-key map (kbd "DEL") mc/unmark-next-like-this "DEL last") + (define-repeating-key map (kbd "<delete>") mc/unmark-previous-like-this "DEL first") + (define-key map (kbd "C-g") '("quit" . ignore)) + map)) + (global-set-key (kbd "C-c m") (cons "cursors" kj/multiple-cursors-map))) (provide 'kj-multiple-cursors) |