46 lines
1.5 KiB
Diff
46 lines
1.5 KiB
Diff
|
Thu Nov 8 14:57:16 PST 2012 Adam Vogt <vogt.adam@gmail.com>
|
||
|
* Gut H.ICCCMFocus: issue 177 has been merged in core.
|
||
|
|
||
|
Keep the module for now: the LG3D bit might still be useful
|
||
|
and there's no need to break configs unnecessarily.
|
||
|
diff -rN -u old-XMonadContrib/XMonad/Hooks/ICCCMFocus.hs new-XMonadContrib/XMonad/Hooks/ICCCMFocus.hs
|
||
|
--- old-XMonadContrib/XMonad/Hooks/ICCCMFocus.hs 2012-11-14 23:07:15.699051848 -0800
|
||
|
+++ new-XMonadContrib/XMonad/Hooks/ICCCMFocus.hs 2012-11-14 23:07:15.982052555 -0800
|
||
|
@@ -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 @@
|
||
|
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 ::
|