twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

reverse workspaces, so that switching to a dynamic workspace group restores the focus to the screen that was focused at group creation time

Browse Source
This commit is contained in:
nwfilardo 2014-09-13 17:41:18 +00:00
parent 4efaa673fe
commit c073651cc2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/DynamicWorkspaceGroups.hs
View File

@ -93,7 +93,7 @@ addWSGroup name wids = withWindowSet $ \w -> do
-- | Give a name to the current workspace group. -- | Give a name to the current workspace group.
addCurrentWSGroup :: WSGroupId -> X () addCurrentWSGroup :: WSGroupId -> X ()
addCurrentWSGroup name = withWindowSet $ \w -> addCurrentWSGroup name = withWindowSet $ \w ->
addWSGroup name $ map (W.tag . W.workspace) (W.current w : W.visible w) addWSGroup name $ map (W.tag . W.workspace) (reverse $ W.current w : W.visible w)
-- | Delete the named workspace group from the list of workspace -- | Delete the named workspace group from the list of workspace
-- groups. Note that this has no effect on the workspaces involved; -- groups. Note that this has no effect on the workspaces involved;