diff options
author | jao <jao@gnu.org> | 2021-02-08 21:29:59 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-02-08 21:30:16 +0000 |
commit | a88985711f4f838762732bde2b5b75381ca71ee2 (patch) | |
tree | e6aa86f36705d97c4d638d34c8372757b04e4a38 /lib | |
parent | 49b1f5acdd11c2e8e674c3ace69fec1fad7867e7 (diff) | |
download | elibs-a88985711f4f838762732bde2b5b75381ca71ee2.tar.gz elibs-a88985711f4f838762732bde2b5b75381ca71ee2.tar.bz2 |
more espotify control commands
Diffstat (limited to 'lib')
-rw-r--r-- | lib/media/espotify.org | 17 | ||||
-rw-r--r-- | lib/media/jao-mpris.el | 14 |
2 files changed, 28 insertions, 3 deletions
diff --git a/lib/media/espotify.org b/lib/media/espotify.org index 93338a9..98530a8 100644 --- a/lib/media/espotify.org +++ b/lib/media/espotify.org @@ -271,6 +271,23 @@ Let's start with an umbrella customization group: (espotify-call-spotify-via-dbus "OpenUri" uri)) #+end_src + Although we're not going to use them explicitly below, we can define + a couple more commands that may come in handy: + + #+begin_src emacs-lisp + (defun espotify-play-pause () + (interactive) + (espotify-call-spotify-via-dbus "PlayPause")) + + (defun espotify-next () + (interactive) + (espotify-call-spotify-via-dbus "Next")) + + (defun espotify-previous () + (interactive) + (espotify-call-spotify-via-dbus "Previous")) + #+end_src + * Search front-end using consult :PROPERTIES: :header-args: :tangle espotify-consult.el diff --git a/lib/media/jao-mpris.el b/lib/media/jao-mpris.el index ad4b452..5551f03 100644 --- a/lib/media/jao-mpris.el +++ b/lib/media/jao-mpris.el @@ -49,8 +49,14 @@ "{{album}}" "{{duration(mpris:length)}}") sep)) - (m (jao-mpris--playerctl "metadata" "--format" fmt))) - (split-string (car (split-string m "\n")) sep))) + (m (jao-mpris--playerctl "metadata" "--format" fmt)) + (e (split-string (car (split-string m "\n")) sep))) + `((status . ,(car e)) + (track . ,(cadr e)) + (title . ,(caddr e)) + (artist . ,(cadddr e)) + (album . ,(elt e 4)) + (duration . ,(last e))))) ;;;###autoload (defun jao-mpris-status-times () @@ -72,7 +78,9 @@ (track (jao-mpris--get 'track info)) (album (jao-mpris--get 'album info)) (len (jao-mpris--get 'length info)) - (duration (cond ((stringp len) len) + (duration (jao-mpris--get 'duration info)) + (duration (cond (duration duration) + ((stringp len) len) ((numberp len) (jao-emms--fmt-time (/ len 1e6) ""))))) (format " %s %s %s%s%s" (jao--put-face (format "%s" (or track "")) 'jao-emms-font-lock-track) |