Исправление Hoodoo, (текущая версия) :
Я даже ухитрялся yabar прикрутить.
Минус - некликабельные воркспейсы. Можно сделать xmobar для отображения воркспейсов, а остальную красоту добить yabar.
xmonad:
...
yabarPP :: PP
yabarPP = defaultPP { ppSep = " | "
, ppOrder = \(ws:_:t:_) -> [ws,t]
}
...
main = do
yabarsock <- spawnPipe "socat unix-listen:/tmp/xmonad-yabar.sock,fork,reuseaddr stdio"
xmonad $ ewmh $ pagerHints $ def
{ terminal = myTerminal
, modMask = myModMask
...
, logHook yabarsock wsloggersock = dynamicLogWithPP yabarPP { ppOutput = hPutStrLn yabarsock }
...
yabar:
block-list: ["workspaces", "ya_date", "ya_brightness", "ya_batt" ];
...
workspaces: {
exec: "socat unix-connect:/tmp/xmonad-yabar.sock stdio";
type: "persist";
align: "left";
fixed-size: 300;
background-color-rgb:0x282f39;
underline-color-rgb:0xECD078;
justify: "left";
}
Исходная версия Hoodoo, :
Я даже ухитрялся yabar прикрутить.
Минус - некликабельные воркспейсы. Можно сделать xmobar для отображения воркспейсов, а остальную красоту добить yabar.
xmonad:
...
yabarPP :: PP
yabarPP = defaultPP { ppSep = " | "
, ppOrder = \(ws:_:t:_) -> [ws,t]
}
...
main = do
yabarsock <- spawnPipe "socat unix-listen:/tmp/xmonad-yabar.sock,fork,reuseaddr stdio"
xmonad $ ewmh $ pagerHints $ def
{ terminal = myTerminal
, modMask = myModMask
...
, logHook yabarsock wsloggersock = dynamicLogWithPP yabarPP { ppOutput = hPutStrLn yabarsock }
...
yabar:
block-list: ["workspaces", "ya_date", "ya_brightness", "ya_batt" ];
...
workspaces: {
exec: "socat unix-connect:/tmp/xmonad-yabar.sock stdio";
type: "persist";
align: "left";
fixed-size: 300;
background-color-rgb:0x282f39;
underline-color-rgb:0xECD078;
justify: "left";
}