From a85fecf0856c3c2bdba95d6cfb89a117f45fe169 Mon Sep 17 00:00:00 2001 From: gygl09 Date: Mon, 20 Jul 2015 17:12:31 -0700 Subject: [PATCH 1/4] only highlight string whose length is greater than 3 --- evil-search-highlight-persist.el | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/evil-search-highlight-persist.el b/evil-search-highlight-persist.el index e4599f0..8c706d5 100644 --- a/evil-search-highlight-persist.el +++ b/evil-search-highlight-persist.el @@ -63,14 +63,27 @@ (interactive) (hlt-unhighlight-region-in-buffers (list (current-buffer)))) +;; (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))))) + + (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) 3) + (hlt-highlight-regexp-region-in-buffers + tmp + (list (current-buffer)))))) (defadvice isearch-exit (after isearch--highlight-persist) (evil-search-highlight-persist-remove-all) From 9d73583060e109fa1bf85c3bcd4be03120296dfa Mon Sep 17 00:00:00 2001 From: gygl09 Date: Mon, 20 Jul 2015 18:58:51 -0700 Subject: [PATCH 2/4] add a variable "evil-search-highlight-string-min-len" to limit the min length of highlighted string --- evil-search-highlight-persist.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/evil-search-highlight-persist.el b/evil-search-highlight-persist.el index 8c706d5..c75b183 100644 --- a/evil-search-highlight-persist.el +++ b/evil-search-highlight-persist.el @@ -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: @@ -63,16 +66,7 @@ (interactive) (hlt-unhighlight-region-in-buffers (list (current-buffer)))) -;; (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))))) - - +(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)) @@ -80,7 +74,7 @@ (if isearch-regexp (setq tmp (car-safe regexp-search-ring)) (setq tmp (car-safe search-ring))) - (if (>= (length tmp) 3) + (if (>= (length tmp) evil-search-highlight-string-min-len) (hlt-highlight-regexp-region-in-buffers tmp (list (current-buffer)))))) From 0d849cb6b4db8da5da5b682fec7c321a24f0702c Mon Sep 17 00:00:00 2001 From: gygl09 Date: Mon, 20 Jul 2015 19:00:31 -0700 Subject: [PATCH 3/4] Update README.md --- README.md | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/README.md b/README.md index 69c2290..dc32fd2 100644 --- a/README.md +++ b/README.md @@ -10,7 +10,12 @@ is how Vim search works by default when you enable hlsearch. This extension requ To enable: (require 'highlight) + (require 'evil-search-highlight-persist) + (global-evil-search-highlight-persist t) + + ;; (setq evil-search-highlight-string-min-len 3) + ![IMAGE](http://i.imgur.com/Rky7Gj0.png) From 28de593c3bb704b5af0aca22b94bea16b4b4677b Mon Sep 17 00:00:00 2001 From: gygl09 Date: Mon, 20 Jul 2015 19:02:36 -0700 Subject: [PATCH 4/4] Update README.md --- README.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index dc32fd2..b37a84a 100644 --- a/README.md +++ b/README.md @@ -9,12 +9,12 @@ 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)