branch: elpa/evil-visualstar
commit 687ae03c247d9773b1dd332bea43e3c2e4004922
Author: Bailey Ling <[email protected]>
Commit: Bailey Ling <[email protected]>
set jumps and don't repeat. resolves #7 and #9.
---
evil-visualstar.el | 23 +++++++++++++++++------
1 file changed, 17 insertions(+), 6 deletions(-)
diff --git a/evil-visualstar.el b/evil-visualstar.el
index d4e7c6c8a2..171f7c3529 100644
--- a/evil-visualstar.el
+++ b/evil-visualstar.el
@@ -48,11 +48,18 @@
(require 'evil)
-(defvar evil-visualstar/persistent nil
+(defgroup evil-visualstar nil
+ "evil-visualstar configuration options."
+ :prefix "evil-visualstar"
+ :group 'evil)
+
+(defcustom evil-visualstar/persistent nil
"Set to `t` if `*` and `#` should keep visual-mode.
That would visually-select the found occurrence, allowing for
repeated searches.
-You will need to hit escape to leave visual-mode.")
+You will need to hit escape to leave visual-mode."
+ :group 'evil-visualstar
+ :type 'boolean)
(defun evil-visualstar/begin-search (beg end direction)
(when (evil-visual-state-p)
@@ -77,14 +84,18 @@ You will need to hit escape to leave visual-mode.")
(when (and evil-visualstar/persistent found)
(push-mark (+ (point) (- end beg)) nil t)))))
-(defun evil-visualstar/begin-search-forward (beg end)
+(evil-define-command evil-visualstar/begin-search-forward (beg end)
"Search for the visual selection forwards."
- (interactive "r")
+ :jump t
+ :repeat nil
+ (interactive "<r>")
(evil-visualstar/begin-search beg end t))
-(defun evil-visualstar/begin-search-backward (beg end)
+(evil-define-command evil-visualstar/begin-search-backward (beg end)
"Search for the visual selection backwards."
- (interactive "r")
+ :jump t
+ :repeat nil
+ (interactive "<r>")
(evil-visualstar/begin-search beg end nil))
;;;###autoload
