ndwarshuis
/
xman
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX missing window bug

This commit is contained in:
Nathan Dwarshuis 2022-07-21 23:29:38 -04:00
parent 5afc1880d1
commit 399f3ebe23
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -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