aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks/DynamicLog.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
-rw-r--r--XMonad/Hooks/DynamicLog.hs9
1 files changed, 9 insertions, 0 deletions
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 "(" ")"
+ }