From 786966f8660f1abbcfb8e43c797e6a47450ed08c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
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(-)
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