twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-17 21:33:46 -07:00
Code Issues Packages Projects Releases Wiki Activity

DynamicLog: added a dynamicLogXmobar

Browse Source
This commit is contained in:
Andrea Rossato
2007-11-24 12:52:02 +00:00
parent 09faa86c16
commit 97b8a0aefc
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
XMonad/Hooks/DynamicLog.hs
View File

@@ -23,6 +23,7 @@ module XMonad.Hooks.DynamicLog (
-- $usage -- $usage
dynamicLog, dynamicLog,
dynamicLogDzen, dynamicLogDzen,
dynamicLogXmobar,
dynamicLogWithPP, dynamicLogWithPP,
dynamicLogXinerama, dynamicLogXinerama,
dzen, dzen,
@@ -249,3 +250,11 @@ sjanssenPP :: PP
sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000" sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000"
, ppTitle = xmobarColor "#00ee00" "" . shorten 80 , 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 "(" ")"
}