mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
XMonad.Hooks.ICCCMFocus: Remove
This commit is contained in:
parent
287b8bf95f
commit
6f49a9394f
@ -1,42 +0,0 @@
|
|||||||
-----------------------------------------------------------------------------
|
|
||||||
-- |
|
|
||||||
-- Module : XMonad.Hooks.ICCCMFocus
|
|
||||||
-- Description : Deprecated.
|
|
||||||
-- License : BSD
|
|
||||||
--
|
|
||||||
-- Maintainer : Tony Morris <haskell@tmorris.net>
|
|
||||||
--
|
|
||||||
-- Implemented in your @logHook@, Java swing applications will not misbehave
|
|
||||||
-- when it comes to taking and losing focus.
|
|
||||||
--
|
|
||||||
-- This has been done by taking the patch in <http://code.google.com/p/xmonad/issues/detail?id=177> and refactoring it so that it can be included in @~\/.xmonad\/xmonad.hs@.
|
|
||||||
--
|
|
||||||
-- @
|
|
||||||
-- conf' =
|
|
||||||
-- conf {
|
|
||||||
-- logHook = takeTopFocus
|
|
||||||
-- }
|
|
||||||
-- @
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
module XMonad.Hooks.ICCCMFocus
|
|
||||||
{-# DEPRECATED "XMonad.Hooks.ICCCMFocus: xmonad>0.10 core merged issue 177" #-}
|
|
||||||
(
|
|
||||||
atom_WM_TAKE_FOCUS
|
|
||||||
, takeFocusX
|
|
||||||
, takeTopFocus
|
|
||||||
) where
|
|
||||||
|
|
||||||
import XMonad
|
|
||||||
import XMonad.Hooks.SetWMName
|
|
||||||
import qualified XMonad.StackSet as W
|
|
||||||
|
|
||||||
takeFocusX ::
|
|
||||||
Window
|
|
||||||
-> X ()
|
|
||||||
takeFocusX _w = return ()
|
|
||||||
|
|
||||||
-- | The value to add to your log hook configuration.
|
|
||||||
takeTopFocus ::
|
|
||||||
X ()
|
|
||||||
takeTopFocus =
|
|
||||||
withWindowSet (maybe (setFocusX =<< asks theRoot) takeFocusX . W.peek) >> setWMName "LG3D"
|
|
@ -190,7 +190,6 @@ library
|
|||||||
XMonad.Hooks.FadeWindows
|
XMonad.Hooks.FadeWindows
|
||||||
XMonad.Hooks.FloatNext
|
XMonad.Hooks.FloatNext
|
||||||
XMonad.Hooks.Focus
|
XMonad.Hooks.Focus
|
||||||
XMonad.Hooks.ICCCMFocus
|
|
||||||
XMonad.Hooks.InsertPosition
|
XMonad.Hooks.InsertPosition
|
||||||
XMonad.Hooks.ManageDebug
|
XMonad.Hooks.ManageDebug
|
||||||
XMonad.Hooks.ManageDocks
|
XMonad.Hooks.ManageDocks
|
||||||
|
Loading…
x
Reference in New Issue
Block a user