diff options
Diffstat (limited to 'lib/media/jao-mpris.el')
| -rw-r--r-- | lib/media/jao-mpris.el | 20 |
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 |