[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting su
From: |
Juri Linkov |
Subject: |
bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion |
Date: |
Tue, 27 Nov 2018 01:27:40 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (x86_64-pc-linux-gnu) |
> So your problem is with the names of the faces? Then may I suggest to
> name the new faces hi-red and hi-deepblue?
Maybe something like this, but I'm not sure because the red background would
be too glaring on 88 colors, but more readable orchid1 is not quite red.
Also blue would be too dark for a light background, but more readable
DarkSlateGray1 is not quite blue as its name suggests.
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index f503c2764b..223b1007a8 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -177,6 +177,24 @@ hi-blue
"Face for hi-lock mode."
:group 'hi-lock-faces)
+(defface hi-red
+ '((((min-colors 88) (background dark))
+ (:background "orchid1" :foreground "black"))
+ (((background dark)) (:background "red" :foreground "black"))
+ (((min-colors 88)) (:background "orchid1"))
+ (t (:background "red")))
+ "Face for hi-lock mode."
+ :group 'hi-lock-faces)
+
+(defface hi-deepblue
+ '((((min-colors 88) (background dark))
+ (:background "DarkSlateGray1" :foreground "black"))
+ (((background dark)) (:background "blue" :foreground "black"))
+ (((min-colors 88)) (:background "DarkSlateGray1"))
+ (t (:background "blue")))
+ "Face for hi-lock mode."
+ :group 'hi-lock-faces)
+
(defface hi-black-b
'((t (:weight bold)))
"Face for hi-lock mode."
@@ -189,13 +207,13 @@ hi-blue-b
:group 'hi-lock-faces)
(defface hi-green-b
- '((((min-colors 88)) (:weight bold :foreground "green1"))
+ '((((min-colors 88)) (:weight bold :foreground "green3"))
(t (:weight bold :foreground "green")))
"Face for hi-lock mode."
:group 'hi-lock-faces)
(defface hi-red-b
- '((((min-colors 88)) (:weight bold :foreground "red1"))
+ '((((min-colors 88)) (:weight bold :foreground "firebrick2"))
(t (:weight bold :foreground "red")))
"Face for hi-lock mode."
:group 'hi-lock-faces)
@@ -216,8 +234,8 @@ hi-lock-interactive-patterns
(define-obsolete-variable-alias 'hi-lock-face-history
'hi-lock-face-defaults "23.1")
(defvar hi-lock-face-defaults
- '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b"
- "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb")
+ '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-red" "hi-deepblue"
+ "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb")
"Default faces for hi-lock interactive functions.")
(define-obsolete-variable-alias 'hi-lock-regexp-history
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, (continued)
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/22
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Van L, 2018/11/22
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/23
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Van L, 2018/11/23
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/23
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/23
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/24
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/25
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/25
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/26
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion,
Juri Linkov <=
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/27
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/27
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/28
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/29
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Juri Linkov, 2018/11/29
- bug#33398: 26.1, netbsd-8; Hi Lock Faces, Hi Green B, default setting suggestion, Eli Zaretskii, 2018/11/30