84 lines
3.3 KiB
Haskell
84 lines
3.3 KiB
Haskell
import Xmobar
|
|
|
|
green, red, blue, blue2, aqua, purple, yellow, orange, lowWhite, white :: String
|
|
green = "#b8bb26"
|
|
red = "#fb4934"
|
|
blue = "#83a598"
|
|
blue2 = "#458588"
|
|
purple = "#d3869b"
|
|
yellow = "#fabd2f"
|
|
orange = "#fe8019"
|
|
aqua = "#8ec07c"
|
|
lowWhite = "#a89984"
|
|
white = "#ebdbb2"
|
|
|
|
config :: Config
|
|
config =
|
|
defaultConfig
|
|
{ overrideRedirect = False
|
|
, font = "xft:JetBrains Mono NF Medium-10"
|
|
, bgColor = "#282828"
|
|
, fgColor = "#ebdbb2"
|
|
, position = Static { xpos=0, ypos=0, width=2256, height=23 }
|
|
, commands = [ Run $ Cpu ["--template", "\63521 <total>%"
|
|
, "-L", "30"
|
|
, "-H", "70"
|
|
, "--high", red
|
|
, "--normal", yellow
|
|
] 10
|
|
, Run $ CoreTemp [ "--template" , "\63687 <core0>°C"
|
|
, "--Low" , "50" -- units: °C
|
|
, "--High" , "80" -- units: °C
|
|
, "--low" , aqua
|
|
, "--normal" , orange
|
|
, "--high" , red
|
|
] 20
|
|
, Run $ Alsa "default" "Master"
|
|
[ "--template", "墳 <volume><status>"
|
|
, "--suffix", "True"
|
|
, "--"
|
|
, "--on", ""
|
|
, "--off", "/mute"
|
|
, "-c", red
|
|
]
|
|
, Run $ Memory ["--template", "\57958 <usedratio>%"
|
|
, "--High", "60"
|
|
, "--high", orange
|
|
] 10
|
|
, Run $ Swap ["--template", concat ["<fc=", lowWhite, ">[<usedratio>%]</fc>"]
|
|
, "--High", "0"
|
|
, "--high", orange
|
|
] 10
|
|
, Run $ Date (concat ["\62956 <fc=", purple, ">%a</fc> %D <fc=", blue2, ">%I:%M %p</fc>"]) "date" 10
|
|
, Run $ DynNetwork [ "--template", (concat ["\62722 <dev>: <tx>kB<fc=", lowWhite, ">tx</fc> <rx><fc=", white, ">kB</fc><fc=", lowWhite, ">rx</fc>"])
|
|
, "--Low", "5000" -- units: B/s
|
|
, "--High", "100000" -- units: B/s
|
|
, "--low", green
|
|
, "--normal", orange
|
|
, "--high", red
|
|
] 10
|
|
, Run $ Battery [ "--template", "\62840 <acstatus>"
|
|
, "--Low", "20" -- units: %
|
|
, "--High", "80" -- units: %
|
|
, "--low", red
|
|
, "--normal", green
|
|
, "--high", blue
|
|
|
|
, "--" -- battery specific options
|
|
-- discharging status
|
|
, "-o", "<left>% (<timeleft>)"
|
|
-- AC "on" status
|
|
, "-O", "<fc=#dAA520>+<left>%</fc>"
|
|
-- charged status
|
|
, "-i", "<fc=#006000>Charged</fc>"
|
|
] 50
|
|
, Run $ Com "brightness" [] "" 10
|
|
, Run XMonadLog
|
|
]
|
|
, sepChar = "%"
|
|
, alignSep = "}{"
|
|
, template = " %XMonadLog% }{%alsa:default:Master%|\62941 %brightness%|%battery%|%dynnetwork%|%cpu%|%coretemp%|%memory%%swap%|%date% "
|
|
}
|
|
|
|
main :: IO()
|
|
main = xmobar config
|