summaryrefslogtreecommitdiffhomepage
path: root/src/Top.hs
blob: 24a3dc29674269dea3beb69df56676f131120002 (plain)
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