LINUX.ORG.RU

История изменений

Исправление zinfandel, (текущая версия) :

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar"
        xmonad $ ewmh defaultConfig
                { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
                , layoutHook = avoidStruts $ layoutHook defaultConfig
                , logHook = dynamicLogWithPP xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "green" "" . shorten 50
                        }
                }

Вроде должно работать. Сейчас go компилятор поставлю и протестирую.

Исходная версия zinfandel, :

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar"
        xmonad $ ewmh defaultConfig
                { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
                , layoutHook = avoidStruts $ layoutHook defaultConfig
                , logHook = dynamicLogWithPP xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "green" "" . shorten 50
                        }
                }