ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-14 13:23:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Explicitly depend on mark-multiple.

Browse Source
This commit is contained in:
Magnar Sveen 2012-01-25 15:55:46 +01:00
parent 80fdb6f68d
commit 224f919d68
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
README.md
View File

@ -4,6 +4,10 @@ An experiment in multiple cursors for emacs. Still very much in beta.
The basic concept works, but there are definitely some kinks to work out. The basic concept works, but there are definitely some kinks to work out.
This extension is dependent on the mark-multiple library.
https://github.com/magnars/mark-multiple.el
## Usage ## Usage
I've set up my key-bindings like so: I've set up my key-bindings like so:
@ -15,6 +19,10 @@ I've set up my key-bindings like so:
To get out of multiple-cursors-mode, press `C-g`. To get out of multiple-cursors-mode, press `C-g`.
You can also switch to multiple-cursors-mode by pressing C-g when in
mark-multiple-mode. This is symmetrical to how pressing C-g with an active
region deactivates it. Press C-g again to remove extra cursors.
## Contribute ## Contribute
There's plenty wrong with this implementation still. I'm actively trying things There's plenty wrong with this implementation still. I'm actively trying things

17
multiple-cursors.el
View File

@ -24,6 +24,9 @@
;; ;;
;; The basic concept works, but there are definitely some kinks to work out. ;; The basic concept works, but there are definitely some kinks to work out.
;; This extension is dependent on the mark-multiple library.
;; https://github.com/magnars/mark-multiple.el
;; ** Usage ;; ** Usage
;; I've set up my key-bindings like so: ;; I've set up my key-bindings like so:
@ -51,6 +54,8 @@
;;; Code: ;;; Code:
(require 'mark-multiple)
(defface mc/cursor-face (defface mc/cursor-face
'((t (:inverse-video t))) '((t (:inverse-video t)))
"The face used for additional cursors" "The face used for additional cursors"
@ -120,7 +125,7 @@ from being executed if in multiple-cursors-mode."
move-end-of-line-or-next-line move-end-of-line-or-next-line
move-start-of-line-or-prev-line)) move-start-of-line-or-prev-line))
(defun mc/execute-command-for-all-cursors (cmd) (defun mc/execute-command-for-all-fake-cursors (cmd)
"Calls CMD interactively for each cursor. "Calls CMD interactively for each cursor.
It works by moving point to the fake cursor, setting It works by moving point to the fake cursor, setting
up the proper kill-ring, and then removing the cursor. up the proper kill-ring, and then removing the cursor.
@ -152,7 +157,7 @@ cursors."
(message "%S is not supported with multiple cursors" this-original-command) (message "%S is not supported with multiple cursors" this-original-command)
(if (not (memq this-original-command mc--cmds)) (if (not (memq this-original-command mc--cmds))
(message "Skipping %S" this-original-command) (message "Skipping %S" this-original-command)
(mc/execute-command-for-all-cursors this-original-command)))) (mc/execute-command-for-all-fake-cursors this-original-command))))
(defun mc/remove-additional-cursors () (defun mc/remove-additional-cursors ()
"Remove all fake cursors. "Remove all fake cursors.
@ -206,17 +211,17 @@ mark-multiple if point and mark is on different columns."
"Add one cursor to the end of each line in the active region." "Add one cursor to the end of each line in the active region."
(interactive) (interactive)
(mc/add-multiple-cursors-to-region-lines) (mc/add-multiple-cursors-to-region-lines)
(mc/execute-command-for-all-cursors 'end-of-line) (mc/execute-command-for-all-fake-cursors 'end-of-line)
(end-of-line)) (end-of-line))
(defun mc/edit-beginnings-of-lines () (defun mc/edit-beginnings-of-lines ()
"Add one cursor to the beginning of each line in the active region." "Add one cursor to the beginning of each line in the active region."
(interactive) (interactive)
(mc/add-multiple-cursors-to-region-lines) (mc/add-multiple-cursors-to-region-lines)
(mc/execute-command-for-all-cursors 'beginning-of-line) (mc/execute-command-for-all-fake-cursors 'beginning-of-line)
(beginning-of-line)) (beginning-of-line))
(defun mc/switch-to-cursors-from-mark-multiple () (defun mc/switch-from-mark-multiple-to-cursors ()
"Removes mark-multiple and switches to multiple cursors instead" "Removes mark-multiple and switches to multiple cursors instead"
(interactive) (interactive)
(let ((offset (- (point) (overlay-start mm/master)))) (let ((offset (- (point) (overlay-start mm/master))))
@ -228,7 +233,7 @@ mark-multiple if point and mark is on different columns."
(deactivate-mark) (deactivate-mark)
(multiple-cursors-mode))) (multiple-cursors-mode)))
(define-key mm/keymap (kbd "C-g") 'mc/switch-to-cursors-from-mark-multiple) (define-key mm/keymap (kbd "C-g") 'mc/switch-from-mark-multiple-to-cursors)
(provide 'multiple-cursors) (provide 'multiple-cursors)