diff options
| -rw-r--r-- | XMonad/Hooks/ICCCMFocus.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/XMonad/Hooks/ICCCMFocus.hs b/XMonad/Hooks/ICCCMFocus.hs index 43e302a..c059ad2 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 () |