[elpa] externals/hyperbole 7474f35: Update face code (#77)

[ELPA Syncer]

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)