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

Added xmonadPromptC

Browse Source 
I added xmonadPromptC which takes a user defined list of commands as in Command.runCommand
This commit is contained in:
cardboard42
2007-10-27 01:48:11 +00:00
parent 6d147212f7
commit 323040000f
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonadPrompt.hs
View File

@@ -15,7 +15,8 @@
module XMonadContrib.XMonadPrompt ( module XMonadContrib.XMonadPrompt (
-- * Usage -- * Usage
-- $usage -- $usage
xmonadPrompt xmonadPrompt,
xmonadPromptC
) where ) where
import XMonad import XMonad
@@ -45,3 +46,7 @@ instance XPrompt XMonad where
xmonadPrompt :: XPConfig -> X () xmonadPrompt :: XPConfig -> X ()
xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand' xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'
-- xmonad prompt with custom command list
xmonadPromptC :: [(String, X ())] -> XPConfig -> X ()
xmonadPromptC commands c = mkXPrompt XMonad c (mkComplFunFromList (map fst commands)) runCommand'