Add new doTile function, force tile VPN client

lib/Projects.hs

@@ -59,7 +59,6 @@ projects =  [ adminProject "wrk-config"
             , justStartWithName "VPN" "gpclient"
             , spinChat "element"
             , spinChat "signal"
-            , spinChat "wire"
             , spinInTerm "k9s"
             , spinInTermWithName "email" "neomutt"
             , spinTextEditorAndTerm "~/." "xmonad" -- Dark magic!

xmonad.hs

@@ -19,6 +19,8 @@ import XMonad.Layout.Spacing
 import XMonad.Layout.ThreeColumns (ThreeCol(..))
 import XMonad.Layout.ToggleLayouts (toggleLayouts)
 
+import XMonad.StackSet (sink)
+
 import XMonad.Util.EZConfig
 import XMonad.Util.SpawnOnce
 import qualified Solarized as S
@@ -51,14 +53,16 @@ myManageHook = composeOne
   , className =? "mpv"                -?> doFullFloat <+> (doShift "flims")
   , className =? "qemu-system-x86_64" -?> doFloat
   , className =? "qutebrowser"        -?> doShift "web"
-  , className =? "gpclient"           -?> doShift "VPN"
-  , isDialog                          -?> doCenterFloat
+  , className =? "gpclient"           -?> doTile <+> (doShift "VPN")
   , isDialog                          -?> doCenterFloat
 
     -- Move transient windows to their parent:
   , transience
   ]
 
+doTile :: ManageHook
+doTile = ask >>= doF . sink
+
 ------------ build the full config
 withConfig =
       Projects.modify     -- Apply projects config