From ce47ac81f6aaa347942fb7f7173b349bd1a231c1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Oct 2015 09:56:05 -0400 Subject: [PATCH] * lisp/mpc.el: Rename the new toggling commands (mpc-toggle-consume, mpc-toggle-repeat, mpc-toggle-single) (mpc-toggle-shuffle): Add "-toggle" in the name. --- lisp/mpc.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/mpc.el b/lisp/mpc.el index 8cbea4fbbbf..af1aac93f14 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -1134,17 +1134,17 @@ If PLAYLIST is t or nil or missing, use the main playlist." (easy-menu-define mpc-mode-menu mpc-mode-map "Menu for MPC.el." '("MPC.el" - ["Play/Pause" mpc-toggle-play] - ["Next Track" mpc-next] - ["Previous Track" mpc-prev] + ["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? "--" - ["Repeat Playlist" mpc-repeat :style toggle + ["Repeat Playlist" mpc-toggle-repeat :style toggle :selected (member '(repeat . "1") mpc-status)] - ["Shuffle Playlist" mpc-shuffle :style toggle + ["Shuffle Playlist" mpc-toggle-shuffle :style toggle :selected (member '(random . "1") mpc-status)] - ["Repeat Single Track" mpc-single :style toggle + ["Repeat Single Track" mpc-toggle-single :style toggle :selected (member '(single . "1") mpc-status)] - ["Consume Mode" mpc-consume :style toggle + ["Consume Mode" mpc-toggle-consume :style toggle :selected (member '(consume . "1") mpc-status)] "--" ["Add new browser" mpc-tagbrowser] @@ -2362,25 +2362,25 @@ This is used so that they can be compared with `eq', which is needed for (mpc-status-stop) (if proc (delete-process proc)))) -(defun mpc-consume () +(defun mpc-toggle-consume () "Toggle consume mode: removing played songs from the playlist." (interactive) (mpc-cmd-consume (if (string= "0" (cdr (assq 'consume (mpc-cmd-status)))) "1" "0"))) -(defun mpc-repeat () +(defun mpc-toggle-repeat () "Toggle repeat mode." (interactive) (mpc-cmd-repeat (if (string= "0" (cdr (assq 'repeat (mpc-cmd-status)))) "1" "0"))) -(defun mpc-single () +(defun mpc-toggle-single () "Toggle single mode." (interactive) (mpc-cmd-single (if (string= "0" (cdr (assq 'single (mpc-cmd-status)))) "1" "0"))) -(defun mpc-shuffle () +(defun mpc-toggle-shuffle () "Toggle shuffling of the playlist (random mode)." (interactive) (mpc-cmd-random -- 2.39.2