From e9b52c885c2a691afb0f047fbe58c331a4c47f25 Mon Sep 17 00:00:00 2001 From: nwfilardo Date: Sat, 13 Sep 2014 19:41:18 +0200 Subject: reverse workspaces, so that switching to a dynamic workspace group restores the focus to the screen that was focused at group creation time Ignore-this: b74c02b1892159694827e35122c2d517 darcs-hash:20140913174118-b769b-3fcb56b59a635c397828b6dd1e35e7c01a55693e.gz --- XMonad/Actions/DynamicWorkspaceGroups.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Actions') 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; -- cgit v1.2.3