src/XMonad/Local/Music.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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