22 lines
559 B
Haskell
22 lines
559 B
Haskell
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 = do
|
|
spawn "xrandr --dpi 96"
|
|
spawn "/home/e/.fehbg"
|