From 32bb8aa154d11d6f40b8d33c0c69613ed8d5a4ad Mon Sep 17 00:00:00 2001 From: Jason Creighton Date: Mon, 21 May 2007 23:39:47 +0000 Subject: [PATCH] updated Dmenu.hs to work with zipper StackSet --- Dmenu.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Dmenu.hs b/Dmenu.hs index 879d9edc..ce27029d 100644 --- a/Dmenu.hs +++ b/Dmenu.hs @@ -5,8 +5,6 @@ import qualified StackSet as W import System.Process import System.IO import Control.Monad.State -import Data.Maybe -import qualified Data.Map as M runProcessWithInput :: FilePath -> [String] -> String -> IO String runProcessWithInput cmd args input = do @@ -24,8 +22,7 @@ runProcessWithInput cmd args input = do -- http://www.jcreigh.com/dmenu/dmenu-2.8-xinerama.patch dmenuXinerama :: [String] -> X String dmenuXinerama opts = do - ws <- gets windowset - let curscreen = fromIntegral $ fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws)) :: Int + curscreen <- (fromIntegral . W.screen . W.current) `liftM` gets windowset :: X Int io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) dmenu :: [String] -> X String