diff --git a/CHANGES.md b/CHANGES.md index efa6d5bc04..7a21b7dbf6 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -495,6 +495,10 @@ - Restored compatibility with pre-0.13 configs by making the startup hook unnecessary for correct functioning (strut cache is initialized on-demand). + This is a temporary measure, however. The individual hooks are now + deprecated in favor of the `docks` combinator, `xmonad --recompile` now + reports deprecation warnings, and the hooks will be removed soon. + - Fixed ignoring of strut updates from override-redirect windows, which is default for xmobar. diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs index 864d2bf22f..304a1c021f 100644 --- a/XMonad/Hooks/ManageDocks.hs +++ b/XMonad/Hooks/ManageDocks.hs @@ -17,7 +17,6 @@ module XMonad.Hooks.ManageDocks ( -- * Usage -- $usage docks, manageDocks, checkDock, AvoidStruts(..), avoidStruts, avoidStrutsOn, - docksEventHook, docksStartupHook, ToggleStruts(..), SetStruts(..), module XMonad.Util.Types, @@ -28,8 +27,11 @@ module XMonad.Hooks.ManageDocks ( RectC(..), #endif - -- for XMonad.Actions.FloatSnap - calcGap + -- * For developers of other modules ("XMonad.Actions.FloatSnap") + calcGap, + + -- * Standalone hooks (deprecated) + docksEventHook, docksStartupHook, ) where @@ -157,6 +159,7 @@ checkDock = ask >>= \w -> liftX $ do -- | Whenever a new dock appears, refresh the layout immediately to avoid the -- new dock. +{-# DEPRECATED docksEventHook "Use docks instead." #-} docksEventHook :: Event -> X All docksEventHook MapNotifyEvent{ ev_window = w } = do whenX (runQuery checkDock w <&&> (not <$> isClient w)) $ @@ -174,6 +177,7 @@ docksEventHook DestroyWindowEvent{ ev_window = w } = do return (All True) docksEventHook _ = return (All True) +{-# DEPRECATED docksStartupHook "Use docks instead." #-} docksStartupHook :: X () docksStartupHook = void getStrutCache