mpo/xmonad-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add new doTile function, force tile VPN client

Browse source
This commit is contained in:
Martin Potier 2022-03-24 09:42:49 +02:00
parent 9b561492e8
commit ae1da29574
No known key found for this signature in database
GPG key ID: D4DD957DBA4AD89E
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/Projects.hs
View file

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

8
xmonad.hs
View file

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