Gratin xmonad.hs

xmonad.hs

import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig
import XMonad.Hooks.SetWMName
import Data.Bits ((.|.))
import System.Exit (exitSuccess)
 
main = xmonad $ defaultConfig {
          terminal = "xfce4-terminal",
          modMask  = mod4Mask,
          startupHook = do
            setWMName "LG3D"
            spawn "wallpapertimer.sh"
        }
        `removeKeys`
        [(mod4Mask .|. shiftMask, xK_q)]
        `additionalKeys`
        myKeys
        `additionalKeysP`
        audioKeys

myKeys =
        [ ((mod4Mask, xK_d), spawn "rofi -show run"),
          ((mod4Mask, xK_a), spawn "rofi -show window"),
          ((mod4Mask, xK_f), spawn "qutebrowser"),
          ((mod4Mask, xK_t), spawn "xfce4-terminal"),
          ((mod4Mask .|. shiftMask, xK_x), io exitSuccess) -- change keys as desired
           ]


audioKeys =
        [ ("<XF86AudioMute>"  , spawn "pactl set-sink-mute 0 toggle; pactl set-sink-mute 1 toggle") ,
	  ("<XF86AudioRaiseVolume>"  , spawn "pactl set-sink-volume 0 +5%; pactl set-sink-volume 1 +5%"),
	  ("<XF86AudioLowerVolume>"  , spawn "pactl set-sink-volume 0 -5%; pactl set-sink-volume 1 -5%"),
	  ("<XF86AudioPlay>"  , spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.PlayPause") ]