[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 52a083e 13/90: ivy.el (ivy-yank-word): New command
From: |
Oleh Krehel |
Subject: |
[elpa] master 52a083e 13/90: ivy.el (ivy-yank-word): New command |
Date: |
Tue, 30 Jun 2015 07:28:05 +0000 |
branch: master
commit 52a083ec2c317f3450d27550f610827be1228924
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
ivy.el (ivy-yank-word): New command
* swiper.el (swiper--update-input-ivy): Move point to current regex, not
just current line.
Gives a behavior similar to "C-w" of `isearch'. Possible binding:
(define-key ivy-minibuffer-map (kbd "C-w") 'ivy-yank-word)
Fixes #125
---
ivy.el | 15 +++++++++++++++
swiper.el | 1 +
2 files changed, 16 insertions(+), 0 deletions(-)
diff --git a/ivy.el b/ivy.el
index 2149e2d..07aa28c 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1269,6 +1269,21 @@ BUFFER may be a string or nil."
(ivy-read "Recentf: " recentf-list
:action #'find-file))
+(defun ivy-yank-word ()
+ "Pull next word from buffer into search string."
+ (interactive)
+ (let (amend)
+ (with-selected-window (ivy-state-window ivy-last)
+ (let ((pt (point))
+ (le (line-end-position)))
+ (forward-word 1)
+ (setf (window-point) (point))
+ (if (> (point) le)
+ (goto-char pt)
+ (setq amend (buffer-substring-no-properties pt (point))))))
+ (when amend
+ (insert amend))))
+
(provide 'ivy)
;;; ivy.el ends here
diff --git a/swiper.el b/swiper.el
index 3ab246e..27e864e 100644
--- a/swiper.el
+++ b/swiper.el
@@ -287,6 +287,7 @@ Please remove it and update the \"swiper\" package."))
(when (cl-plusp num)
(goto-char (point-min))
(forward-line (1- num))
+ (re-search-forward re (line-end-position) t)
(isearch-range-invisible (line-beginning-position)
(line-end-position))
(unless (and (>= (point) (window-start))
- [elpa] master 5f7c787 11/90: counsel.el (counsel-find-file-at-point): New defcustom, (continued)
- [elpa] master 5f7c787 11/90: counsel.el (counsel-find-file-at-point): New defcustom, Oleh Krehel, 2015/06/30
- [elpa] master efd74b8 10/90: counsel.el (counsel-find-file): Extend `find-file', Oleh Krehel, 2015/06/30
- [elpa] master 8212110 15/90: Handle symbol-at-point better in non-Elisp buffers, Oleh Krehel, 2015/06/30
- [elpa] master fe057eb 14/90: Swiper should preserve column for empty input, Oleh Krehel, 2015/06/30
- [elpa] master 1a193b0 16/90: ivy.el (ivy--done): Set ivy--current, Oleh Krehel, 2015/06/30
- [elpa] master 97abd3c 17/90: ivy.el (ivy-virtual): New defface, Oleh Krehel, 2015/06/30
- [elpa] master 3c8daba 19/90: Fixup compilation warnings, Oleh Krehel, 2015/06/30
- [elpa] master ecb93a6 18/90: Regexp-quote name of candidate buffer to be preselected, Oleh Krehel, 2015/06/30
- [elpa] master 40a938b 21/90: ivy.el (ivy-minibuffer-map): Bind ivy-yank-word to "M-j", Oleh Krehel, 2015/06/30
- [elpa] master 00a1b02 22/90: counsel-git-grep should quote strings better, Oleh Krehel, 2015/06/30
- [elpa] master 52a083e 13/90: ivy.el (ivy-yank-word): New command,
Oleh Krehel <=
- [elpa] master 9ae55b4 12/90: ivy.el (ivy-recentf): New command, Oleh Krehel, 2015/06/30
- [elpa] master ed60d31 20/90: Make counsel-git-grep fully async, Oleh Krehel, 2015/06/30
- [elpa] master bef708c 23/90: ivy.el (ivy--switch-buffer-action): Add work-around, Oleh Krehel, 2015/06/30
- [elpa] master 77e7c8f 24/90: Account for minibuffer-depth-indication-mode, Oleh Krehel, 2015/06/30
- [elpa] master 607d943 25/90: Add a hack for kill-buffer and invisible buffer, Oleh Krehel, 2015/06/30
- [elpa] master 3699897 26/90: counsel.el (counsel-symbol-at-point): Improve, Oleh Krehel, 2015/06/30
- [elpa] master 03e7e70 27/90: counsel.el (counsel-M-x): New command, Oleh Krehel, 2015/06/30
- [elpa] master efa751b 28/90: counsel.el (counsel-M-x): Piggyback on smex for sorting, Oleh Krehel, 2015/06/30
- [elpa] master ebead12 29/90: Add fuzzy matching function, Oleh Krehel, 2015/06/30
- [elpa] master 84e20a3 30/90: Fixup ivy-resume for file completion, Oleh Krehel, 2015/06/30