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

Maybe? What Maybe? (rollback earlier dmenu change)

Browse Source
This commit is contained in:
Devin Mullins
2007-10-07 18:59:15 +00:00
parent 367210bae1
commit 51d770e1e6
5 changed files with 13 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
WorkspaceDir.hs
View File

@@ -68,10 +68,8 @@ workspaceDir :: LayoutClass l a => String -> l a
workspaceDir s = ModifiedLayout (WorkspaceDir s)
scd :: String -> X ()
scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return Nothing)
case x' of
Just newDir -> catchIO $ setCurrentDirectory newDir
Nothing -> return ()
scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x)
catchIO $ setCurrentDirectory x'
changeDir :: XPConfig -> X ()
changeDir c = directoryPrompt c "Set working directory: " (sendMessage . Chdir)