GridSelect, alacritty

lib/KeyBindings.hs

@@ -9,6 +9,7 @@ import System.Exit
 import Text.EditDistance
 import XMonad
 import XMonad.Actions.CycleWS
+import XMonad.Actions.GridSelect
 import XMonad.Core
 import XMonad.Layout.ToggleLayouts
 import XMonad.Operations
@@ -43,7 +44,8 @@ modify conf = conf
     , ("M-S-<Right>", shiftToNext >> nextWS)
     , ("M-S-p", shellPrompt promptConfig)
     , ("M-S-s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
-    , ("M-p", fuzzyPrompt promptConfig)
+    --, ("M-p", fuzzyPrompt promptConfig)
+    , ("M-p", goToSelected defaultGSConfig)
     , ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
     ]
 

xmonad.hs

@@ -47,7 +47,7 @@ layouts = toggleLayouts fullscreen    tiled
 myManageHook = composeOne
   [ className =? "mpv"          -?> doFullFloat <+> (doShift $ last wkspcs)
   , className =? "Pinentry"     -?> doFloat
-  , className =? "Steam"        -?> doFloat
+  , className =? "Steam"        -?> doShift $ wkspcs !! 3
   , className =? "csgo_linux64" -?> doFullFloat
   , className =? "Pavucontrol"  -?> doShift $ wkspcs !! 7
   , className =? "qutebrowser"  -?> doShift $ wkspcs !! 5
@@ -65,7 +65,7 @@ withConfig =
     $ desktopConfig -- on a default desktop config
     { manageHook         = myManageHook <+> manageHook desktopConfig
     , layoutHook         = desktopLayoutModifiers layouts
-    , terminal           = "/run/current-system/sw/bin/kitty"
+    , terminal           = "/run/current-system/sw/bin/alacritty"
     , workspaces         = wkspcs
     , normalBorderColor  = S.base03
     , focusedBorderColor = S.violet