twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 14:11:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

add dmenuMap function

Browse Source
This commit is contained in:
Devin Mullins
2007-10-07 17:25:43 +00:00
parent be8baa8324
commit 87a35e799a
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Dmenu.hs
View File

@@ -15,12 +15,13 @@
module XMonadContrib.Dmenu ( module XMonadContrib.Dmenu (
-- * Usage -- * Usage
-- $usage -- $usage
dmenu, dmenuXinerama, dmenu, dmenuXinerama, dmenuMap,
runProcessWithInput runProcessWithInput
) where ) where
import XMonad import XMonad
import qualified StackSet as W import qualified StackSet as W
import qualified Data.Map as M
import System.Exit import System.Exit
import System.Process import System.Process
import System.IO import System.IO
@@ -58,3 +59,7 @@ dmenuXinerama opts = do
dmenu :: [String] -> X (Maybe String) dmenu :: [String] -> X (Maybe String)
dmenu opts = io $ runProcessWithInput "dmenu" [] (unlines opts) dmenu opts = io $ runProcessWithInput "dmenu" [] (unlines opts)
dmenuMap :: M.Map String a -> X (Maybe a)
dmenuMap selectionMap =
dmenu (M.keys selectionMap) >>= return . maybe Nothing (flip M.lookup selectionMap)