From f4139b8f39b3148b43c4b97b8d06547ebe577d0f Mon Sep 17 00:00:00 2001
From: Leon Kowarschick <lkowarschick@gmail.com>
Date: Thu, 25 Jun 2020 20:57:56 +0200
Subject: [PATCH] Fix spelling mistake in Readme

---
 Readme.md                                          | 2 +-
 files/.config/configstore/update-notifier-npm.json | 2 +-
 files/.xmonad/lib/Config.hs                        | 7 ++++++-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Readme.md b/Readme.md
index 3926857..9d90ff2 100644
--- a/Readme.md
+++ b/Readme.md
@@ -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.
diff --git a/files/.config/configstore/update-notifier-npm.json b/files/.config/configstore/update-notifier-npm.json
index b2a6374..5db69a4 100644
--- a/files/.config/configstore/update-notifier-npm.json
+++ b/files/.config/configstore/update-notifier-npm.json
@@ -1,4 +1,4 @@
 {
 	"optOut": false,
-	"lastUpdateCheck": 1592658266558
+	"lastUpdateCheck": 1593097287486
 }
\ No newline at end of file
diff --git a/files/.xmonad/lib/Config.hs b/files/.xmonad/lib/Config.hs
index 490a113..1481c20 100644
--- a/files/.xmonad/lib/Config.hs
+++ b/files/.xmonad/lib/Config.hs
@@ -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