From 323040000fb3469a58195c7f9fd145b9518739ed Mon Sep 17 00:00:00 2001
From: cardboard42 <cardboard42@gmail.com>
Date: Sat, 27 Oct 2007 01:48:11 +0000
Subject: [PATCH] Added xmonadPromptC

I added xmonadPromptC which takes a user defined list of commands as in Command.runCommand
---
 XMonadPrompt.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
index f2a70199..52a9f6d7 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'