From a28e13dedfa16234314f4a4c8efe98f3cf5cf914 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sun, 1 Apr 2007 03:27:12 +0200
Subject: "dmenu" operation to spawn dmenu only on the current screen (for
 Xinerama)

This requires a dmenu that will accept -x and -w. Currently, This means
applying this patch: http://www.jcreigh.com/dmenu/position-options.patch (I'm
trying to see if I can get this into dmenu upstream; haven't heard anything
back yet.)

darcs-hash:20070401012712-b9aa7-00f28388a705814f8e542e8b25b1b41922e3cc6c.gz
---
 Operations.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Operations.hs b/Operations.hs
index 4e2ae49..bd73fc4 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -343,3 +343,14 @@ restart = do
     prog <- getProgName
     args <- getArgs
     executeFile prog True args Nothing
+
+-- | Starts dmenu on the current screen. (Requires patches to dmenu for the -x
+-- and -w options.)
+dmenu :: X ()
+dmenu = do
+    xinesc <- gets xineScreens
+    ws     <- gets workspace
+    ws2sc  <- gets wsOnScreen
+    let curscreen = fromMaybe 0 (M.lookup (W.current ws) ws2sc)
+        sc = xinesc !! curscreen
+    spawn $ "exe=`dmenu_path | dmenu -x " ++ (show $ rect_x sc) ++ " -w " ++ (show $ rect_width sc) ++ "` && exec $exe"
-- 
cgit v1.2.3