diff options
Diffstat (limited to 'eos/jao-embark-prompter.el')
-rw-r--r-- | eos/jao-embark-prompter.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/eos/jao-embark-prompter.el b/eos/jao-embark-prompter.el index 969111e..5656e6a 100644 --- a/eos/jao-embark-prompter.el +++ b/eos/jao-embark-prompter.el @@ -35,15 +35,18 @@ (let ((desc (if (numberp k) (single-key-description k) (key-description k))) - (cmd (symbol-name c))) - (insert (propertize desc 'face 'embark-keybinding) - embark-key-action-separator - (symbol-name c) - "\n"))))) + (doc (car (split-string + (or (ignore-errors (documentation c)) "") + "\n")))) + (insert (format "%s %s (%s)\n" + (propertize desc 'face 'embark-keybinding) + (propertize doc 'face 'italic) + (symbol-name c))))))) (cdr (keymap-canonicalize keymap))) - (insert "Action? ") + (delete-char -1) (read-only-mode 1) - (pop-to-buffer (current-buffer) nil t))) + (pop-to-buffer (current-buffer) nil t) + (fit-window-to-buffer))) (defun jao-embark--prompter (keymap) (let* ((buf (jao-embark--show-keymap keymap)) @@ -51,13 +54,12 @@ (embark-kill-buffer-and-window buf) cmd)) -(advice-add 'embark-completing-read-prompter :override - #'jao-embark--prompter) +(advice-add 'embark-completing-read-prompter :override #'jao-embark--prompter) (add-to-list 'display-buffer-alist '("\\`\\*Embark Actions*\\*" (display-buffer-at-bottom) - (window-parameters (mode-line-format . none)) + ;; (window-parameters (mode-line-format . none)) (window-height . fit-window-to-buffer))) (provide 'jao-embark-prompter) |