Volume.hs

-- | Utils to use to control volume via amixer
module XMonad.Util.Volume where

import           Data.Semigroup
import           XMonad

-- | Generate action in the X monad to
vol :: String -> X ()
vol = spawn . (++) "amixer -D pulse sset Master "

-- | Mute/unmute within the `X` Monad.
toggleMute :: X ()
toggleMute = vol "toggle"

-- | Raise volume
raiseVolume :: (Integral a, Show a) => a -> X ()
raiseVolume n = vol $ show n <> "%+"

-- | Lower volume
lowerVolume :: (Integral a, Show a) => a -> X ()
lowerVolume n = vol $ show n <> "%-"