diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-16 09:56:05 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-16 09:56:05 -0400 |
| commit | ce47ac81f6aaa347942fb7f7173b349bd1a231c1 (patch) | |
| tree | cae341589b9b5f40742e7aac3dde75b9f3f4cdfa /lisp/mpc.el | |
| parent | 1158df5f677c1c9ac8649910a680c17b53452753 (diff) | |
| download | emacs-ce47ac81f6aaa347942fb7f7173b349bd1a231c1.tar.gz emacs-ce47ac81f6aaa347942fb7f7173b349bd1a231c1.tar.bz2 emacs-ce47ac81f6aaa347942fb7f7173b349bd1a231c1.zip | |
* 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.
Diffstat (limited to 'lisp/mpc.el')
| -rw-r--r-- | lisp/mpc.el | 22 |
1 files 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 |