diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2012-11-08 23:57:16 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2012-11-08 23:57:16 +0100 |
| commit | abc4a5c1fdbf5c4c50dea3ae319531de4878a857 (patch) | |
| tree | 65cd2cc5d1713ffbd222def6f32a4e0ca4484a78 /XMonad/Hooks | |
| parent | 464caa4bd8fa8c71f2dc1928f6a2ec0a5a392f55 (diff) | |
| download | XMonadContrib-abc4a5c1fdbf5c4c50dea3ae319531de4878a857.tar.gz XMonadContrib-abc4a5c1fdbf5c4c50dea3ae319531de4878a857.tar.xz XMonadContrib-abc4a5c1fdbf5c4c50dea3ae319531de4878a857.zip | |
Gut H.ICCCMFocus: issue 177 has been merged in core.
Ignore-this: 937fe7f514ea6e36ee529e055e100e7f
Keep the module for now: the LG3D bit might still be useful
and there's no need to break configs unnecessarily.
darcs-hash:20121108225716-1499c-4cc33999ce4d9866d6535fd878f33a8af4bbbc12.gz
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/ICCCMFocus.hs | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/XMonad/Hooks/ICCCMFocus.hs b/XMonad/Hooks/ICCCMFocus.hs index c059ad2..0761b9f 100644 --- a/XMonad/Hooks/ICCCMFocus.hs +++ b/XMonad/Hooks/ICCCMFocus.hs @@ -18,6 +18,7 @@ -- @ ----------------------------------------------------------------------------- module XMonad.Hooks.ICCCMFocus +{-# DEPRECATED "XMonad.Hooks.ICCCMFocus: xmonad>0.10 core merged issue 177" #-} ( atom_WM_TAKE_FOCUS , takeFocusX @@ -27,27 +28,11 @@ module XMonad.Hooks.ICCCMFocus import XMonad import XMonad.Hooks.SetWMName import qualified XMonad.StackSet as W -import Control.Monad - -atom_WM_TAKE_FOCUS :: - X Atom -atom_WM_TAKE_FOCUS = - getAtom "WM_TAKE_FOCUS" takeFocusX :: Window -> X () -takeFocusX w = - withWindowSet . const $ do - dpy <- asks display - wmtakef <- atom_WM_TAKE_FOCUS - wmprot <- atom_WM_PROTOCOLS - protocols <- io $ getWMProtocols dpy w - when (wmtakef `elem` protocols) $ - io . allocaXEvent $ \ev -> do - setEventType ev clientMessage - setClientMessageEvent ev w wmprot 32 wmtakef currentTime - sendEvent dpy w False noEventMask ev +takeFocusX _w = return () -- | The value to add to your log hook configuration. takeTopFocus :: |