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