DEL steam dynamic workspace
This commit is contained in:
parent
7538170eaf
commit
c878c8b62d
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue