diff options
| -rw-r--r-- | completion.org | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/completion.org b/completion.org index b3ca9d0..0cf1c2a 100644 --- a/completion.org +++ b/completion.org @@ -312,7 +312,7 @@ (defun jao-embark--dstr (d) (let ((s (cadr d))) (if (string-prefix-p "embark" s) "" s))) - (defun jao-embark--show-keymap (keymap &optional target) + (defun jao-embark--show-keymap (keymap target other) (with-current-buffer (get-buffer-create jao-embark--actions-buffer) (read-only-mode -1) (setq-local cursor-type nil) @@ -325,7 +325,9 @@ (propertize (car desc) 'face 'embark-keybinding) (propertize (caddr desc) 'face 'italic)))) (seq-sort-by 'jao-embark--dstr 'string-greaterp (cddr descs)))) - (if target (insert (format "\nAction for '%s'" target)) (delete-char -1)) + (if target + (insert (format "\nAction for %s '%s'" (car target) (cdr target))) + (delete-char -1)) (read-only-mode 1) (let ((display-buffer-alist (append display-buffer-alist jao-embark--default-display))) @@ -414,7 +416,7 @@ (defvar jao-embark-targets-video-url-rx (jao-embark--video-url-rx) "A regular expression matching URLs that point to video streams") - (defun jao-embark-targets--refine-url (url) + (defun jao-embark-targets--refine-url (_ url) (if (string-match-p jao-embark-targets-video-url-rx url) (cons 'video-url url) (cons 'url url))) |