aboutsummaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Operations.hs10
1 files changed, 0 insertions, 10 deletions
diff --git a/Operations.hs b/Operations.hs
index 01585e4..f2576b1 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -253,13 +253,3 @@ 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
- XState { xineScreens = xinesc, workspace = ws } <- get
- let curscreen = fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws))
- sc = xinesc !! curscreen
- spawn $ concat [ "exe=`dmenu_path | dmenu -x ", show (rect_x sc)
- , " -w " , show (rect_width sc) , "` && exec $exe" ]