From a88985711f4f838762732bde2b5b75381ca71ee2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 8 Feb 2021 21:29:59 +0000
Subject: more espotify control commands

---
 lib/media/espotify.org | 17 +++++++++++++++++
 lib/media/jao-mpris.el | 14 +++++++++++---
 2 files changed, 28 insertions(+), 3 deletions(-)

(limited to 'lib')

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)
-- 
cgit v1.2.3