aboutsummaryrefslogtreecommitdiffstats
path: root/Dmenu.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-05-21 06:21:18 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-05-21 06:21:18 +0200
commitcd75c27ff2e3b20d3adf8dcc1de9894873314c04 (patch)
treef64c9d3105a391f1c654e635b22af1e2a9e10f21 /Dmenu.hs
parentce00db454082a51ec95c817e97757e2e56f4ef8e (diff)
downloadXMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.gz
XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.tar.xz
XMonadContrib-cd75c27ff2e3b20d3adf8dcc1de9894873314c04.zip
Fixes for windowset -> workspace rename
darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz
Diffstat (limited to 'Dmenu.hs')
-rw-r--r--Dmenu.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Dmenu.hs b/Dmenu.hs
index c27fbe2..879d9ed 100644
--- a/Dmenu.hs
+++ b/Dmenu.hs
@@ -24,7 +24,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 workspace
+ ws <- gets windowset
let curscreen = fromIntegral $ fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws)) :: Int
io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts)