Skip to content

Commit

Permalink
Merge pull request #9 from gygl09/master
Browse files Browse the repository at this point in the history
add a variable to control the length of highlighted strings
  • Loading branch information
juanjux committed Jul 21, 2015
2 parents d74531b + 28de593 commit 9fa60a5
Show file tree
Hide file tree
Showing 2 changed files with 17 additions and 5 deletions.
5 changes: 5 additions & 0 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -9,8 +9,13 @@ is how Vim search works by default when you enable hlsearch. This extension requ
"highlight" extension.

To enable:

(require 'highlight)
(require 'evil-search-highlight-persist)
(global-evil-search-highlight-persist t)

;; To only display string whose length is greater than or equal to 3
;; (setq evil-search-highlight-string-min-len 3)


![IMAGE](http://i.imgur.com/Rky7Gj0.png)
17 changes: 12 additions & 5 deletions evil-search-highlight-persist.el
Original file line number Diff line number Diff line change
Expand Up @@ -39,6 +39,9 @@
;; (require 'evil-search-highlight-persist)
;; (global-evil-search-highlight-persist t)

;; To only display string whose length is greater than or equal to 3
;; (setq evil-search-highlight-string-min-len 3)


;;; Code:

Expand All @@ -63,14 +66,18 @@
(interactive)
(hlt-unhighlight-region-in-buffers (list (current-buffer))))

(defvar evil-search-highlight-string-min-len 1 "min legth")
(defun evil-search-highlight-persist-mark ()
(let ((hlt-use-overlays-flag t)
(hlt-last-face 'evil-search-highlight-persist-highlight-face))
(hlt-highlight-regexp-region-in-buffers
(car-safe (if isearch-regexp
regexp-search-ring
search-ring))
(list (current-buffer)))))
(setq tmp nil)
(if isearch-regexp
(setq tmp (car-safe regexp-search-ring))
(setq tmp (car-safe search-ring)))
(if (>= (length tmp) evil-search-highlight-string-min-len)
(hlt-highlight-regexp-region-in-buffers
tmp
(list (current-buffer))))))

(defadvice isearch-exit (after isearch--highlight-persist)
(evil-search-highlight-persist-remove-all)
Expand Down

0 comments on commit 9fa60a5

Please sign in to comment.