diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 13:52:02 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 13:52:02 +0100 |
| commit | 2bb460e767afbc500f991d193a712d4339cd1fe9 (patch) | |
| tree | 0839938a182c0150ac539681d3915261a43f031a /XMonad/Hooks/DynamicLog.hs | |
| parent | eb322f0b8993fea56dd05124155ff1773fe5103b (diff) | |
| download | XMonadContrib-2bb460e767afbc500f991d193a712d4339cd1fe9.tar.gz XMonadContrib-2bb460e767afbc500f991d193a712d4339cd1fe9.tar.xz XMonadContrib-2bb460e767afbc500f991d193a712d4339cd1fe9.zip | |
DynamicLog: added a dynamicLogXmobar
darcs-hash:20071124125202-32816-8d745b2d6075b8d86207f04fd5fbd54b3a7d7bd8.gz
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 9 |
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 "(" ")" + } |