From cf3e8ae0fae27afe5de455f3b6c46094a767204b Mon Sep 17 00:00:00 2001
From: cardboard42 <cardboard42@gmail.com>
Date: Sat, 27 Oct 2007 03:48:11 +0200
Subject: Added xmonadPromptC

I added xmonadPromptC which takes a user defined list of commands as in Command.runCommand

darcs-hash:20071027014811-7dfdc-72cee3fda3c64db2749b6ab3615856bde0122d2d.gz
---
 XMonadPrompt.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'XMonadPrompt.hs')

diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
index f2a7019..52a9f6d 100644
--- a/XMonadPrompt.hs
+++ b/XMonadPrompt.hs
@@ -15,7 +15,8 @@
 module XMonadContrib.XMonadPrompt (
                              -- * Usage
                              -- $usage
-                             xmonadPrompt
+                             xmonadPrompt,
+			     xmonadPromptC
                               ) where
 
 import XMonad
@@ -45,3 +46,7 @@ instance XPrompt XMonad where
 
 xmonadPrompt :: XPConfig -> X ()
 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'
-- 
cgit v1.2.3