1 files changed, 0 insertions, 45 deletions
diff --git a/WorkspacePrompt.hs b/WorkspacePrompt.hs
deleted file mode 100644
index 1087cf0..0000000
--- a/WorkspacePrompt.hs
+++ /dev/null
@@ -1,45 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.WorkspacePrompt
--- Copyright   :  (C) 2007 Andrea Rossato, David Roundy
--- License     :  BSD3
--- 
--- Maintainer  :  droundy@darcs.net
--- Stability   :  unstable
--- Portability :  unportable
---
--- A directory prompt for XMonad
---
------------------------------------------------------------------------------
-
-module XMonadContrib.WorkspacePrompt (
-                             -- * Usage
-                             -- $usage
-                             workspacePrompt
-                              ) where
-
-import Control.Monad.State ( gets )
-import Data.List ( sort )
-import XMonad hiding ( workspaces )
-import XMonadContrib.XPrompt
-import XMonad.StackSet ( workspaces, tag )
-
--- $usage
--- You can use this module with the following in your Config.hs file:
--- 
--- > import XMonadContrib.WorkspacePrompt
---
--- >   , ((modMask .|. shiftMask, xK_m     ), workspacePrompt myXPConfig (windows . W.shift))
-
-data Wor = Wor String
-
-instance XPrompt Wor where
-    showXPrompt (Wor x) = x
-
-workspacePrompt :: XPConfig -> (String -> X ()) -> X ()
-workspacePrompt c job = do ws <- gets (workspaces . windowset)
-                           let ts = sort $ map tag ws
-                           mkXPrompt (Wor "") c (mkCompl ts) job
-
-mkCompl :: [String] -> String -> IO [String]
-mkCompl l s = return $ filter (\x -> take (length s) x == s) l