update packages

lisp/hydra/hydra-pkg.el

@@ -1,7 +1,7 @@
-(define-package "hydra" "20201115.1055" "Make bindings that stick around."
+(define-package "hydra" "20220102.803" "Make bindings that stick around."
   '((cl-lib "0.5")
     (lv "0"))
-  :commit "2d553787aca1aceb3e6927e426200e9bb9f056f1" :authors
+  :commit "9e9e00cb240ea1903ffd36a54956b3902c379d29" :authors
   '(("Oleh Krehel" . "ohwoeowho@gmail.com"))
   :maintainer
   '("Oleh Krehel" . "ohwoeowho@gmail.com")

lisp/hydra/hydra.el

@@ -352,6 +352,7 @@ Exitable only through a blue head.")
 ;;* Universal Argument
 (defvar hydra-base-map
   (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "<f1> k") 'hydra--describe-key)
     (define-key map [?\C-u] 'hydra--universal-argument)
     (define-key map [?-] 'hydra--negative-argument)
     (define-key map [?0] 'hydra--digit-argument)
@@ -413,6 +414,15 @@ Exitable only through a blue head.")
                          ((eq arg '-) nil)
                          (t '-))))
 
+(defun hydra--describe-key ()
+  "Forward to `describe-key'.
+Call order: the hydra body, `hydra--describe-key', the head."
+  (interactive)
+  (lv-delete-window)
+  (let ((hydra-hint-display-type 'message))
+    (call-interactively 'describe-key)
+    (hydra-keyboard-quit)))
+
 ;;* Repeat
 (defvar hydra-repeat--prefix-arg nil
   "Prefix arg to use with `hydra-repeat'.")
@@ -838,7 +848,9 @@ HEADS is a list of heads."
    "The heads for the associated hydra are:\n\n%s\n\n%s%s."
    (mapconcat
     (lambda (x)
-      (format "\"%s\":    `%S'" (car x) (cadr x)))
+      (format "\"%s\":    %s"
+              (car x)
+              (if (cadr x) (format "`%S'" (cadr x)) "nil")))
     heads ",\n")
    (format "The body can be accessed via `%S'" body-name)
    (if body-key