diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /DirectoryPrompt.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'DirectoryPrompt.hs')
-rw-r--r-- | DirectoryPrompt.hs | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/DirectoryPrompt.hs b/DirectoryPrompt.hs deleted file mode 100644 index a8d58f8..0000000 --- a/DirectoryPrompt.hs +++ /dev/null @@ -1,43 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.DirectoryPrompt --- Copyright : (C) 2007 Andrea Rossato, David Roundy --- License : BSD3 --- --- Maintainer : droundy@darcs.net --- Stability : unstable --- Portability : unportable --- --- A directory prompt for XMonad --- ------------------------------------------------------------------------------ - -module XMonadContrib.DirectoryPrompt ( - -- * Usage - -- $usage - directoryPrompt - ) where - -import XMonad -import XMonadContrib.XPrompt -import XMonadContrib.Run ( runProcessWithInput ) - --- $usage --- For an example usage see "XMonadContrib.WorkspaceDir" - -data Dir = Dir String - -instance XPrompt Dir where - showXPrompt (Dir x) = x - -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) `fmap` - runProcessWithInput "/bin/bash" [] ("compgen -A directory " ++ s ++ "\n") - -notboring :: String -> Bool -notboring ('.':'.':_) = True -notboring ('.':_) = False -notboring _ = True |