From ae1da295742bfab25999a636bb6a03317ae1134d Mon Sep 17 00:00:00 2001
From: Martin Potier <martin.potier@marvid.fr>
Date: Thu, 24 Mar 2022 09:42:49 +0200
Subject: [PATCH] Add new doTile function, force tile VPN client

---
 lib/Projects.hs | 1 -
 xmonad.hs       | 8 ++++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/Projects.hs b/lib/Projects.hs
index 8693940..6b0aa03 100644
--- a/lib/Projects.hs
+++ b/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!
diff --git a/xmonad.hs b/xmonad.hs
index 511d3a4..ea380c0 100755
--- a/xmonad.hs
+++ b/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