From 5aedd73cbcce6fbd41592eae0f5a29a31ec83316 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Tue, 22 May 2007 01:39:47 +0200
Subject: updated Dmenu.hs to work with zipper StackSet

darcs-hash:20070521233947-b9aa7-0fb9e47e7c03169446e74896be436405befe5c32.gz
---
 Dmenu.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Dmenu.hs')

diff --git a/Dmenu.hs b/Dmenu.hs
index 879d9ed..ce27029 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
-- 
cgit v1.2.3