update packages

lisp/hydra/hydra-pkg.el

@@ -1,12 +1,12 @@
-(define-package "hydra" "20200608.1528" "Make bindings that stick around."
+(define-package "hydra" "20201115.1055" "Make bindings that stick around."
   '((cl-lib "0.5")
     (lv "0"))
-  :commit "8a9124f80b6919ad5288172b3e9f46c5332763ca" :keywords
-  '("bindings")
-  :authors
+  :commit "2d553787aca1aceb3e6927e426200e9bb9f056f1" :authors
   '(("Oleh Krehel" . "ohwoeowho@gmail.com"))
   :maintainer
   '("Oleh Krehel" . "ohwoeowho@gmail.com")
+  :keywords
+  '("bindings")
   :url "https://github.com/abo-abo/hydra")
 ;; Local Variables:
 ;; no-byte-compile: t

lisp/hydra/hydra.el

@@ -320,6 +320,15 @@ Exitable only through a blue head.")
       (1 font-lock-keyword-face)
       (2 font-lock-type-face)))))
 
+;;* Imenu
+(defun hydra-add-imenu ()
+  "Add this to `emacs-lisp-mode-hook' to have hydras in `imenu'."
+  (add-to-list
+   'imenu-generic-expression
+   '("Hydras"
+     "^.*(\\(defhydra\\) \\([a-zA-Z-]+\\)"
+     2)))
+
 ;;* Find Function
 (eval-after-load 'find-func
   '(defadvice find-function-search-for-symbol
@@ -878,7 +887,8 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
          (hint (intern (format "%S/hint" name)))
          (body-foreign-keys (hydra--body-foreign-keys body))
          (body-timeout (plist-get body :timeout))
-         (body-idle (plist-get body :idle))
+         (idle (or (and (eq (cadr head) 'body) (plist-get body :idle))
+                   (plist-get (nthcdr 3 head) :idle)))
          (curr-body-fn-sym (intern (format "%S/body" name)))
          (body-on-exit-t
           `((hydra-keyboard-quit)
@@ -901,8 +911,8 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
                      ,(hydra--call-interactively cmd (cadr head))
                    ((quit error)
                     (message (error-message-string err)))))
-             ,(if (and body-idle (eq (cadr head) 'body))
-                  `(hydra-idle-message ,body-idle ,hint ',name)
+             ,(if idle
+                  `(hydra-idle-message ,idle ,hint ',name)
                 `(hydra-show-hint ,hint ',name))
              (hydra-set-transient-map
               ,keymap