branch: externals/which-key
commit 77586e62b6d306bae07e4e3e093ba488724f4131
Author: Justin Burkett <jus...@burkett.cc>
Commit: Justin Burkett <jus...@burkett.cc>
Add which-key-dump-bindings
Fixes #209
---
which-key.el | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/which-key.el b/which-key.el
index 6980b78..f4b15c4 100644
--- a/which-key.el
+++ b/which-key.el
@@ -2279,6 +2279,21 @@ current evil state. "
(message "which-key: No map named %s" map-sym))))
;;;###autoload
+(defun which-key-dump-bindings (prefix buffer-name)
+ "Dump bindings from PREFIX into buffer named BUFFER-NAME.
+
+PREFIX should be a string suitable for `kbd'."
+ (interactive "sPrefix: \nB")
+ (let* ((buffer (get-buffer-create buffer-name))
+ (keys (which-key--get-bindings (kbd prefix))))
+ (with-current-buffer buffer
+ (point-max)
+ (save-excursion
+ (dolist (key keys)
+ (insert (apply #'format "%s%s%s\n" key)))))
+ (switch-to-buffer-other-window buffer)))
+
+;;;###autoload
(defun which-key-undo-key (&optional _)
"Undo last keypress and force which-key update."
(interactive)
