mirror of
https://codeberg.org/frosty/dotfiles.git
synced 2024-09-19 19:57:08 -04:00
25 lines
781 B
Haskell
25 lines
781 B
Haskell
|
import Xmobar
|
||
|
|
||
|
config :: Config
|
||
|
config =
|
||
|
defaultConfig
|
||
|
{ font = "Terminus 8",
|
||
|
textOffset = 0,
|
||
|
bgColor = "#121212",
|
||
|
fgColor = "#cccccc",
|
||
|
position = Top,
|
||
|
template = " %XMonadLog% }{ \57958 %cpu% <fc=#777777>|</fc> \61381 %memory% <fc=#777777>|</fc> %load% <fc=#777777>|</fc> %battery% <fc=#777777>|</fc> <fc=#f7e83b>%date%</fc> ",
|
||
|
commands =
|
||
|
[ Run XMonadLog,
|
||
|
Run $ PipeReader "/tmp/pipe-volume" "volume",
|
||
|
Run $ Com "monitors" ["battery"] "battery" 3600,
|
||
|
Run $ Com "monitors" ["cpu"] "cpu" 50,
|
||
|
Run $ Com "monitors" ["memory"] "memory" 50,
|
||
|
Run $ Com "monitors" ["load"] "load" 100,
|
||
|
Run $ Date "%m/%d/%Y %H:%M:%S" "date" 10
|
||
|
]
|
||
|
}
|
||
|
|
||
|
main :: IO ()
|
||
|
main = xmobar config
|