Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/mpc.el: Rename the new toggling commands

Browse source 
(mpc-toggle-consume, mpc-toggle-repeat, mpc-toggle-single)
(mpc-toggle-shuffle): Add "-toggle" in the name.
This commit is contained in:
Stefan Monnier 2015-10-16 09:56:05 -04:00
parent 1158df5f67
commit ce47ac81f6
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/mpc.el
View file

@ -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