From 0377a9e335ebf3dc5040465ff647d07182eaad8e Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Thu, 6 Jan 2011 19:20:52 +0000 Subject: [PATCH] H.ICCCMFocus had atom_WM_TAKE_FOCUS incorrectly removed It is possible that this atom should be defined in the X11 library, but fix the build of contrib for now. In any case, this would have to wait for a change and release of the X11 binding. rolling back: Wed Jan 5 22:38:39 EST 2011 Adam Vogt * Remove accidental atom_WM_TAKE_FOCUS from H.ICCCMFocus The XMonad module exports this already M ./XMonad/Hooks/ICCCMFocus.hs -7 +1 --- XMonad/Hooks/ICCCMFocus.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/XMonad/Hooks/ICCCMFocus.hs b/XMonad/Hooks/ICCCMFocus.hs index 43e302a7..c059ad29 100644 --- a/XMonad/Hooks/ICCCMFocus.hs +++ b/XMonad/Hooks/ICCCMFocus.hs @@ -19,7 +19,8 @@ ----------------------------------------------------------------------------- module XMonad.Hooks.ICCCMFocus ( - takeFocusX + atom_WM_TAKE_FOCUS +, takeFocusX , takeTopFocus ) where @@ -28,6 +29,11 @@ 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 ()