1 patch for repository http://code.haskell.org/XMonadContrib:
Previous version submitted here:
http://www.haskell.org/pipermail/xmonad/2012-March/012465.html
Description copied here for completion's sake:
The Xrandr calls requires X11 1.6.0 which also causes issues in other places
in the code. I can submit these separately, but since this is not really an
official submission, I'll leave them out so they don't distract from the meat
of the patch.
There is code from adamvo's xmonad.hs (getScreens and multiPP) as well.
There are still bugs, but this is to help get some testing and other eyes
looking at it. Specifically, not all of the bars work all the time. Currently
to solve the issue, I just restart XMonad until they're all there. I'm not
sure how to best ensure that things work.
For launching the status bars, here are my implementations:
myStatusBar :: DynamicStatusBar
myStatusBar (S id) = do
safeSpawn "xmobar" ["-x", idStr, "-C", "[ Run NamedXPropertyLog \"" ++ prop ++ "\" \"" ++ abbr ++ "\" ]"]
spawnPipe $ "xmonadpropwrite " ++ prop
where
abbr = "_XMONAD_LOG"
prop = "_XMONAD_LOG_" ++ idStr
idStr = show id
myStatusBarCleanup :: DynamicStatusBarCleanup
myStatusBarCleanup = safeSpawn "killall" ["xmobar"]
For this setup, a few other updates are required:
My Xrandr additions to the X11 package:
https://github.com/mathstuf/X11/tree/dev/xrandr-support
The -C option for xmobar, available here (the next branch there uses X11's
Xrandr support instead of the built-in stuff as well):
https://github.com/mathstuf/xmobar/tree/dev/add-incremental-config-option
My xmobarrc is:
Config { font = "xft:Inconsolata:pixelsize=9"
, border = NoBorder
, borderColor = "black"
, bgColor = "black"
, fgColor = "grey"
, position = TopW L 80
, lowerOnStart = True
, commands = [ Run Weather "KALB" ["-t","A: <tempC>°C","-L","15","-H","30","--normal","green","--high","red","--low","lightblue"] 36000
, Run MultiCpu ["-S","true","-t","<autototal>","-L","3","-H","40","--low","green","--normal","yellow","--high","red"] 25
, Run Memory ["-S","true","-t","<usedratio>","-L","20","-H","40","--low","green","--normal","yellow","--high","red"] 25
, Run Battery ["-S","true","-t","<left>","-L","30","-H","75","--high","green","--normal","yellow","--low", "red"] 100
, Run Date "%a %b %_d" "date" 36000
, Run Date "%H:%M" "time" 100
, Run Mail [ ("k","~/.local/share/mail/kitware/INBOX")
, ("g","~/.local/share/mail/gmail/INBOX")
, ("b","~/.local/share/mail/brewhouse/INBOX")
] "Mail"
]
, sepChar = "%"
, alignSep = "}{"
, template = "%_XMONAD_LOG% }{ %multicpu% | %memory% | %battery% | %Mail% | %KALB% |