mirror of
https://github.com/magnars/multiple-cursors.el.git
synced 2025-10-13 05:03:03 +00:00
25b98b940c
This change fixes commands that read-chars multiple times. Previously, two stage commands like embrace-change would read the same char twice immediately and avy-goto-char-timer would never stop reading input as a cached value was always provided during the timer. Instead, the read-char prompt is included in the cache key so that multiple different calls are cached separately and accessible by the fake cursors.
200 lines
7.4 KiB
EmacsLisp
200 lines
7.4 KiB
EmacsLisp
(require 'cl) ;; For lexical-let
|
|
|
|
(When "^I mark next like this$"
|
|
(lambda () (call-interactively 'mc/mark-next-like-this)))
|
|
|
|
(When "^I mark next like this word$"
|
|
(lambda () (call-interactively 'mc/mark-next-like-this-word)))
|
|
|
|
(When "^I mark next like this symbol$"
|
|
(lambda () (call-interactively 'mc/mark-next-like-this-symbol)))
|
|
|
|
(When "^I mark previous like this$"
|
|
(lambda () (call-interactively 'mc/mark-previous-like-this)))
|
|
|
|
(When "^I mark previous like this word$"
|
|
(lambda () (call-interactively 'mc/mark-previous-like-this-word)))
|
|
|
|
(When "^I mark previous like this symbol$"
|
|
(lambda () (call-interactively 'mc/mark-previous-like-this-symbol)))
|
|
|
|
(When "^I mark all like this$"
|
|
(lambda () (call-interactively 'mc/mark-all-like-this)))
|
|
|
|
(When "^I mark all like this dwim$"
|
|
(lambda () (call-interactively 'mc/mark-all-like-this-dwim)))
|
|
|
|
(When "^I mark all in region$"
|
|
(lambda () (call-interactively 'mc/mark-all-in-region)))
|
|
|
|
(When "^I insert numbers$"
|
|
(lambda () (call-interactively 'mc/insert-numbers)))
|
|
|
|
(When "^I insert letters$"
|
|
(lambda () (call-interactively 'mc/insert-letters)))
|
|
|
|
(When "^I reverse regions$"
|
|
(lambda () (call-interactively 'mc/reverse-regions)))
|
|
|
|
(When "^I sort regions$"
|
|
(lambda () (call-interactively 'mc/sort-regions)))
|
|
|
|
(When "^I edit lines$"
|
|
(lambda () (call-interactively 'mc/edit-lines)))
|
|
|
|
(When "^I set rectangular region anchor$"
|
|
(lambda () (call-interactively 'set-rectangular-region-anchor)))
|
|
|
|
(And "^delete-selection-mode is active$"
|
|
(lambda ()
|
|
(delete-selection-mode 1)))
|
|
|
|
(Given "^I turn off transient-mark-mode$"
|
|
(lambda ()
|
|
(transient-mark-mode -1)))
|
|
|
|
(Then "^I should have \\([0-9]+\\) cursors$"
|
|
(lambda (num)
|
|
(let ((actual (mc/num-cursors)))
|
|
(cl-assert (eq (string-to-number num) actual) nil
|
|
"Expected to have %s cursors, but was %d." num actual))))
|
|
|
|
(Then "^I should have one cursor$"
|
|
(lambda ()
|
|
(cl-assert (not multiple-cursors-mode) nil
|
|
"Expected to have one cursor, but multiple-cursors-mode is still active.")
|
|
(cl-assert (eq 1 (mc/num-cursors)) nil
|
|
"Expected to have one cursor, but there are still fake cursor overlays.")))
|
|
|
|
(Then "^rectangular-region-mode should be off$"
|
|
(lambda ()
|
|
(cl-assert (not rectangular-region-mode) nil
|
|
"Expected rectangular-region-mode mode to be off, but wasn't.")))
|
|
|
|
(Then "^rectangular-region-mode should be on$"
|
|
(lambda ()
|
|
(cl-assert rectangular-region-mode nil
|
|
"Expected rectangular-region-mode mode to be on, but wasn't.")))
|
|
|
|
(When "^I press \"\\(.+\\)\"$"
|
|
(lambda (keybinding)
|
|
(let ((macro (edmacro-parse-keys keybinding)))
|
|
(if espuds-chain-active
|
|
(setq espuds-action-chain (vconcat espuds-action-chain macro))
|
|
(if (and (equal keybinding "C-g")
|
|
(eq (key-binding (kbd "C-g")) 'keyboard-quit))
|
|
(espuds-quit)
|
|
(execute-kbd-macro macro))))))
|
|
|
|
(Given "^I have cursors at \"\\(.+\\)\" in \"\\(.+\\)\"$"
|
|
(lambda (needle haystack)
|
|
(insert haystack)
|
|
(goto-char (point-min))
|
|
(search-forward needle)
|
|
(set-mark (point))
|
|
(goto-char (match-beginning 0))
|
|
(mc/mark-all-like-this)
|
|
(mc/keyboard-quit)))
|
|
|
|
(Given "^I have cursors at \"\\(.+\\)\" in \\(?: \"\\(.+\\)\"\\|:\\)$"
|
|
(lambda (needle haystack)
|
|
(insert haystack)
|
|
(goto-char (point-min))
|
|
(search-forward needle)
|
|
(set-mark (point))
|
|
(goto-char (match-beginning 0))
|
|
(mc/mark-all-like-this)
|
|
(mc/keyboard-quit)))
|
|
|
|
|
|
(When "^I copy \"\\(.+\\)\" in another program$"
|
|
(lambda (text)
|
|
(lexical-let ((text text))
|
|
(setq interprogram-paste-function
|
|
#'(lambda () (let ((r text)) (setq text nil) r))))))
|
|
|
|
(Given "^I have bound C-! to a lambda that inserts \"\\(.+\\)\"$"
|
|
(lambda (ins)
|
|
(lexical-let ((ins ins))
|
|
(global-set-key (kbd "C-!") #'(lambda () (interactive) (insert ins))))))
|
|
|
|
(Given "^I have bound C-! to a new command that inserts \"\\(.+\\)\"$"
|
|
(lambda (ins)
|
|
(lexical-let ((ins ins))
|
|
(defun mc-test-temp-command () (interactive) (insert ins))
|
|
(global-set-key (kbd "C-!") 'mc-test-temp-command))))
|
|
|
|
(Given "^I have bound C-! to another new command that inserts \"\\(.+\\)\"$"
|
|
(lambda (ins)
|
|
(lexical-let ((ins ins))
|
|
(defun mc-test-temp-command-2 () (interactive) (insert ins))
|
|
(global-set-key (kbd "C-!") 'mc-test-temp-command-2))))
|
|
|
|
(Given "^I have bound C-! to a new command that inserts two read-chars$"
|
|
(lambda ()
|
|
(defun mc-test-temp-command-3 () (interactive) (insert (read-char "first: ")) (insert (read-char "second: ")))
|
|
(global-set-key (kbd "C-!") 'mc-test-temp-command-3)))
|
|
|
|
(Given "^I have bound C-! to a keyboard macro that insert \"_\"$"
|
|
(lambda ()
|
|
(fset 'mc-test-temp-kmacro "\C-q_")
|
|
(global-set-key (kbd "C-!") 'mc-test-temp-kmacro)))
|
|
|
|
(When "^I go to character \"\\(.+\\)\"$"
|
|
(lambda (char)
|
|
(goto-char (point-min))
|
|
(let ((search (re-search-forward (format "%s" char) nil t))
|
|
(message "Can not go to character '%s' since it does not exist in the current buffer: %s"))
|
|
(cl-assert search nil message char (espuds-buffer-contents)))))
|
|
|
|
(When "^I go to the \\(front\\|end\\) of the word \"\\(.+\\)\"$"
|
|
(lambda (pos word)
|
|
(goto-char (point-min))
|
|
(let ((search (re-search-forward (format "%s" word) nil t))
|
|
(message "Can not go to character '%s' since it does not exist in the current buffer: %s"))
|
|
(cl-assert search nil message word (espuds-buffer-contents))
|
|
(if (string-equal "front" pos) (backward-word)))))
|
|
|
|
(When "^I go to last word \"\\(.+\\)\"$"
|
|
(lambda (text)
|
|
(goto-char (point-max))
|
|
(let ((search (re-search-backward text nil t)))
|
|
(cl-assert search nil "The text '%s' was not found in the current buffer." text))))
|
|
|
|
(When "^I select the last \"\\(.+\\)\"$"
|
|
(lambda (text)
|
|
(goto-char (point-max))
|
|
(let ((search (re-search-backward text nil t)))
|
|
(cl-assert search nil "The text '%s' was not found in the current buffer." text))
|
|
(set-mark (point))
|
|
(re-search-forward text)))
|
|
|
|
(When "^I mark all \\(.+\\)$"
|
|
(lambda (rest)
|
|
(let ((func (intern (mapconcat 'identity
|
|
(cons "mc/mark-all"
|
|
(split-string rest))
|
|
"-"))))
|
|
(call-interactively func))))
|
|
|
|
(Then "^I should see exactly\\(?: \"\\(.+\\)\"\\|:\\)$"
|
|
"Asserts that the current buffer does not include some text with
|
|
respect of text hidden by overlays"
|
|
(lambda (expected)
|
|
(let ((p (point-min))
|
|
(visible-text "")
|
|
(message "Expected '%s' to be part of '%s', but was not found in current buffer.")
|
|
)
|
|
(while (not (= p (point-max)))
|
|
(if (not (invisible-p p))
|
|
(setq visible-text (concat visible-text (buffer-substring p (1+ p))))
|
|
)
|
|
(setq p (1+ p))
|
|
)
|
|
(cl-assert (s-equals? expected visible-text) nil message expected visible-text))))
|
|
|
|
|
|
;; Local Variables:
|
|
;; byte-compile-warnings: (not cl-functions)
|
|
;; End:
|