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

New command mpc-goto-playing-song

Browse Source 
* lisp/mpc.el (mpc-goto-playing-song): New command to go to the
currently playing song.
(mpc-mode-map): Bind it to "o".
This commit is contained in:
Stefan Kangas 2021-09-30 01:17:24 +02:00
parent 49c748e336
commit 758753431a
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/NEWS
View File

@ -3025,6 +3025,11 @@ See 'rcirc-reconnect-attempts'.
** MPC
---
*** New command 'mpc-goto-playing-song'.
This command, bound to 'o' in any 'mpc-mode' buffer, moves point to
the currently playing song in the "*Songs*" buffer.
---
*** New user option 'mpc-cover-image-re'.
If non-nil, it is a regexp that should match a valid cover image.

13
lisp/mpc.el
View File

@ -1150,6 +1150,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
(define-key map ">" #'mpc-next)
(define-key map "<" #'mpc-prev)
(define-key map "g" #'mpc-seek-current)
(define-key map "o" #'mpc-goto-playing-song)
map))
(easy-menu-define mpc-mode-menu mpc-mode-map
@ -2670,6 +2671,18 @@ If stopped, start playback."
(mpc-select event)
(mpc-play))
(defun mpc-goto-playing-song ()
"Move point to the currently playing song in the \"*Songs*\" buffer."
(interactive)
(let* ((buf (mpc-proc-buffer (mpc-proc) 'songs))
(win (get-buffer-window buf)))
(when (and (buffer-live-p buf) win)
(select-window win)
(with-current-buffer buf
(when (and overlay-arrow-position
(eq (marker-buffer overlay-arrow-position) buf))
(goto-char (marker-position overlay-arrow-position)))))))
;; (defun mpc-play-tagval ()
;; "Play all the songs of the tag at point."
;; (interactive)