.emacs.d/setup-files/setup-multiple-cursors.el at master · kaushalmodi/.emacs.d · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
;; Time-stamp: <2017-09-20 09:52:55 kmodi>

;; Multiple Cursors
;; https://github.com/magnars/multiple-cursors.el

(use-package multiple-cursors
  :bind (:map modi-mode-map
         ("C-S-c C-S-c" . mc/edit-lines)
         ("C->" . mc/mark-next-like-this)
         ("C-<" . mc/mark-previous-like-this)
         ("C-c C-<" . mc/mark-all-like-this)
         ("C-S-<mouse-1>" . mc/add-cursor-on-click))
  :bind (:map region-bindings-mode-map
         ("a" . mc/mark-all-like-this)
         ("p" . mc/mark-previous-like-this)
         ("n" . mc/mark-next-like-this)
         ("P" . mc/unmark-previous-like-this)
         ("N" . mc/unmark-next-like-this)
         ("[" . mc/cycle-backward)
         ("]" . mc/cycle-forward)
         ("m" . mc/mark-more-like-this-extended)
         ("h" . mc-hide-unmatched-lines-mode)
         ("\\" . mc/vertical-align-with-space)
         ("#" . mc/insert-numbers) ; use num prefix to set the starting number
         ("^" . mc/edit-beginnings-of-lines)
         ("$" . mc/edit-ends-of-lines))
  :init
  (progn
    ;; Temporary hack to get around bug # 28524 in emacs 26+
    ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28524
    (setq mc/mode-line
          `(" mc:" (:eval (format ,(propertize "%-2d" 'face 'font-lock-warning-face)
                                  (mc/num-cursors)))))

    (setq mc/list-file (locate-user-emacs-file "mc-lists"))

    ;; Disable the annoying sluggish matching paren blinks for all cursors
    ;; when you happen to type a ")" or "}" at all cursor locations.
    (defvar modi/mc-blink-matching-paren--store nil
      "Internal variable used to restore the value of `blink-matching-paren'
after `multiple-cursors-mode' is quit.")

    ;; The `multiple-cursors-mode-enabled-hook' and
    ;; `multiple-cursors-mode-disabled-hook' are run in the
    ;; `multiple-cursors-mode' minor mode definition, but they are not declared
    ;; (not `defvar'd). So do that first before using `add-hook'.
    (defvar multiple-cursors-mode-enabled-hook nil
      "Hook that is run after `multiple-cursors-mode' is enabled.")
    (defvar multiple-cursors-mode-disabled-hook nil
      "Hook that is run after `multiple-cursors-mode' is disabled.")

    (defun modi/mc-when-enabled ()
      "Function to be added to `multiple-cursors-mode-enabled-hook'."
      (setq modi/mc-blink-matching-paren--store blink-matching-paren)
      (setq blink-matching-paren nil))

    (defun modi/mc-when-disabled ()
      "Function to be added to `multiple-cursors-mode-disabled-hook'."
      (setq blink-matching-paren modi/mc-blink-matching-paren--store))

    (add-hook 'multiple-cursors-mode-enabled-hook #'modi/mc-when-enabled)
    (add-hook 'multiple-cursors-mode-disabled-hook #'modi/mc-when-disabled)))


(provide 'setup-multiple-cursors)

;; * Mark one more occurrence
;;
;; | mc/mark-next-like-this            | Adds a cursor and region at the next part of the buffer       |
;; |                                   | forwards that matches the current region.                     |
;; | mc/mark-next-word-like-this       | Like `mc/mark-next-like-this` but only for whole words.       |
;; | mc/mark-next-symbol-like-this     | Like `mc/mark-next-like-this` but only for whole symbols.     |
;; | mc/mark-previous-like-this        | Adds a cursor and region at the next part of the buffer       |
;; |                                   | backwards that matches the current region.                    |
;; | mc/mark-previous-word-like-this   | Like `mc/mark-previous-like-this` but only for whole words.   |
;; | mc/mark-previous-symbol-like-this | Like `mc/mark-previous-like-this` but only for whole symbols. |
;; | mc/mark-more-like-this-extended   | Use arrow keys to quickly mark/skip next/previous occurances. |
;; | mc/add-cursor-on-click            | Bind to a mouse event to add cursors by clicking.             |
;; |                                   | See tips-section.                                             |
;;
;; * Mark many occurrences
;;
;; | mc/mark-all-like-this                  | Marks all parts of the buffer that matches the current region.        |
;; | mc/mark-all-words-like-this            | Like `mc/mark-all-like-this` but only for whole words.                |
;; | mc/mark-all-symbols-like-this          | Like `mc/mark-all-like-this` but only for whole symbols.              |
;; | mc/mark-all-in-region                  | Prompts for a string to match in the region, adding cursors           |
;; |                                        | to all of them.                                                       |
;; | mc/mark-all-like-this-in-defun         | Marks all parts of the current defun that matches the current region. |
;; | mc/mark-all-words-like-this-in-defun   | Like `mc/mark-all-like-this-in-defun` but only for whole words.       |
;; | mc/mark-all-symbols-like-this-in-defun | Like `mc/mark-all-like-this-in-defun` but only for whole symbols.     |
;; | mc/mark-all-like-this-dwim             | Tries to be smart about marking everything you want. Can be           |
;; |                                        | pressed multiple times.                                               |
;;
;; * Special
;;
;; | set-rectangular-region-anchor | Think of this one as `set-mark` except you're marking a rectangular region. |
;; | mc/mark-sgml-tag-pair         | Mark the current opening and closing tag.                                   |
;; | mc/insert-numbers             | Insert increasing numbers for each cursor, top to bottom.                   |
;; | mc/sort-regions               | Sort the marked regions alphabetically.                                     |
;; | mc/reverse-regions            | Reverse the order of the marked regions.                                    |
;;
;; ** Tips and tricks
;; - To get out of multiple-cursors-mode, press `<return>` or `C-g`. The latter will
;;   first disable multiple regions before disabling multiple cursors. If you want to
;;   insert a newline in multiple-cursors-mode, use `C-j`.
;; - Sometimes you end up with cursors outside of your view. You can
;;   scroll the screen to center on each cursor with `C-v` and `M-v`.
;; - Try pressing `mc/mark-next-like-this` with no region selected. It will just add a cursor
;;   on the next line.
;; - Try pressing `mc/mark-all-like-this-dwim` on a tagname in html-mode.
;; - Notice that the number of cursors active can be seen in the modeline.
;; - If you get out of multiple-cursors-mode and yank - it will yank only
;;   from the kill-ring of main cursor. To yank from the kill-rings of
;;   every cursor use yank-rectangle, normally found at C-x r y.
;; - You can use `mc/reverse-regions` with nothing selected and just one cursor.
;;   It will then flip the sexp at point and the one below it.
;; - If you would like to keep the global bindings clean, and get custom keybindings
;;   when the region is active, you can try [region-bindings-mode](https://github.com/fgallina/region-bindings-mode).
;;
;; It is recommended to add `mc/mark-next-like-this` to a key binding that's
;; right next to the key for `er/expand-region`.