[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 5e97386 255/332: [el-search] Improve match fa
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 5e97386 255/332: [el-search] Improve match faces |
Date: |
Tue, 1 Dec 2020 15:48:58 -0500 (EST) |
branch: externals/el-search
commit 5e973862b7ec55e272af87921ea15bf7068f4efc
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
[el-search] Improve match faces
Optimize face definitions for terminals with few colors.
We also define a separate face for highlighting matches in *El Occur*
buffers to make them better distinguishable from search buffers, and
also to improve the visual feedback when doing an el-search in
*El Occur*.
Bump version to 1.7.3.
(el-search-match, el-search-other-match): Optimize definitions for
terminals.
(el-search-occur-match): New face.
(el-search--occur): Use it.
---
NEWS | 6 ++++++
el-search.el | 25 +++++++++++++++++--------
2 files changed, 23 insertions(+), 8 deletions(-)
diff --git a/NEWS b/NEWS
index 1847eba..bc58997 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,12 @@
Some of the user visible news were:
+Version: 1.7.3
+
+Match highlighting faces have been improved to look better on text
+terminals. Matches in *El Occur* buffers are now highlighted with a
+separate face.
+
Version: 1.7
Signature and semantics of non-interactive function
diff --git a/el-search.el b/el-search.el
index a46a1be..1a47072 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
;; Created: 29 Jul 2015
;; Keywords: lisp
;; Compatibility: GNU Emacs 25
-;; Version: 1.7.2
+;; Version: 1.7.3
;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -453,18 +453,27 @@
"Expression based search and replace for Emacs Lisp."
:group 'lisp)
-(defface el-search-match '((((background dark))
- ;; (:background "#0000A0")
+(defface el-search-match '((((class color) (min-colors 88) (background dark))
(:background "#600000"))
- (t (:background "DarkSlateGray3")))
+ (((class color) (min-colors 88) (background light))
+ (:background "DarkSlateGray3"))
+ (t (:background "red")))
"Face for highlighting the current match.")
-(defface el-search-other-match '((((background dark))
- ;; (:background "#202060")
+(defface el-search-other-match '((((class color) (min-colors 88) (background
dark))
(:background "#603030"))
- (t (:background "DarkSlateGray1")))
+ (((class color) (min-colors 88) (background
light))
+ (:background "DarkSlateGray1"))
+ (t (:background "red")))
"Face for highlighting the other matches.")
+(defface el-search-occur-match '((((class color) (min-colors 88) (background
dark))
+ (:background "#000060"))
+ (((class color) (min-colors 88) (background
light))
+ (:background "GreenYellow"))
+ (t (:background "blue")))
+ "Face for highlighting matches in *El Occur*.")
+
(defface el-search-highlight-in-prompt-face '((t (:inherit warning)))
"Face for highlighting important parts in prompts.")
@@ -3063,7 +3072,7 @@ Prompt for a new pattern and revert."
(goto-char
(el-search--end-of-sexp))))
'match-data `(,buffer
,match-beg ,file)))
(let ((ov (make-overlay
insertion-point (point) nil t)))
- (overlay-put ov 'face
'el-search-match)
+ (overlay-put ov 'face
'el-search-occur-match)
(overlay-put
ov 'el-search-match (list (or
file buffer) match-beg)))
(with-current-buffer buffer
(point)))))
- [elpa] externals/el-search c4eeae5 223/332: * el-search/el-search.el: Fix single buffer query-replace, (continued)
- [elpa] externals/el-search c4eeae5 223/332: * el-search/el-search.el: Fix single buffer query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bd67d58 239/332: [el-search] Raise user-error when replacement contains gensyms, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 96b7423 245/332: [el-search] Special case 'el-search-make-matcher' for '_', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search eef5de0 243/332: [el-search] Save two 'eval' calls, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 427afa8 253/332: [el-search] Bump version to 1.7.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0907a21 248/332: [el-search] Bump version to 1.7, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1bc9c89 252/332: [el-search] Improve 'el-search-display-match-count', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search ba806ce 251/332: [el-search] Enforce defun start for heuristic matching, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search ab5bcd8 266/332: [el-search] Follow-up to "Fix nested match issues in *El Occur*", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2c2930b 256/332: * el-search/el-search.el: Again tweak commentary in header, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5e97386 255/332: [el-search] Improve match faces,
Stefan Monnier <=
- [elpa] externals/el-search fdb5656 270/332: [el-search] Make y move forward after replacing, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 75d0232 279/332: [el-search] Fix C-J with numeric arg in case of no match, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a661225 272/332: [el-search] Minor tweaks in el-search-query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e29370e 281/332: [el-search] Fix more "redundant _ pattern" warnings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5c903d9 292/332: [el-search] Small fix for my last commit, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search be0324a 301/332: [el-search] Some minor tweaks and bump version to 1.10.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3b4b95b 304/332: [el-search] Small fix in el-search--changed-files-in-repo, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2f427dd 318/332: [el-search] Query-replace: Change skip keys, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a5dd88c 322/332: [el-search] Minor fix in el-search-query-replace--read-args, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1939340 324/332: [el-search] Harmonize search and qu-replace prefix arg, Stefan Monnier, 2020/12/01