From b22432a8b32e40f0b4b8e86f5d73e01e53314e41 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sun, 1 Apr 2007 01:27:12 +0000
Subject: [PATCH] "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.)
---
 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"