[elpa] master 22348d7 23/45: hydra.el (hydra--face): Remove

[Oleh Krehel]

branch: master
commit 22348d7db18e72978c44a997a46dacf7bfa848a1
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    hydra.el (hydra--face): Remove
    
    * hydra.el (hydra-fontify-head-default): Update.
---
 hydra.el |   19 ++++++++-----------
 1 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/hydra.el b/hydra.el
index 66a8f26..e5152c0 100644
--- a/hydra.el
+++ b/hydra.el
@@ -385,16 +385,6 @@ BODY is the second argument to `defhydra'"
           (color color)
           (t 'red))))
 
-(defun hydra--face (h body)
-  "Return the face for a Hydra head H with BODY."
-  (cl-case (hydra--head-color h body)
-    (blue 'hydra-face-blue)
-    (red 'hydra-face-red)
-    (amaranth 'hydra-face-amaranth)
-    (pink 'hydra-face-pink)
-    (teal 'hydra-face-teal)
-    (t (error "Unknown color for %S" h))))
-
 (defvar hydra--input-method-function nil
   "Store overridden `input-method-function' here.")
 
@@ -452,7 +442,14 @@ BODY, and HEADS are parameters to `defhydra'."
 (defun hydra-fontify-head-default (head body)
   "Produce a pretty string from HEAD and BODY.
 HEAD's binding is returned as a string with a colored face."
-  (propertize (car head) 'face (hydra--face head body)))
+  (propertize (car head) 'face
+              (cl-case (hydra--head-color head body)
+                (blue 'hydra-face-blue)
+                (red 'hydra-face-red)
+                (amaranth 'hydra-face-amaranth)
+                (pink 'hydra-face-pink)
+                (teal 'hydra-face-teal)
+                (t (error "Unknown color for %S" head)))))
 
 (defun hydra-fontify-head-greyscale (head body)
   "Produce a pretty string from HEAD and BODY.