mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Backport: Add interactive seek command.

Browse Source 
* lisp/mpc.el (mpc-cmd-seekcur): New function.
(mpc-seek-current): New command.
(mpc-mode-menu): Add entry for mpc-seek-current
(mpc-mode-map): Bind mpc-seek-current to "g"
This commit is contained in:
Mark Oteiza 2015-11-18 13:46:24 -05:00
parent a521310f9e
commit ab10df6097
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/mpc.el
View File

@ -826,6 +826,9 @@ The songs are returned as alists."
(mpc-proc-cmd "play")
(mpc-status-refresh))
(defun mpc-cmd-seekcur (time)
(mpc-proc-cmd (list "seekcur" time) #'mpc-status-refresh))
(defun mpc-cmd-add (files &optional playlist)
"Add the songs FILES to PLAYLIST.
If PLAYLIST is t or nil or missing, use the main playlist."
@ -1127,7 +1130,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
(define-key map "s" 'mpc-toggle-play)
(define-key map ">" 'mpc-next)
(define-key map "<" 'mpc-prev)
(define-key map "g" nil)
(define-key map "g" 'mpc-seek-current)
map))
(easy-menu-define mpc-mode-menu mpc-mode-map
@ -1136,6 +1139,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
["Play/Pause" mpc-toggle-play] ;FIXME: Add one of ⏯/▶/⏸ in there?
["Next Track" mpc-next] ;FIXME: Add ⇥ there?
["Previous Track" mpc-prev] ;FIXME: Add ⇤ there?
["Seek Within Track" mpc-seek-current]
"--"
["Repeat Playlist" mpc-toggle-repeat :style toggle
:selected (member '(repeat . "1") mpc-status)]
@ -2402,6 +2406,12 @@ This is used so that they can be compared with `eq', which is needed for
(interactive)
(mpc-cmd-pause "0"))
(defun mpc-seek-current (pos)
"Seek within current track."
(interactive
(list (read-string "Position to go ([+-]seconds): ")))
(mpc-cmd-seekcur pos))
(defun mpc-toggle-play ()
"Toggle between play and pause.
If stopped, start playback."