[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mpv 27b98410e5 45/50: Fix decreasing volume or speed by mu
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/mpv 27b98410e5 45/50: Fix decreasing volume or speed by multiple steps |
Date: |
Tue, 28 Dec 2021 00:58:43 -0500 (EST) |
branch: elpa/mpv
commit 27b98410e5b53eae62c5fe567e29dbf665fc77f8
Author: c1-g <char1iegordon@protonmail.com>
Commit: Johann Klähn <johann@jklaehn.de>
Fix decreasing volume or speed by multiple steps
---
mpv.el | 14 ++++++--------
1 file changed, 6 insertions(+), 8 deletions(-)
diff --git a/mpv.el b/mpv.el
index d99d9ff206..5b9847538e 100644
--- a/mpv.el
+++ b/mpv.el
@@ -316,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
@@ -338,10 +337,9 @@ This can be used with the `org-open-at-point-functions'
hook."
(defun mpv-volume-increase (steps)
"Increase playback volume by STEPS factors of `mpv-volume-step'."
(interactive "p")
- (let ((factor (* (abs steps)
- (if (> steps 0)
- mpv-volume-step
- (/ 1 mpv-volume-step)))))
+ (let ((factor (if (>= steps 0)
+ (* steps mpv-volume-step)
+ (/ 1 (* (- steps) mpv-volume-step)))))
(mpv--enqueue `("multiply" "volume" ,factor) #'ignore)))
;;;###autoload
- [nongnu] branch elpa/mpv created (now 9bd6d36cc7), ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 899559ae77 04/50: some fixes, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv ee505feff0 16/50: add .gitignore, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 0a02225f4e 30/50: autoload all interactive functions, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 27b98410e5 45/50: Fix decreasing volume or speed by multiple steps,
ELPA Syncer <=
- [nongnu] elpa/mpv 8da5b19f3d 07/50: cleanup, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 91b094c966 02/50: initial import, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv f0da905fd3 06/50: implement pausing and inserting playback position, ELPA Syncer, 2021/12/28
- [nongnu] elpa/mpv 6338f0d6b5 12/50: rename to mpv.el, ELPA Syncer, 2021/12/28
- [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