[elpa] master c8b4749 09/22: Allow binding heads to "%"

[Oleh Krehel]

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

    Allow binding heads to "%"
    
    * hydra.el (hydra--format): Update regex. Make sure that there's a
      proper amount of escapes for %, since:
    
    - it first gets evaled via `hydra-test/hint'
    - it gets passed to `lv-message'
    
    So to get 1 in the end, the initial amount can be 4.
    
    * hydra-test.el (hydra-format-7): Add tests.
---
 hydra-test.el |   24 ++++++++++++++++++++++++
 hydra.el      |    5 +++--
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index a770435..d20e353 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -1113,6 +1113,30 @@ _f_ auto-fill-mode:    %`auto-fill-function
                     hydra-face-red)))
             ""))))
 
+(ert-deftest hydra-format-7 ()
+  (should
+   (equal
+    (hydra--format nil nil "test"
+                   '(("%" forward-char "" :exit nil)
+                     ("b" backward-char "" :exit nil)))
+    '(format
+      #("test: %%%%, b."
+        6 7 (face hydra-face-red)
+        7 8 (face hydra-face-red)
+        8 9 (face hydra-face-red)
+        9 10 (face hydra-face-red)
+        12 13 (face hydra-face-red)))))
+  (should
+   (equal
+    (hydra--format nil nil "\n_%_ forward\n"
+                   '(("%" forward-char nil :exit nil)))
+    '(concat
+      (format
+       "%s forward\n"
+       #("%%"
+         0 2 (face hydra-face-red)))
+      ""))))
+
 (ert-deftest hydra-format-with-sexp-1 ()
   (should (equal
            (let ((hydra-fontify-head-function
diff --git a/hydra.el b/hydra.el
index 5a823ff..80b1a23 100644
--- a/hydra.el
+++ b/hydra.el
@@ -513,7 +513,7 @@ The expressions can be auto-expanded according to NAME."
         offset)
     (while (setq start
                  (string-match
-                  "\\(?:%\\( 
?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( 
?-?[0-9]*?\\)\\(\\[\\|]\\|[-[:alnum:] ~.,;:/|?<>={}*+#]+?\\)_\\)"
+                  "\\(?:%\\( 
?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( 
?-?[0-9]*?\\)\\(\\[\\|]\\|[-[:alnum:] ~.,;:/|?<>={}*+#%]+?\\)_\\)"
                   docstring start))
       (cond ((eq ?_ (aref (match-string 0 docstring) 0))
              (let* ((key (match-string 4 docstring))
@@ -551,7 +551,8 @@ The expressions can be auto-expanded according to NAME."
     (if (eq ?\n (aref docstring 0))
         `(concat (format ,(substring docstring 1) ,@(nreverse varlist))
                  ,rest)
-      `(format ,(concat docstring ": " rest ".")))))
+      `(format ,(concat docstring ": " (replace-regexp-in-string
+                                        "\\(%\\)" "\\1\\1" rest) ".")))))
 
 (defun hydra--complain (format-string &rest args)
   "Forward to (`message' FORMAT-STRING ARGS) unless `hydra-verbose' is nil."