From cc52df1bfa6888e169f76c447230a466227d796c Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Wed, 19 Nov 2008 22:31:22 +0100
Subject: Prompt.hs: +greenXPConfig and amberXPConfig

Ignore-this: 95ac7dbe9c8fe3618135966f251f4fc6

darcs-hash:20081119213122-f7719-31fa5831737dbc6ffcbd34cbb3035d997b74183d.gz
---
 XMonad/Prompt.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index f94e69a..b9dc42c 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -18,7 +18,9 @@ module XMonad.Prompt
       -- $usage
       mkXPrompt
     , mkXPromptWithReturn
+    , amberXPConfig
     , defaultXPConfig
+    , greenXPConfig
     , XPType (..)
     , XPPosition (..)
     , XPConfig (..)
@@ -174,7 +176,7 @@ data XPPosition = Top
                 | Bottom
                   deriving (Show,Read)
 
-defaultXPConfig :: XPConfig
+amberXPConfig, defaultXPConfig, greenXPConfig :: XPConfig
 defaultXPConfig =
     XPC { font              = "-misc-fixed-*-*-*-*-12-*-*-*-*-*-*-*"
         , bgColor           = "grey22"
@@ -189,8 +191,9 @@ defaultXPConfig =
         , historyFilter     = id
         , defaultText       = []
         , autoComplete      = Nothing
-        , showCompletionOnTab = False
-        }
+        , showCompletionOnTab = False }
+greenXPConfig = defaultXPConfig { fgColor = "green", bgColor = "black" }
+amberXPConfig = defaultXPConfig { fgColor = "#ca8f2d", bgColor = "black", fgHLight = "#eaaf4c" }
 
 type ComplFunction = String -> IO [String]
 
-- 
cgit v1.2.3