FIX missing window bug
This commit is contained in:
parent
5afc1880d1
commit
399f3ebe23
|
@ -148,10 +148,12 @@ updateXCape = do
|
||||||
dpy <- asks display
|
dpy <- asks display
|
||||||
atom <- asks netActiveWindow
|
atom <- asks netActiveWindow
|
||||||
root <- asks theRoot
|
root <- asks theRoot
|
||||||
|
-- find the active window; if none are found, assume there are no windows
|
||||||
|
-- open, in which case xcape should be running
|
||||||
prop <- io $ getWindowProperty32 dpy atom root
|
prop <- io $ getWindowProperty32 dpy atom root
|
||||||
case prop of
|
case prop of
|
||||||
Just [aw] -> getAppName (fromIntegral aw) >>= startOrKillXCape
|
Just [aw] -> getAppName (fromIntegral aw) >>= startOrKillXCape
|
||||||
_ -> return ()
|
_ -> startXCape
|
||||||
|
|
||||||
-- | Given an event, call a handler. In this case the only thing we care about
|
-- | Given an event, call a handler. In this case the only thing we care about
|
||||||
-- are PropertyNotify events where the atom is _NET_ACTIVE_WINDOW, which will
|
-- are PropertyNotify events where the atom is _NET_ACTIVE_WINDOW, which will
|
||||||
|
|
Loading…
Reference in New Issue