diff options
Diffstat (limited to 'media/espotify.org')
| -rw-r--r-- | media/espotify.org | 58 |
1 files changed, 37 insertions, 21 deletions
diff --git a/media/espotify.org b/media/espotify.org index 6c07259..5cc0fee 100644 --- a/media/espotify.org +++ b/media/espotify.org @@ -11,10 +11,6 @@ track or album identifier that we can send then to the latter to play, with emacs completion mechanisms (consult and friends in this case) providing the glue between both worlds. -Note: you can access this post as an ~org~ file in my [[https://codeberg.org/jao/elibs/src/branch/main/media/espotify.org][jao/elibs -repository]], and transform it to an emacs-lisp file with ~M-x -org-babel-tangle~. - Let's start with an umbrella customization group: #+begin_src emacs-lisp ;;; espotify.el - spotify search and play - -*- lexical-binding: t; -*- @@ -197,6 +193,19 @@ Let's start with an umbrella customization group: | album_type | artists | available_markets | external_urls | href | id | images | name | release_date | release_date_precision | total_tracks | type | uri | | external_urls | followers | genres | href | id | images | name | popularity | type | uri | | | | + Another strategy would be to search for several types and pass to + our callback the concatenation of all items: + + #+begin_src emacs-lisp + (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))) + term + types + filter))) + #+end_src + * Sending commands to local players Once we now the URI we want to play (that ~uri~ entry in our items), @@ -283,7 +292,7 @@ Let's start with an umbrella customization group: ((or 'setup 'refresh) (funcall next action)) ('destroy (setq candidates nil) (funcall next 'destroy)) ((pred stringp) - (espotify-search* + (espotify-search-all (lambda (x) (setq candidates (mapcar 'espotify--format-item x)) (funcall next candidates)) @@ -339,6 +348,26 @@ Let's start with an umbrella customization group: (espotify--maybe-play (consult-spotify-by 'album filter))) #+end_src + And likewise for playlists, artists and combinations thereof: + + #+begin_src emacs-lisp + (defun consult-spotify-artist (&optional filter) + (interactive) + (espotify--maybe-play (consult-spotify-by 'artist filter))) + #+end_src + + #+begin_src emacs-lisp + (defun consult-spotify-track (&optional filter) + (interactive) + (espotify--maybe-play (consult-spotify-by 'track filter))) + #+end_src + + #+begin_src emacs-lisp + (defun consult-spotify-playlist (&optional filter) + (interactive) + (espotify--maybe-play (consult-spotify-by 'playlist filter))) + #+end_src + * Adding metadata to candidates using Marginalia Let's add metadata fields to our candidates, so that packages like @@ -358,28 +387,15 @@ Let's start with an umbrella customization group: (add-to-list 'marginalia-annotators-heavy (cons 'spotify-query-result 'espotify-marginalia-annotate)) - #+end_src - -* Exercises for the reader - - Defining new interactive commands for other types and queries, - as well as standard filters shouldn't be too complicated now that we - have the above tools at our disposal. - - For instance: - #+begin_src emacs-lisp - (defun consult-spotify-playlist (&optional filter) - (interactive) - (espotify--maybe-play (consult-spotify-by 'playlist filter))) - #+end_src - +#+end_src -* Post-amble :notes: +* Post-amble :noexport: #+begin_src emacs-lisp (provide 'espotify) #+end_src + * Footnotes [fn:1] This is an elegant strategy i first learnt about in SICP, many, |