twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.H.Rescreen: XConfig (a ⇒ l)

Browse Source 
It's a layout, `a` is misleading.
This commit is contained in:
Tomas Janousek 2021-10-18 10:29:25 +01:00
parent 087526dee3
commit 586416b0f9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Hooks/Rescreen.hs
View File

@ -88,17 +88,17 @@ instance Monoid RescreenConfig where
-- --
-- Note that 'rescreenHook' is safe to use several times, 'rescreen' is still -- Note that 'rescreenHook' is safe to use several times, 'rescreen' is still
-- done just once and hooks are invoked in sequence, also just once. -- done just once and hooks are invoked in sequence, also just once.
rescreenHook :: RescreenConfig -> XConfig a -> XConfig a rescreenHook :: RescreenConfig -> XConfig l -> XConfig l
rescreenHook = XC.once $ \c -> c rescreenHook = XC.once $ \c -> c
{ startupHook = startupHook c <> rescreenStartupHook { startupHook = startupHook c <> rescreenStartupHook
, handleEventHook = handleEventHook c <> rescreenEventHook } , handleEventHook = handleEventHook c <> rescreenEventHook }
-- | Shortcut for 'rescreenHook'. -- | Shortcut for 'rescreenHook'.
addAfterRescreenHook :: X () -> XConfig a -> XConfig a addAfterRescreenHook :: X () -> XConfig l -> XConfig l
addAfterRescreenHook h = rescreenHook def{ afterRescreenHook = h } addAfterRescreenHook h = rescreenHook def{ afterRescreenHook = h }
-- | Shortcut for 'rescreenHook'. -- | Shortcut for 'rescreenHook'.
addRandrChangeHook :: X () -> XConfig a -> XConfig a addRandrChangeHook :: X () -> XConfig l -> XConfig l
addRandrChangeHook h = rescreenHook def{ randrChangeHook = h } addRandrChangeHook h = rescreenHook def{ randrChangeHook = h }
-- | Startup hook to listen for @RRScreenChangeNotify@ events. -- | Startup hook to listen for @RRScreenChangeNotify@ events.