diff options
| author | Jason Creighton <jcreigh@gmail.com> | 2007-05-22 01:39:47 +0200 |
|---|---|---|
| committer | Jason Creighton <jcreigh@gmail.com> | 2007-05-22 01:39:47 +0200 |
| commit | 5aedd73cbcce6fbd41592eae0f5a29a31ec83316 (patch) | |
| tree | a1ce92b6b8b0cae4283f85b554cc7171b7c9c032 /Dmenu.hs | |
| parent | 5cbe8e9ae3bac65ef607942350c70af6a4226272 (diff) | |
| download | XMonadContrib-5aedd73cbcce6fbd41592eae0f5a29a31ec83316.tar.gz XMonadContrib-5aedd73cbcce6fbd41592eae0f5a29a31ec83316.tar.xz XMonadContrib-5aedd73cbcce6fbd41592eae0f5a29a31ec83316.zip | |
updated Dmenu.hs to work with zipper StackSet
darcs-hash:20070521233947-b9aa7-0fb9e47e7c03169446e74896be436405befe5c32.gz
Diffstat (limited to 'Dmenu.hs')
| -rw-r--r-- | Dmenu.hs | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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 |