From 7b7a768aef113ce97c36f989d3e59acf48696ea6 Mon Sep 17 00:00:00 2001
From: mlang <mlang>
Date: Thu, 28 Sep 2006 21:15:00 +0000
Subject: pause-for-alsaplayer

Get pause/resume working for alsaplayer

darcs-hash:20060928211555-08870-3dc3638f98fa28d080d98d4fbb874ef2afa68af9.gz
---
 emms-player-simple.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/emms-player-simple.el b/emms-player-simple.el
index 985d3ed..17611eb 100644
--- a/emms-player-simple.el
+++ b/emms-player-simple.el
@@ -182,5 +182,17 @@ PLAYER is the name of the current player."
   (emms-player-simple-regexp ".ogg" ".mp3" ".wav" ".flac" ".pls" ".m3u" "http://")
   "alsaplayer" "--quiet" "--nosave" "\"--interface text\"")
 
+(emms-player-set emms-player-alsaplayer
+		 'pause
+		 'emms-player-alsaplayer-pause)
+
+;;; Pause is also resume for alsaplayer
+(emms-player-set emms-player-alsaplayer
+                 'resume
+                 nil)
+
+(defun emms-player-alsaplayer-pause ()
+  (call-process "alsaplayer" nil nil nil "--pause"))
+
 (provide 'emms-player-simple)
 ;;; emms-player-simple.el ends here
-- 
cgit v1.2.3