История изменений
Исправление zinfandel, (текущая версия) :
Протестил. Работает. Буду пользоваться. Спасибо.
Кстати есть специальный прием для запуска xmobar без создания пайпа вручную.
В твоем конфиге это будет как-то так.
main = xmonad . ewmh =<< statusBar barExec myPP toggleStrutsKey defaultConfig
            { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
            , layoutHook = avoidStruts $ layoutHook defaultConfig
            }
	where
		barExec = "xmobar /home/user/.xmonad/xmobarrc"                        
		toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
		myPP = xmobarPP { ppOutput = hPutStrLn xmproc
                                , ppTitle = xmobarColor "green" "" . shorten 50
                                }
Исходная версия zinfandel, :
Протестил. Работает. Буду пользоваться. Спасибо.
Кстати есть специальный прием для запуска xmobar без создания пайпа вручную.
В твоем конфиге это будет как-то так.
main = xmonad . ewmh =<< statusBar barExec myPP toggleStrutsKey defaultConfig
            { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
            , layoutHook = avoidStruts $ layoutHook defaultConfig
            }
	where
		barExec = "xmobar /home/user/.xmonad/xmobarrc"                        
		toggleStrutsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b)
		myPP = xmobarPP { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "green" "" . shorten 50
                        }