twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix WorkspaceDir (which was broken) using LayoutHelpers.

Browse Source
This commit is contained in:
David Roundy
2007-07-26 13:35:20 +00:00
parent 628244f06d
commit 1847aa7982
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
WorkspaceDir.hs
View File

@@ -31,6 +31,7 @@ import Data.List ( nub )
import XMonad import XMonad
import Operations ( sendMessage ) import Operations ( sendMessage )
import XMonadContrib.Dmenu ( dmenu, runProcessWithInput ) import XMonadContrib.Dmenu ( dmenu, runProcessWithInput )
import XMonadContrib.LayoutHelpers ( layoutModify )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
@@ -48,10 +49,10 @@ data Chdir = Chdir String deriving ( Typeable )
instance Message Chdir instance Message Chdir
workspaceDir :: String -> Layout a -> Layout a workspaceDir :: String -> Layout a -> Layout a
workspaceDir wd l = l { doLayout = \r x -> scd wd >> doLayout l r x workspaceDir wd = layoutModify dowd modwd
, modifyLayout = ml } where dowd _ _ rws = scd wd >> return (rws, Nothing)
where ml m | Just (Chdir wd') <- fromMessage m = return $ Just (workspaceDir wd' l) modwd m = return $ do Chdir wd' <- fromMessage m
| otherwise = fmap (workspaceDir wd) `fmap` modifyLayout l m Just $ workspaceDir wd'
scd :: String -> X () scd :: String -> X ()
scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x) scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x)