diff options
| author | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
| commit | d9f831e606e447043239ae4d60e931405132ba37 (patch) | |
| tree | 0f2c9680d65629c8dcbe80e9125519e30d9405f6 /DirectoryPrompt.hs | |
| parent | 6f391057b024585fb4d9489c3a412a59f4bab275 (diff) | |
| download | XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.gz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.xz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.zip | |
Maybe? What Maybe? (rollback earlier dmenu change)
darcs-hash:20071007185915-78224-5dc94fbbbc960a853654321317e2b8ba54d8be2a.gz
Diffstat (limited to '')
| -rw-r--r-- | DirectoryPrompt.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/DirectoryPrompt.hs b/DirectoryPrompt.hs index 5ea4c36..b010d4f 100644 --- a/DirectoryPrompt.hs +++ b/DirectoryPrompt.hs @@ -18,8 +18,6 @@ module XMonadContrib.DirectoryPrompt ( directoryPrompt ) where -import Data.Maybe(fromMaybe) - import XMonad import XMonadContrib.XPrompt import XMonadContrib.Dmenu ( runProcessWithInput ) @@ -36,7 +34,7 @@ directoryPrompt :: XPConfig -> String -> (String -> X ()) -> X () directoryPrompt c prom job = mkXPrompt (Dir prom) c getDirCompl job getDirCompl :: String -> IO [String] -getDirCompl s = (filter notboring . lines . fromMaybe "") `fmap` +getDirCompl s = (filter notboring . lines) `fmap` runProcessWithInput "/bin/bash" [] ("compgen -A directory " ++ s ++ "\n") notboring :: String -> Bool |