Fix spelling mistake in Readme

This commit is contained in:
Leon Kowarschick 2020-06-25 20:57:56 +02:00
parent c7114e2fbe
commit f4139b8f39
3 changed files with 8 additions and 3 deletions

View file

@ -10,4 +10,4 @@ I might organize them better at some point, but not now.
In here, you'll find an absolutely unnecessarily complex XMonad setup, and a bunch of other stuff.
If you're still reading this, then you are either very stubborn, or very interested in looking at
a piece of my setup. In that case,... good look.
a piece of my setup. In that case... good luck.

View file

@ -1,4 +1,4 @@
{
"optOut": false,
"lastUpdateCheck": 1592658266558
"lastUpdateCheck": 1593097287486
}

View file

@ -97,6 +97,7 @@ import qualified XMonad.StackSet as W
import qualified XMonad.Util.XSelection as XSel
import XMonad.Util.WindowProperties
import qualified XMonad.Layout.PerScreen as PerScreen
import XMonad.Layout.WindowArranger
{-# ANN module "HLint: ignore Redundant $" #-}
{-# ANN module "HLint: ignore Redundant bracket" #-}
{-# ANN module "HLint: ignore Move brackets to avoid $" #-}
@ -524,12 +525,15 @@ main = do
-- }}}
mySwallowEventHook = WindowSwallowing.swallowEventHook (className =? "Alacritty" <||> className =? "Termite" <||> className =? "Thunar") (return True)
mySwallowEventHook = WindowSwallowing.swallowEventHook
(className =? "Alacritty" <||> className =? "Termite" <||> className =? "Thunar")
(return True)
activateWindowEventHook :: Event -> X All
activateWindowEventHook (ClientMessageEvent { ev_message_type = messageType, ev_window = window }) = withWindowSet $ \ws -> do
activateWindowAtom <- getAtom "_NET_ACTIVE_WINDOW"
when (messageType == activateWindowAtom) $
if window `elem` (concatMap (W.integrate' . W.stack . W.workspace) (W.current ws : W.visible ws))
then windows (W.focusWindow window)
@ -537,6 +541,7 @@ activateWindowEventHook (ClientMessageEvent { ev_message_type = messageType, ev_
shouldRaise <- runQuery (className =? "discord" <||> className =? "web.whatsapp.com") window
if shouldRaise
then windows (W.shiftWin (W.tag $ W.workspace $ W.current ws) window)
-- TODO make this respect the independentScreen stuff, such that it doesn't raise a workspace on the wrong monitro
else windows (W.focusWindow window)
return $ All True
activateWindowEventHook _ = return $ All True