[MINOR] last change messed up fullscreen so I removed it
This commit is contained in:
parent
aa3d8cde7d
commit
5fc6cf6e61
1 changed files with 1 additions and 28 deletions
|
@ -149,32 +149,6 @@ myManageHook = composeAll
|
||||||
|
|
||||||
myEventHook = ewmhDesktopsEventHook
|
myEventHook = ewmhDesktopsEventHook
|
||||||
|
|
||||||
|
|
||||||
multiScreenFocusHook :: Event -> X All
|
|
||||||
multiScreenFocusHook MotionEvent { ev_x = x, ev_y = y } = do
|
|
||||||
ms <- getScreenForPos x y
|
|
||||||
let cursorScreenID = W.screen <$> ms
|
|
||||||
focussedScreenID <- W.screen . W.current . windowset <$> get
|
|
||||||
when (cursorScreenID /= Just focussedScreenID) $
|
|
||||||
maybe (return ()) (windows . W.view . W.tag . W.workspace) ms
|
|
||||||
return (All True)
|
|
||||||
where
|
|
||||||
getScreenForPos :: CInt -> CInt
|
|
||||||
-> X (Maybe (W.Screen WorkspaceId (Layout Window) Window ScreenId ScreenDetail))
|
|
||||||
getScreenForPos x y = do
|
|
||||||
ws <- windowset <$> get
|
|
||||||
let screens = W.current ws : W.visible ws
|
|
||||||
inRects = map (inRect x y . screenRect . W.screenDetail) screens
|
|
||||||
return $ fst <$> find snd (zip screens inRects)
|
|
||||||
|
|
||||||
inRect :: CInt -> CInt -> Rectangle -> Bool
|
|
||||||
inRect x y rect =
|
|
||||||
let l = fromIntegral (rect_x rect)
|
|
||||||
r = l + fromIntegral (rect_width rect)
|
|
||||||
t = fromIntegral (rect_y rect)
|
|
||||||
b = t + fromIntegral (rect_height rect)
|
|
||||||
in x >= l && x < r && y >= t && y < b
|
|
||||||
|
|
||||||
myStartupHook = do
|
myStartupHook = do
|
||||||
spawnOnce "pasystray"
|
spawnOnce "pasystray"
|
||||||
spawnOnce "nitrogen --restore &"
|
spawnOnce "nitrogen --restore &"
|
||||||
|
@ -225,7 +199,6 @@ myXmobarPP s = def
|
||||||
|
|
||||||
myConfig = def
|
myConfig = def
|
||||||
{
|
{
|
||||||
rootMask = rootMask def .|. pointerMotionMask,
|
|
||||||
terminal = myTerminal,
|
terminal = myTerminal,
|
||||||
focusFollowsMouse = myFocusFollowsMouse,
|
focusFollowsMouse = myFocusFollowsMouse,
|
||||||
clickJustFocuses = myClickJustFocuses,
|
clickJustFocuses = myClickJustFocuses,
|
||||||
|
@ -237,7 +210,7 @@ myConfig = def
|
||||||
-- keys = myKeys,
|
-- keys = myKeys,
|
||||||
layoutHook = smartBorders . spacingWithEdge 10 $ myLayout,
|
layoutHook = smartBorders . spacingWithEdge 10 $ myLayout,
|
||||||
manageHook = manageSpawn <+> myManageHook <+> manageHook def,
|
manageHook = manageSpawn <+> myManageHook <+> manageHook def,
|
||||||
handleEventHook = myEventHook <+> multiScreenFocusHook <+> fullscreenEventHook <+> swallowEventHook (className=?"Alacritty") (return True),
|
handleEventHook = myEventHook <+> fullscreenEventHook <+> swallowEventHook (className=?"Alacritty") (return True),
|
||||||
startupHook = myStartupHook
|
startupHook = myStartupHook
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue