[elpa] master 2eddb83 43/72: hydra-test.el (hydra-format): New test

[Oleh Krehel]

branch: master
commit 2eddb832a0a737e78b33525bdf18629ec62933ff
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    hydra-test.el (hydra-format): New test
    
    * hydra.el (hydra-fontify-head-greyscale): New defun. Usable as
      `hydra-fontify-head-function'.
---
 hydra-test.el |   26 ++++++++++++++++++++++++++
 hydra.el      |    9 +++++++++
 2 files changed, 35 insertions(+), 0 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index 7b3d24b..fe02d6d 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -673,6 +673,32 @@ The body can be accessed via `hydra-vi/body'."
        ("l" text-scale-decrease "out")
        ("q" nil "quit"))))))
 
+(ert-deftest hydra-format ()
+  (should (equal
+           (let ((hydra-fontify-head-function
+                  'hydra-fontify-head-greyscale))
+             (hydra--format
+              'hydra-toggle
+              nil
+              "
+_a_ abbrev-mode:       %`abbrev-mode
+_d_ debug-on-error:    %`debug-on-error
+_f_ auto-fill-mode:    %`auto-fill-function
+" '(("a" abbrev-mode nil)
+    ("d" toggle-debug-on-error nil)
+    ("f" auto-fill-mode nil)
+    ("g" golden-ratio-mode nil)
+    ("t" toggle-truncate-lines nil)
+    ("w" whitespace-mode nil)
+    ("q" nil "quit"))))
+           '(concat (format "
+% 3s abbrev-mode:       %S
+% 3s debug-on-error:    %S
+% 3s auto-fill-mode:    %S
+" "{a}" abbrev-mode "{d}" debug-on-error "{f}" auto-fill-function) "[[q]]: 
quit"))))
+
+
+
 (provide 'hydra-test)
 
 ;;; hydra-test.el ends here
diff --git a/hydra.el b/hydra.el
index ace2552..5ea4640 100644
--- a/hydra.el
+++ b/hydra.el
@@ -354,6 +354,15 @@ NAME, BODY, DOCSTRING and HEADS are parameters to 
`defhydra'."
 HEAD's binding is returned as a string with a colored face."
   (propertize (car head) 'face (hydra--face head body)))
 
+(defun hydra-fontify-head-greyscale (head body)
+  "Produce a pretty string from HEAD and BODY.
+HEAD's binding is returned as a string wrapped with [] or {}."
+  (let ((color (hydra--head-color head body)))
+    (format
+     (if (eq color 'blue)
+         "[%s]"
+       "{%s}") (car head))))
+
 (defun hydra-fontify-head (head body)
   "Produce a pretty string from HEAD and BODY."
   (funcall (or hydra-fontify-head-function 'hydra-fontify-head-default)