[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mpv b026ae5bb6 46/50: Merge pull request #19 from c1-g/vol
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/mpv b026ae5bb6 46/50: Merge pull request #19 from c1-g/volume |
Date: |
Tue, 28 Dec 2021 00:58:43 -0500 (EST) |
branch: elpa/mpv
commit b026ae5bb6139b8bbbc572d24974dcd295c1465c
Merge: 2d24187f7b 27b98410e5
Author: Johann Klähn <johann@jklaehn.de>
Commit: GitHub <noreply@github.com>
Merge pull request #19 from c1-g/volume
Add volume control commands
---
README.md | 1 +
mpv.el | 33 +++++++++++++++++++++++++++++----
2 files changed, 30 insertions(+), 4 deletions(-)
diff --git a/README.md b/README.md
index e9f581df94..cecebce604 100644
--- a/README.md
+++ b/README.md
@@ -17,6 +17,7 @@ Among others, mpv.el provides
- `mpv-kill`
- `mpv-seek-forward` / `mpv-seek-backward`
- `mpv-speed-increase` / `mpv-speed-decrease`
+- `mpv-volume-increase` / `mpv-speed-volume`
- `mpv-insert-playback-position`
- `mpv-seek-to-position-at-point`
diff --git a/mpv.el b/mpv.el
index 5348c92c83..5b9847538e 100644
--- a/mpv.el
+++ b/mpv.el
@@ -63,6 +63,11 @@
:type 'number
:group 'mpv)
+(defcustom mpv-volume-step 1.50
+ "Scale factor used when adjusting volume."
+ :type 'number
+ :group 'mpv)
+
(defcustom mpv-seek-step 5
"Step size in seconds used when seeking."
:type 'number
@@ -311,10 +316,9 @@ This can be used with the `org-open-at-point-functions'
hook."
(defun mpv-speed-increase (steps)
"Increase playback speed by STEPS factors of `mpv-speed-step'."
(interactive "p")
- (let ((factor (* (abs steps)
- (if (> steps 0)
- mpv-speed-step
- (/ 1 mpv-speed-step)))))
+ (let ((factor (if (>= steps 0)
+ (* steps mpv-speed-step)
+ (/ 1 (* (- steps) mpv-speed-step)))))
(mpv--enqueue `("multiply" "speed" ,factor) #'ignore)))
;;;###autoload
@@ -323,6 +327,27 @@ This can be used with the `org-open-at-point-functions'
hook."
(interactive "p")
(mpv-speed-increase (- steps)))
+;;;###autoload
+(defun mpv-volume-set (factor)
+ "Set playback volume to FACTOR."
+ (interactive "nFactor: ")
+ (mpv--enqueue `("set" "volume" ,(abs factor)) #'ignore))
+
+;;;###autoload
+(defun mpv-volume-increase (steps)
+ "Increase playback volume by STEPS factors of `mpv-volume-step'."
+ (interactive "p")
+ (let ((factor (if (>= steps 0)
+ (* steps mpv-volume-step)
+ (/ 1 (* (- steps) mpv-volume-step)))))
+ (mpv--enqueue `("multiply" "volume" ,factor) #'ignore)))
+
+;;;###autoload
+(defun mpv-volume-decrease (steps)
+ "Decrease playback volume by STEPS factors of `mpv-volume-step'."
+ (interactive "p")
+ (mpv-volume-increase (- steps)))
+
(defun mpv--raw-prefix-to-seconds (arg)
"Convert raw prefix argument ARG to seconds using `mpv-seek-step'.
Numeric arguments will be treated as seconds, repeated use
- [nongnu] elpa/mpv e3fad297cd 18/50: add README.md, (continued)
- [nongnu] elpa/mpv e3fad297cd 18/50: add README.md, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv c6b3fa013c 36/50: Add mpv-run-command function to synchronously run commands, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 9dedf3b7c1 34/50: Monkey-patch org-timer-item instead of reimplementing, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 174cd4b68b 31/50: call expand-file-name on files passed to mpv-play, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 3849da1e45 01/50: root commit, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 33ca8987ed 03/50: work around spurious event messages, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 6fe510798a 26/50: fix mpv-speed-set, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv fcdca618df 29/50: add badge for MELPA stable, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv d7bb3a7082 40/50: Add sleep and timeout to mpv-kill and mpv-play, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv bc89524528 15/50: use timer formatting from org-timer.el, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv b026ae5bb6 46/50: Merge pull request #19 from c1-g/volume,
ELPA Syncer <=
- [nongnu] elpa/mpv 1e666079b8 05/50: skip junk at beginning of buffer, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 8c0933630b 08/50: add seek-to-position-at-point, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 03fe7a536a 24/50: add mpv-on-start-hook and mpv-on-exit-hook, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 3021c55fa5 32/50: Merge pull request #1 from magnusstahre/expand-tilde, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv f31cbdb94a 37/50: Add convenience functions to get and set properties, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv f0f61db3af 47/50: Add COPYING file following GPL, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 4774d52c8c 48/50: Merge pull request #21 from sachac/master, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 604b32d7e6 11/50: add play command, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 15c51ddc5e 10/50: remove dependency on dash library, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 059135de39 28/50: version 0.1.0, ELPA Syncer, 2021/12/28