From 97b8a0aefc8c5c59a9ce4eecba942cc013401dc2 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 24 Nov 2007 12:52:02 +0000
Subject: [PATCH] DynamicLog: added a dynamicLogXmobar

---
 XMonad/Hooks/DynamicLog.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 1ec0dc74..c93b0e12 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -23,6 +23,7 @@ module XMonad.Hooks.DynamicLog (
     -- $usage 
     dynamicLog,
     dynamicLogDzen,
+    dynamicLogXmobar,
     dynamicLogWithPP,
     dynamicLogXinerama,
     dzen,
@@ -249,3 +250,11 @@ sjanssenPP :: PP
 sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000"
                        , ppTitle = xmobarColor "#00ee00" "" . shorten 80
                        }
+
+-- | These are good defaults to be used with the xmobar status bar
+dynamicLogXmobar :: X ()
+dynamicLogXmobar = 
+    dynamicLogWithPP defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
+                               , ppTitle   = xmobarColor "green"  "" . shorten 40
+                               , ppVisible = wrap "(" ")"
+                               }