diff options
| author | jao <jao@gnu.org> | 2021-07-25 22:29:30 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-07-25 22:29:30 +0100 |
| commit | 786966f8660f1abbcfb8e43c797e6a47450ed08c (patch) | |
| tree | 040e91eb8131cc79c17352ce0b71b5b519a1d277 | |
| parent | a14b7b5292d98c9a0b0636e113a4e52180e2b10e (diff) | |
| download | elibs-786966f8660f1abbcfb8e43c797e6a47450ed08c.tar.gz elibs-786966f8660f1abbcfb8e43c797e6a47450ed08c.tar.bz2 | |
completion: adjustments for new embark multi-targets
| -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))) |