From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 1 Nov 2007 21:10:59 +0100 Subject: Hierarchify darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz --- Dmenu.hs | 49 ------------------------------------------------- 1 file changed, 49 deletions(-) delete mode 100644 Dmenu.hs (limited to 'Dmenu.hs') diff --git a/Dmenu.hs b/Dmenu.hs deleted file mode 100644 index 51cca67..0000000 --- a/Dmenu.hs +++ /dev/null @@ -1,49 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.Dmenu --- Copyright : (c) Spencer Janssen --- License : BSD-style (see LICENSE) --- --- Maintainer : Spencer Janssen --- Stability : unstable --- Portability : unportable --- --- A convenient binding to dmenu. --- --- Requires the process-1.0 package --- ------------------------------------------------------------------------------ - -module XMonadContrib.Dmenu ( - -- * Usage - -- $usage - dmenu, dmenuXinerama, dmenuMap - ) where - -import XMonad -import qualified XMonad.StackSet as W -import qualified Data.Map as M -import Control.Monad.State -import XMonadContrib.Run - --- $usage --- You can use this module with the following in your Config.hs file: --- --- > import XMonadContrib.Dmenu - --- %import XMonadContrib.Dmenu - --- | Starts dmenu on the current screen. Requires this patch to dmenu: --- -dmenuXinerama :: [String] -> X String -dmenuXinerama opts = do - curscreen <- (fromIntegral . W.screen . W.current) `liftM` gets windowset :: X Int - io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) - -dmenu :: [String] -> X String -dmenu opts = io $ runProcessWithInput "dmenu" [] (unlines opts) - -dmenuMap :: M.Map String a -> X (Maybe a) -dmenuMap selectionMap = do - selection <- dmenu (M.keys selectionMap) - return $ M.lookup selection selectionMap -- cgit v1.2.3