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

use XPrompt in WorkspaceDir.

Browse Source
This commit is contained in:
David Roundy
2007-08-14 19:11:03 +00:00
parent 709c2b8573
commit 002b15cb1f
3 changed files with 68 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
WorkspaceDir.hs
View File

@@ -25,13 +25,15 @@ module XMonadContrib.WorkspaceDir (
changeDir
) where
import System.Directory ( setCurrentDirectory, getCurrentDirectory )
import Data.List ( nub )
import System.Directory ( setCurrentDirectory )
import XMonad
import Operations ( sendMessage )
import XMonadContrib.Dmenu ( dmenu, runProcessWithInput )
import XMonadContrib.Dmenu ( runProcessWithInput )
import XMonadContrib.XPrompt ( XPConfig )
import XMonadContrib.DirectoryPrompt ( directoryPrompt )
import XMonadContrib.LayoutHelpers ( layoutModify )
import XMonadContrib.XPrompt ( defaultXPConfig )
-- $usage
-- You can use this module with the following in your Config.hs file:
@@ -42,7 +44,7 @@ import XMonadContrib.LayoutHelpers ( layoutModify )
--
-- In keybindings:
--
-- > , ((modMask .|. shiftMask, xK_x ), changeDir ["~","/tmp"])
-- > , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig)
data Chdir = Chdir String deriving ( Typeable )
@@ -58,7 +60,5 @@ scd :: String -> X ()
scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x)
catchIO $ setCurrentDirectory x'
changeDir :: [String] -> X ()
changeDir dirs = do thisd <- io getCurrentDirectory
dir <- dmenu (nub (thisd:dirs))
sendMessage (Chdir dir)
changeDir :: XPConfig -> X ()
changeDir c = directoryPrompt c "Set working directory: " (sendMessage . Chdir)