aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2012-11-08 23:57:16 +0100
committerAdam Vogt <vogt.adam@gmail.com>2012-11-08 23:57:16 +0100
commitabc4a5c1fdbf5c4c50dea3ae319531de4878a857 (patch)
tree65cd2cc5d1713ffbd222def6f32a4e0ca4484a78
parent464caa4bd8fa8c71f2dc1928f6a2ec0a5a392f55 (diff)
downloadXMonadContrib-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
-rw-r--r--XMonad/Hooks/ICCCMFocus.hs19
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 ::