[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emms-help] [PATCH 2/2] Defun seek-more functions
From: |
Alejandro Erickson |
Subject: |
[emms-help] [PATCH 2/2] Defun seek-more functions |
Date: |
Wed, 22 Jun 2016 23:34:15 +0100 |
Mimmicks emms-seek-forward/backward, using defcustom
emms-seek-more-seconds set to 60. Does not break existing
functionality.
---
lisp/emms-playlist-mode.el | 4 ++--
lisp/emms.el | 17 +++++++++++++++++
2 files changed, 19 insertions(+), 2 deletions(-)
diff --git a/lisp/emms-playlist-mode.el b/lisp/emms-playlist-mode.el
index b4d3faa..ce7af1b 100644
--- a/lisp/emms-playlist-mode.el
+++ b/lisp/emms-playlist-mode.el
@@ -137,9 +137,9 @@ This is true for every invocation of
`emms-playlist-mode-go'."
(define-key map (kbd "p") 'emms-previous)
(define-key map (kbd "SPC") 'scroll-up)
(define-key map (kbd ">") 'emms-seek-forward)
- (define-key map (kbd ".") 'emms-seek-minute-forward)
+ (define-key map (kbd ".") 'emms-seek-forward-more)
(define-key map (kbd "<") 'emms-seek-backward)
- (define-key map (kbd ",") 'emms-seek-minute-backward)
+ (define-key map (kbd ",") 'emms-seek-backward-more)
(define-key map (kbd "P") 'emms-pause)
(define-key map (kbd "s") 'emms-stop)
(define-key map (kbd "f") 'emms-show)
diff --git a/lisp/emms.el b/lisp/emms.el
index 2d282bb..4f495d0 100644
--- a/lisp/emms.el
+++ b/lisp/emms.el
@@ -250,6 +250,11 @@ Use `emms-player-paused-p' to find the current state."
:group 'emms
:type 'number)
+(defcustom emms-seek-more-seconds 60
+ "The number of seconds to seek forward or backward when long-seeking."
+ :group 'emms
+ :type 'number)
+
(defcustom emms-player-seeked-functions nil
"*Functions called when a player is seeking.
The functions are called with a single argument, the amount of
@@ -462,6 +467,18 @@ It can also be negative to seek backwards."
(when emms-player-playing-p
(emms-player-seek (- emms-seek-seconds))))
+(defun emms-seek-forward-more ()
+ "Seek one minute forward."
+ (interactive)
+ (when emms-player-playing-p
+ (emms-player-seek emms-seek-more-seconds)))
+
+(defun emms-seek-backward-more ()
+ "Seek one minute backward."
+ (interactive)
+ (when emms-player-playing-p
+ (emms-player-seek (- emms-seek-more-seconds))))
+
(defun emms-show (&optional insertp)
"Describe the current EMMS track in the minibuffer.
If INSERTP is non-nil, insert the description into the current buffer instead.
--
2.8.3