Added keybindings for mpd control

Signed-off-by: Michal Minar <mic.liamg@gmail.com>

1 files changed, 15 insertions, 0 deletions

diff --git a/src/XMonad/Local/Music.hs b/src/XMonad/Local/Music.hs
new file mode 100644
index 0000000..d55fbbc
--- /dev/null
+++ b/src/XMonad/Local/Music.hs
@@ -0,0 +1,15 @@
+module XMonad.Local.Music where
+
+import Control.Monad (liftM)
+
+import qualified Network.MPD as MPD
+
+toggleRepeat :: MPD.MonadMPD m => m()
+toggleRepeat = do
+    repeatState <- liftM MPD.stRepeat MPD.status 
+    MPD.repeat $ not repeatState 
+
+toggleRandom :: MPD.MonadMPD m => m()
+toggleRandom = do
+    randomState <- liftM MPD.stRandom MPD.status
+    MPD.random $ not randomState