From 5e25e35c8df01f0d41d831c53e1f72ac6a65f67e Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Thu, 18 Oct 2007 19:45:23 +0200
Subject: DynamicLog.hs: Add dzenColor

darcs-hash:20071018174523-b49f3-1fb1d59daf1b5d78e2f3d153570090940d335694.gz
---
 DynamicLog.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'DynamicLog.hs')

diff --git a/DynamicLog.hs b/DynamicLog.hs
index 793c4c8..8e7d188 100644
--- a/DynamicLog.hs
+++ b/DynamicLog.hs
@@ -29,7 +29,7 @@ module XMonadContrib.DynamicLog (
     pprWindowSetXinerama,
 
     PP(..), defaultPP, sjanssenPP,
-    wrap, xmobarColor, shorten
+    wrap, dzenColor, xmobarColor, shorten
   ) where
 
 -- 
@@ -137,7 +137,13 @@ shorten n xs | length xs < n = xs
 sepBy :: String -> [String] -> String
 sepBy sep = concat . intersperse sep . filter (not . null)
 
--- TODO dzenColor
+dzenColor :: String -> String -> String -> String
+dzenColor fg bg = wrap (fg1++bg1) (fg2++bg2)
+ where (fg1,fg2) | null fg = ("","")
+                 | otherwise = ("^fg(" ++ fg ++ ")","^fg()")
+       (bg1,bg2) | null bg = ("","")
+                 | otherwise = ("^bg(" ++ bg ++ ")","^bg()")
+
 xmobarColor :: String -> String -> String -> String
 xmobarColor fg bg = wrap t "</fc>"
  where t = concat ["<fc=", fg, if null bg then "" else "," ++ bg, ">"]
-- 
cgit v1.2.3