xmonad-config/lib/ScreenEvents.hs

23 lines
559 B
Haskell
Raw Permalink Normal View History

2020-11-23 15:01:13 +01:00
module ScreenEvents (
ScreenEvents.modify
) where
import XMonad
import Data.Monoid (All(..))
2023-07-21 19:15:52 +02:00
import XMonad.Hooks.Rescreen
2020-11-23 15:01:13 +01:00
2023-07-21 19:15:52 +02:00
-- screenChangeHandler :: Event -> X All
-- screenChangeHandler (RRScreenChangeNotifyEvent _ _ _ _ _ _ _ _ _ _ _ _ _ _ _) = do
-- spawn "touch /tmp/xmonad-WAAAAAT"
-- spawn "/home/e/.fehbg"
-- return (All True)
-- screenChangeHandler _ = return (All True)
2020-11-23 15:01:13 +01:00
modify :: XConfig l -> XConfig l
2023-07-21 19:15:52 +02:00
modify = addAfterRescreenHook afterRescreen
2020-11-23 15:01:13 +01:00
2023-07-21 19:15:52 +02:00
afterRescreen :: X ()
2024-08-28 08:24:27 +02:00
afterRescreen = do
spawn "xrandr --dpi 96"
spawn "/home/e/.fehbg"