From 566935a0e14bf5538467fd8ec69788e558c96278 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 11 Jan 2021 20:57:56 +0000 Subject: oops --- media/espotify.org | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'media') diff --git a/media/espotify.org b/media/espotify.org index 5cc0fee..686bad4 100644 --- a/media/espotify.org +++ b/media/espotify.org @@ -200,7 +200,7 @@ Let's start with an umbrella customization group: (defun espotify-search-all (callback term &optional types filter) (let ((types (or types '(album track artist playlist)))) (espotify-search* (lambda (&rest items) - (funcall callback (apply append items))) + (funcall callback (apply 'append items))) term types filter))) @@ -256,11 +256,14 @@ Let's start with an umbrella customization group: The top-level command will have this form: #+begin_src emacs-lisp + (defvar espotify-consult-history nil) + (defun consult-spotify-by (type &optional filter) (consult--read (format "Search %ss: " type) (espotify--search-generator type filter) :lookup 'espotify--consult-lookup - :category 'spotify-query-result + :category 'espotify-search-item + :history 'espotify-consult-history :initial "#" :require-match t)) #+end_src @@ -386,7 +389,7 @@ Let's start with an umbrella customization group: :face 'maginalia-modified :width 10)))) (add-to-list 'marginalia-annotators-heavy - (cons 'spotify-query-result 'espotify-marginalia-annotate)) + (cons 'espotify-search-item 'espotify-marginalia-annotate)) #+end_src * Post-amble :noexport: -- cgit v1.2.3