From 8c3bc1b0af6733ccec390a04c2e5dd416f548fab Mon Sep 17 00:00:00 2001 From: David Roundy Date: Wed, 26 Mar 2008 16:27:08 +0100 Subject: make workspaceDir work even in workspaces with no windows. This also fixes a (minor) bug when the focussed window is present on multiple visible workspaces. darcs-hash:20080326152708-72aca-d34a7d717c984a9bdde64f1f63d334f0cb38b30f.gz --- XMonad/Layout/WorkspaceDir.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/WorkspaceDir.hs') 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' -- cgit v1.2.3