spt/mpris switching

1 files changed, 19 insertions, 1 deletions

diff --git a/lib/media/jao-mpris.el b/lib/media/jao-mpris.el
index 8f5d0de..d34480a 100644
--- a/lib/media/jao-mpris.el
+++ b/lib/media/jao-mpris.el
@@ -1,6 +1,6 @@
 ;;; jao-mpris.el --- mpris players control           -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2020, 2021  jao
+;; Copyright (C) 2020, 2021, 2022  jao
 
 ;; Author: jao <mail@jao.io>
 ;; Keywords: multimedia
@@ -39,6 +39,24 @@
 (jao-playerctl--def jao-mpris-next "next")
 (jao-playerctl--def jao-mpris-previous "previous")
 
+(defun jao-mpris-seek (secs)
+  (interactive "p")
+  (let ((secs (if (zerop secs) 10 secs)))
+    (jao-mpris--playerctl "position" (format "%d" secs))))
+
+(defun jao-mpris-seek-back (secs)
+  (interactive "p")
+  (jao-mpris-seek (- secs)))
+
+(defun jao-mpris-vol (n)
+  (interactive "p")
+  (let ((secs (if (zerop n) 10 n)))
+    (jao-mpris--playerctl "volume" (format "%d" n))))
+
+(defun jao-mpris-vol-down (n)
+  (interactive "p")
+  (jao-mpris-vol (- n)))
+
 (defun jao-playerctl--status (&optional sep)
   (let* ((sep (or sep " ||| "))
          (fmt (mapconcat 'identity