[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ce47ac8: * lisp/mpc.el: Rename the new toggling com
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master ce47ac8: * lisp/mpc.el: Rename the new toggling commands |
Date: |
Fri, 16 Oct 2015 13:56:11 +0000 |
branch: master
commit ce47ac81f6aaa347942fb7f7173b349bd1a231c1
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 8cbea4f..af1aac9 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ce47ac8: * lisp/mpc.el: Rename the new toggling commands,
Stefan Monnier <=