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" t = "XSANE"
c = "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 :: [DynWorkspace]
allDWs = [ xsaneDynamicWorkspace allDWs = [ xsaneDynamicWorkspace
, wmDynamicWorkspace , wmDynamicWorkspace
, gimpDynamicWorkspace , gimpDynamicWorkspace
, steamDynamicWorkspace
] ]
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
@ -194,7 +177,6 @@ allDWs = [ xsaneDynamicWorkspace
myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
$ onWorkspace (dwTag gimpDynamicWorkspace) gimpLayout $ onWorkspace (dwTag gimpDynamicWorkspace) gimpLayout
$ onWorkspace (dwTag steamDynamicWorkspace) steamLayout
$ mkToggle (single HIDE) $ mkToggle (single HIDE)
$ tall ||| fulltab ||| full $ tall ||| fulltab ||| full
where where
@ -211,7 +193,6 @@ myLayouts = onWorkspace (dwTag wmDynamicWorkspace) vmLayout
full = renamed [Replace "Full"] full = renamed [Replace "Full"]
$ noBorders Full $ noBorders Full
vmLayout = noBorders Full vmLayout = noBorders Full
steamLayout = vmLayout
-- TODO use a tabbed layout for multiple master windows -- TODO use a tabbed layout for multiple master windows
gimpLayout = renamed [Replace "Gimp Layout"] gimpLayout = renamed [Replace "Gimp Layout"]
$ avoidStruts $ avoidStruts