From 786966f8660f1abbcfb8e43c797e6a47450ed08c Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 25 Jul 2021 22:29:30 +0100 Subject: completion: adjustments for new embark multi-targets --- completion.org | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'completion.org') 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))) -- cgit v1.2.3