[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 7474f35: Update face code (#77)
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 7474f35: Update face code (#77) |
Date: |
Sun, 2 May 2021 16:57:07 -0400 (EDT) |
branch: externals/hyperbole
commit 7474f35b27a019f01c4c8e1fc64f4472f81badc1
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Update face code (#77)
* Update face code for hypb buttons and items
* Change color of ebut highlight
* Add ChangeLog
* Update hui-em-but.el
Fix hbut-flash typo
Co-authored-by: Robert Weiner <rsw@gnu.org>
---
ChangeLog | 7 +++++++
hui-em-but.el | 43 ++++++++++++++++++++++++++++++++++++-------
2 files changed, 43 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 8d806a7..cb21438 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2021-05-02 Mats Lidell <matsl@gnu.org>
+
+* hui-em-but.el (hbut-face): Add face for hbuts.
+ (hproperty:but-face): Use face for property.
+ (hbut-item-face): Add face for hbut items.
+ (hproperty:item-face): Use face for property.
+
2021-05-02 Bob Weiner <rsw@gnu.org>
* hibtypes.el (pathname-line-and-column): Lower priority below grep
diff --git a/hui-em-but.el b/hui-em-but.el
index 91022f5..e9fb43b 100644
--- a/hui-em-but.el
+++ b/hui-em-but.el
@@ -55,7 +55,7 @@
:background "red3")
(((class color) (min-colors 16) (background light))
:background "red3")
- (((class color) (in-colors 16) (background dark))
+ (((class color) (min-colors 16) (background dark))
:background "red3")
(((class color) (min-colors 8))
:background "red3" :foreground "black")
@@ -75,6 +75,41 @@
:initialize #'custom-initialize-default
:group 'hyperbole-buttons)
+(defface hbut-face
+ '((((min-colors 88) (background dark)) (:foreground "salmon1"))
+ (((background dark)) (:background "red" :foreground "black"))
+ (((min-colors 88)) (:foreground "salmon4"))
+ (t (:background "red")))
+ "Face for hyperbole buttons."
+ :group 'hyperbole-buttons)
+
+(defcustom hproperty:but-face 'hbut-face
+ "Hyperbole face for hyper-buttons."
+ :type 'face
+ :initialize #'custom-initialize-default
+ :group 'hyperbole-buttons)
+
+(defface hbut-item-face
+ '((((class color) (min-colors 88) (background light))
+ :background "yellow")
+ (((class color) (min-colors 88) (background dark))
+ :background "yellow")
+ (((class color) (min-colors 16) (background light))
+ :background "yellow")
+ (((class color) (in-colors 16) (background dark))
+ :background "yellow")
+ (((class color) (min-colors 8))
+ :background "yellow" :foreground "black")
+ (t :inverse-video t))
+ "Face for hyperbole buttons."
+ :group 'hyperbole-buttons)
+
+(defcustom hproperty:item-face 'hbut-item-face
+ "Hyperbole face for hyper-buttons."
+ :type 'face
+ :initialize #'custom-initialize-default
+ :group 'hyperbole-buttons)
+
;;; ************************************************************************
;;; Public functions
;;; ************************************************************************
@@ -249,17 +284,11 @@ highlighted."
;;; Private variables
;;; ************************************************************************
-(defvar hproperty:but-face
- (progn (defface hbut nil "Hyperbole hyper-button face."
- :group 'hyperbole-buttons)
- 'hbut)
- "Hyperbole hyper-button face.")
(setq hproperty:but hproperty:but-face)
(defvar hproperty:item-button nil
"Button used to highlight an item in a listing buffer.")
(make-variable-buffer-local 'hproperty:item-button)
-(defvar hproperty:item-face nil "Item marking face.")
(provide 'hui-em-but)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole 7474f35: Update face code (#77),
ELPA Syncer <=