branch: elpa/evil-visualstar
commit de939b4013f52a19d1e413c601bbcea88f0233ac
Author: Bailey Ling <[email protected]>
Commit: Bailey Ling <[email protected]>
reimplement as a minor-mode.
resolves #3.
---
README.md | 6 +++++-
evil-visualstar.el | 33 +++++++++++++++++++++++++++------
2 files changed, 32 insertions(+), 7 deletions(-)
diff --git a/README.md b/README.md
index 3e0821cd35..0c0fe6c97a 100644
--- a/README.md
+++ b/README.md
@@ -6,9 +6,13 @@ This is a port of one of the many visual-star plugins for Vim
to work with [evil
installation
============
-Add `evil-visualstar.el` to the `load-path` and `(require 'evil-visualstar)`.
+Install `evil-visualstar` from [MELPA][1].
usage
=====
+Add `(global-evil-visualstar-mode)` to your configuration.
+
Make a visual selection with `v` or `V`, and then hit `*` to search that
selection forward, or `#` to search that selection backward.
+
+[1]: http://melpa.org
diff --git a/evil-visualstar.el b/evil-visualstar.el
index 9d120e4022..1bb76185ec 100644
--- a/evil-visualstar.el
+++ b/evil-visualstar.el
@@ -6,7 +6,7 @@
;; Filename: evil-visualstar.el
;; Description: Starts a * or # search from the visual selection
;; Created: 2013-09-24
-;; Version: 0.0.1
+;; Version: 0.1.0
;; Keywords: evil vim visualstar
;; Package-Requires: ((evil "0"))
;;
@@ -36,6 +36,8 @@
;;
;; Usage:
;;
+;; (global-evil-visualstar-mode t)
+;;
;; Make a visual selection with `v` or `V`, and then hit `*` to search
;; the selection forward, or # to search that selection backward.
@@ -43,7 +45,6 @@
(require 'evil)
-;;;###autoload
(defun evil-visualstar/begin-search (beg end direction)
(when (evil-visual-state-p)
(evil-exit-visual-state)
@@ -59,20 +60,40 @@
(evil-ex-search-activate-highlight pattern)
(evil-ex-search-next))))))
-;;;###autoload
(defun evil-visualstar/begin-search-forward (beg end)
"Search for the visual selection forwards."
(interactive "r")
(evil-visualstar/begin-search beg end t))
-;;;###autoload
(defun evil-visualstar/begin-search-backward (beg end)
"Search for the visual selection backwards."
(interactive "r")
(evil-visualstar/begin-search beg end nil))
-(define-key evil-visual-state-map (kbd "*")
'evil-visualstar/begin-search-forward)
-(define-key evil-visual-state-map (kbd "#")
'evil-visualstar/begin-search-backward)
+;;;###autoload
+(define-minor-mode evil-visualstar-mode
+ "Minor mode for visual star selection."
+ :keymap (let ((map (make-sparse-keymap)))
+ (evil-define-key 'visual map (kbd "*")
#'evil-visualstar/begin-search-forward)
+ (evil-define-key 'visual map (kbd "#")
#'evil-visualstar/begin-search-backward)
+ map)
+ (evil-normalize-keymaps))
+
+;;;###autoload
+(define-globalized-minor-mode global-evil-visualstar-mode
+ evil-visualstar-mode turn-on-evil-visualstar-mode)
+
+;;;###autoload
+(defun turn-on-evil-visualstar-mode ()
+ "Turns on visual star selection."
+ (interactive)
+ (evil-visualstar-mode t))
+
+;;;###autoload
+(defun turn-off-evil-visualstar-mode ()
+ "Turns off visual star selection."
+ (interactive)
+ (evil-visualstar-mode -1))
(provide 'evil-visualstar)
;;; evil-visualstar.el ends here
