twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 06:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Put dmenu in X too

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-03 05:37:27 +00:00
parent 0017932989
commit 5129e2f963
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Dmenu.hs
View File

@@ -27,6 +27,6 @@ dmenuXinerama opts = do
let curscreen = fromIntegral $ fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws)) :: Int let curscreen = fromIntegral $ fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws)) :: Int
io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts)
dmenu :: [String] -> IO String dmenu :: [String] -> X String
dmenu opts = runProcessWithInput "dmenu" [] (unlines opts) dmenu opts = io $ runProcessWithInput "dmenu" [] (unlines opts)