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
|
import Xmobar
import Config
import Monitors
-- <fn=1> 💡 </fn>
config p = (baseConfig p) {
position = TopSize C 100 defaultHeight
, textOffset = defaultHeight - 8
, textOffsets = [defaultHeight - 9]
, border = BottomB
, commands = [ Run (topProc p)
, Run (multiCPU p)
, Run (cpuFreq p)
, Run memory
, Run (diskU p)
, Run (diskIO p)
, Run (coreTemp p)
, Run brightness
, Run (kbd p)
, Run XMonadLog
, Run (batt p)
]
, template = " |bright| |memory| |top| <fn=1>|kbd|</fn>\
\{|XMonadLog|}\
\ |diskio| |disku| |cpufreq| |multicpu|\
\ |multicoretemp| |batt0| "
}
main :: IO ()
main =
palette >>= configFromArgs . config >>= xmobar
|
