Add MPC play/pause command

* lisp/mpc.el (mpc-toggle-play): New command.
(mpc-mode-map): Bind it to "s".
(mpc-mode-menu): Add corresponding menu item.

diff --git a/lisp/mpc.el b/lisp/mpc.el
index 7d684d24c0f22d43c3a1e3c57a1ac2551f8d1f68..d1524e7568b383e1bd512f2d2c3f86ed45df5663 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1109,6 +1109,7 @@ If PLAYLIST is t or nil or missing, use the main playlist."
     ;; is applied elsewhere :-(
     ;; (define-key map [(double mouse-2)] 'mpc-play-at-point)
     (define-key map "p" 'mpc-pause)
+    (define-key map "s" 'mpc-toggle-play)
     (define-key map ">" 'mpc-next)
     (define-key map "<" 'mpc-prev)
     (define-key map "g" nil)
@@ -1117,6 +1118,7 @@ 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]
     ["Add new browser" mpc-tagbrowser]
@@ -2350,6 +2352,16 @@ This is used so that they can be compared with `eq', which is needed for
   (interactive)
   (mpc-cmd-pause "0"))
 
+(defun mpc-toggle-play ()
+  "Toggles between play and pause.
+If stopped, start playback."
+  (interactive)
+  (if (member (cdr (assq 'state (mpc-cmd-status))) '("stop"))
+      (mpc-cmd-play)
+    (if (member (cdr (assq 'state (mpc-cmd-status))) '("pause"))
+        (mpc-resume)
+      (mpc-pause))))
+
 (defun mpc-play ()
   "Start playing whatever is selected."
   (interactive)