xmonad-config/lib/ScreenEvents.hs

module ScreenEvents (
  ScreenEvents.modify
) where

import XMonad
import Data.Monoid (All(..))
import XMonad.Hooks.Rescreen

-- screenChangeHandler :: Event -> X All
-- screenChangeHandler (RRScreenChangeNotifyEvent _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) = do
--   spawn "touch /tmp/xmonad-WAAAAAT"
--   spawn "/home/e/.fehbg"
--   return (All True)
-- screenChangeHandler _ = return (All True)

modify :: XConfig l -> XConfig l
modify = addAfterRescreenHook afterRescreen

afterRescreen :: X ()
afterRescreen = spawn "/home/e/.fehbg"