Closed HokieGeek closed 9 years ago
This is very closely related to issue #15
Is there some sort of exit handler so that, if I exit the gimp workspace, it calls removeEmptyWorkspace
every time?
getCurrentWorkspace :: X String
getCurrentWorkspace = withWindowSet (\s -> return $ W.tag $ W.workspace $ W.current s)
Use the log hook!
The shortcut might be:
, ((0, xK_grave), windows $ W.greedyView "SPECIAL")
http://xmonad.org/xmonad-docs/X11/src/Graphics-X11-Types.html
Replace
dzenWorkspaceSymbol x = "^i(/home/andres/.xmonad/imgs/workspace.xbm)"
with
dzenWorkspaceSymbol "SPECIAL" = "^i(/home/andres/.xmonad/imgs/workspace_special.xbm)"
dzenWorkspaceSymbol x = "^i(/home/andres/.xmonad/imgs/workspace.xbm)"
removeSpecialWs :: WorkspaceId -> X()
removeSpecialWs "SPECIAL" = removeEmptyWorkspace
removeSpecialWs :: WorkspaceId -> X()
removeSpecialWs "SPECIAL" = removeEmptyWorkspace
myLogHook h = (dynamicLogWithPP (myDzen h)) <+> historyHook <+> removeSpecialWs
>> fadeInactiveLogHook 0.5
>> updatePointer (Relative 1 1)
XMonad.Actions.DynamicWorkspaces
Sample gimp layout
gimpLayout = named "Gimp" $
withIM (0.130) (Role "gimp-toolbox") $
reflectHoriz $
withIM (0.2) (Role "gimp-dock") Full
Would be useful to figure out if I can apply layouts on the fly. So, maybe when the SPECIAL workspace is navigated to, check the windows. If gimp, apply this layout.
moveOnBack l = tail l ++ [head l]
addWorkspace "gimp"
I have no clue if this is a good idea or not....