ElKowar/dots-of-war
1
0
Fork 0
mirror of https://github.com/elkowar/dots-of-war.git synced 2024-11-05 19:02:24 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity

Fix spelling mistake in Readme

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Readme.md
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. 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 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.

2
files/.config/configstore/update-notifier-npm.json
View file

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

7
files/.xmonad/lib/Config.hs
View file

@ -97,6 +97,7 @@ import qualified XMonad.StackSet as W
import qualified XMonad.Util.XSelection as XSel import qualified XMonad.Util.XSelection as XSel
import XMonad.Util.WindowProperties import XMonad.Util.WindowProperties
import qualified XMonad.Layout.PerScreen as PerScreen import qualified XMonad.Layout.PerScreen as PerScreen
import XMonad.Layout.WindowArranger
{-# ANN module "HLint: ignore Redundant $" #-} {-# ANN module "HLint: ignore Redundant $" #-}
{-# ANN module "HLint: ignore Redundant bracket" #-} {-# ANN module "HLint: ignore Redundant bracket" #-}
{-# ANN module "HLint: ignore Move brackets to avoid $" #-} {-# 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 :: Event -> X All
activateWindowEventHook (ClientMessageEvent { ev_message_type = messageType, ev_window = window }) = withWindowSet $ \ws -> do activateWindowEventHook (ClientMessageEvent { ev_message_type = messageType, ev_window = window }) = withWindowSet $ \ws -> do
activateWindowAtom <- getAtom "_NET_ACTIVE_WINDOW" activateWindowAtom <- getAtom "_NET_ACTIVE_WINDOW"
when (messageType == activateWindowAtom) $ when (messageType == activateWindowAtom) $
if window `elem` (concatMap (W.integrate' . W.stack . W.workspace) (W.current ws : W.visible ws)) if window `elem` (concatMap (W.integrate' . W.stack . W.workspace) (W.current ws : W.visible ws))
then windows (W.focusWindow window) 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 shouldRaise <- runQuery (className =? "discord" <||> className =? "web.whatsapp.com") window
if shouldRaise if shouldRaise
then windows (W.shiftWin (W.tag $ W.workspace $ W.current ws) window) 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) else windows (W.focusWindow window)
return $ All True return $ All True
activateWindowEventHook _ = return $ All True activateWindowEventHook _ = return $ All True