1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
import Xmobar
config :: Config
config =
defaultConfig
{ overrideRedirect = False
, font = "xft:JetBrains Mono NF:style=medium:size=9"
, bgColor = "#3c3836"
, fgColor = "#ebdbb2"
, position = TopW L 120
, commands = [ Run $ Cpu
[ "-L", "30"
, "-H", "70"
, "--high" , "#fb4934"
, "--normal", "#fabd2f"
] 10
, Run $ Alsa "default" "Master"
[ "--template", "<volumestatus>"
, "--suffix" , "True"
, "--"
, "--on", ""
]
, Run $ Memory ["--template", "Mem: <usedratio>%"] 10
, Run $ Swap [] 10
, Run $ Date "%a %D <fc=#458588>%I:%M %p</fc>" "date" 10
, Run XMonadLog
]
, sepChar = "%"
, alignSep = "}{"
, template = "%XMonadLog% }{ %alsa:default:Master% | %cpu% | %memory% * %swap% | %date% "
}
main :: IO()
main = xmobar config
|
