aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Layout/WorkspaceDir.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/WorkspaceDir.hs b/XMonad/Layout/WorkspaceDir.hs
index f550f46..e999c41 100644
--- a/XMonad/Layout/WorkspaceDir.hs
+++ b/XMonad/Layout/WorkspaceDir.hs
@@ -69,9 +69,9 @@ instance Message Chdir
data WorkspaceDir a = WorkspaceDir String deriving ( Read, Show )
instance LayoutModifier WorkspaceDir Window where
- redoLayout (WorkspaceDir d) _ s wrs = do w <- gets windowset
- when (Just (focus s) == peek w) $ scd d
- return (wrs, Nothing)
+ modifyLayout (WorkspaceDir d) w r = do tc <- gets (tag . current . windowset)
+ when (tc == tag w) $ scd d
+ runLayout w r
handleMess (WorkspaceDir _) m
| Just (Chdir wd) <- fromMessage m = do wd' <- cleanDir wd
return $ Just $ WorkspaceDir wd'