Add support for describe-bindings (fixes #3)

Author: oantolin

README.org

@@ -37,3 +37,16 @@ manual intervention, use:
   (add-hook 'compilation-start-hook #'epithet-rename-buffer-ignoring-arguments)
   (add-hook 'compilation-finish-functions #'epithet-rename-buffer-ignoring-arguments)
 #+end_src
+
+Due to a quirk in =describe-bindings=, even though it produces a help
+mode buffer, having =epithet-rename-buffer= in the =help-mode-hook= will
+not rename the buffer it creates. If you want those buffers renamed
+automatically too, you should also add this to your configuration:
+
+#+begin_src emacs-lisp
+(defun rename-describe-bindings (&rest _)
+  (with-current-buffer (help-buffer)
+    (epithet-rename-buffer)))
+
+(advice-add 'describe-bindings :after #'rename-describe-bindings)
+#+end_src

epithet.el

@@ -64,10 +64,15 @@
 
 (defun epithet-for-help ()
   "Suggest a name for a `help-mode' buffer."
-  (when (and (derived-mode-p 'help-mode) (equal (buffer-name) "*Help*"))
+  (when (and (derived-mode-p 'help-mode)
+             (equal (buffer-name) "*Help*")
+             (not (and (eq (car help-xref-stack-item) 'describe-bindings)
+                       (= (buffer-size) 0))))
     (format "*Help: %s*" (pcase help-xref-stack-item
-                           (`(describe-bindings nil ,buffer)
-                            (format "describe-bindings for %s" (with-current-buffer buffer major-mode)))
+                           ((or `(,(and fn 'describe-bindings) ,_ ,buffer)
+                                `(,(and fn 'describe-mode) ,buffer))
+                            (format "%s for %s"
+                                    fn (buffer-local-value 'major-mode buffer)))
                            (`(,_ ,name ,_) name)))))
 
 (defun epithet-for-occur ()