----------------------------------------------------------------------------- -- | -- Module : XMonad.Actions.DeManage -- Description : Cease management of a window without unmapping it. -- Copyright : (c) Spencer Janssen <spencerjanssen@gmail.com> -- License : BSD3-style (see LICENSE) -- -- Maintainer : Spencer Janssen <spencerjanssen@gmail.com> -- Stability : stable -- Portability : unportable -- -- This module provides a method to cease management of a window -- without unmapping it. This is especially useful for applications -- like kicker and gnome-panel. See also "XMonad.Hooks.ManageDocks" for -- more a more automated solution. -- -- To make a panel display correctly with xmonad: -- -- * Determine the pixel size of the panel, add that value to -- 'XMonad.Core.XConfig.defaultGaps' -- -- * Launch the panel -- -- * Give the panel window focus, then press @mod-d@ (or whatever key -- you have bound 'demanage' to) -- -- * Convince the panel to move\/resize to the correct location. Changing the -- panel's position setting several times seems to work. -- ----------------------------------------------------------------------------- module XMonad.Actions.DeManage ( -- * Usage -- $usage demanage ) where import qualified XMonad.StackSet as W import XMonad -- $usage -- To use demanage, add this import to your @xmonad.hs@: -- -- > import XMonad.Actions.DeManage -- -- And add a keybinding, such as: -- -- > , ((modm, xK_d ), withFocused demanage) -- -- For detailed instructions on editing your key bindings, see -- <https://xmonad.org/TUTORIAL.html#customizing-xmonad the tutorial>. -- | Stop managing the currently focused window. demanage :: Window -> X () demanage :: Window -> X () demanage Window w = do -- use modify to defeat automatic 'unmanage' calls. forall s (m :: * -> *). MonadState s m => (s -> s) -> m () modify (\XState s -> XState s { windowset :: WindowSet windowset = forall a i l s sd. Ord a => a -> StackSet i l a s sd -> StackSet i l a s sd W.delete Window w (XState -> WindowSet windowset XState s) }) X () refresh