DEL steam dynamic workspace

This commit is contained in:
Nathan Dwarshuis 2020-09-23 19:43:13 -04:00
parent 7538170eaf
commit c878c8b62d
1 changed files with 0 additions and 19 deletions

View File

@ -166,27 +166,10 @@ xsaneDynamicWorkspace = DynWorkspace
t = "XSANE"
c = "Xsane"
steamDynamicWorkspace :: DynWorkspace
steamDynamicWorkspace = DynWorkspace
{ dwName = "Steam Game"
, dwTag = t
, dwClass = c
-- TODO not sure why the doSink is needed, windows should tile be default
-- since dynamic workspaces are first in the managehook
, dwHook = [ className =? c -?> appendViewShift t >> doSink ]
, dwKey = 'z'
, dwCmd = Nothing
}
where
t = "STEAM"
-- TODO this actually needs to be a list to match all games we care about
c = "portal2_linux"
allDWs :: [DynWorkspace]
allDWs = [ xsaneDynamicWorkspace
, wmDynamicWorkspace
, gimpDynamicWorkspace
, steamDynamicWorkspace
]
--------------------------------------------------------------------------------
@ -194,7 +177,6 @@ allDWs = [ xsaneDynamicWorkspace
myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
$ onWorkspace (dwTag gimpDynamicWorkspace) gimpLayout
$ onWorkspace (dwTag steamDynamicWorkspace) steamLayout
$ mkToggle (single HIDE)
$ tall ||| fulltab ||| full
where
@ -211,7 +193,6 @@ myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
full = renamed [Replace "Full"]
$ noBorders Full
vmLayout = noBorders Full
steamLayout = vmLayout
-- TODO use a tabbed layout for multiple master windows
gimpLayout = renamed [Replace "Gimp Layout"]
$ avoidStruts