diff options
| -rw-r--r-- | XMonad/Actions/DynamicWorkspaceGroups.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Actions/DynamicWorkspaceGroups.hs b/XMonad/Actions/DynamicWorkspaceGroups.hs index be457ef..9f12ad9 100644 --- a/XMonad/Actions/DynamicWorkspaceGroups.hs +++ b/XMonad/Actions/DynamicWorkspaceGroups.hs @@ -93,7 +93,7 @@ addWSGroup name wids = withWindowSet $ \w -> do -- | Give a name to the current workspace group. addCurrentWSGroup :: WSGroupId -> X () 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 -- groups. Note that this has no effect on the workspaces involved; |