[elpa] master ea36afc 19/22: Allow "_", "!", and "&" as keys in docstrings

[Oleh Krehel]

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

    Allow "_", "!", and "&" as keys in docstrings
    
    * hydra.el (hydra--format): Update.
    
    Fixes #161
---
 hydra.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/hydra.el b/hydra.el
index 5902395..3d42c38 100644
--- a/hydra.el
+++ b/hydra.el
@@ -566,16 +566,18 @@ HEAD's binding is returned as a string wrapped with [] or 
{}."
 _NAME, BODY, DOCSTRING and HEADS are parameters of `defhydra'.
 The expressions can be auto-expanded according to NAME."
   (setq docstring (hydra--strip-align-markers docstring))
+  (setq docstring (replace-regexp-in-string "___" "_β_" docstring))
   (let ((rest (hydra--hint body heads))
         (start 0)
         varlist
         offset)
     (while (setq start
                  (string-match
-                  "\\(?:%\\( 
?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( 
?-?[0-9]*?\\)\\(\\[\\|]\\|[-[:alnum:] ~.,;:/|?<>address@hidden)_\\)"
+                  "\\(?:%\\( 
?-?[0-9]*s?\\)\\(`[a-z-A-Z/0-9]+\\|(\\)\\)\\|\\(?:_\\( 
?-?[0-9]*?\\)\\(\\[\\|]\\|[-[:alnum:] ~.,;:/|?<>address@hidden&]+?\\)_\\)"
                   docstring start))
       (cond ((eq ?_ (aref (match-string 0 docstring) 0))
              (let* ((key (match-string 4 docstring))
+                    (key (if (equal key "β") "_" key))
                     (head (assoc key heads)))
                (if head
                    (progn