From 2bb460e767afbc500f991d193a712d4339cd1fe9 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 24 Nov 2007 13:52:02 +0100
Subject: DynamicLog: added a dynamicLogXmobar

darcs-hash:20071124125202-32816-8d745b2d6075b8d86207f04fd5fbd54b3a7d7bd8.gz
---
 XMonad/Hooks/DynamicLog.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'XMonad/Hooks/DynamicLog.hs')

diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 1ec0dc7..c93b0e1 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 "(" ")"
+                               }
-- 
cgit v1.2.3