import Xmobar green, red, blue, blue2, purple, yellow, orange, lowWhite, white :: String green = "#b8bb26" red = "#fb4934" blue = "#83a598" blue2 = "#458588" purple = "#d3869b" yellow = "#fabd2f" orange = "#fe8019" lowWhite = "#a89984" white = "#ebdbb2" config :: Config config = defaultConfig { overrideRedirect = False , font = "xft:JetBrains Mono NF:style=medium:size=10" , bgColor = "#3c3836" , fgColor = "#ebdbb2" , position = Top , commands = [ Run $ Cpu ["--template", "\63521 %" , "-L", "30" , "-H", "70" , "--high", red , "--normal", yellow ] 10 , Run $ Alsa "default" "Master" [ "--template", "墳 " , "--suffix", "True" , "--" , "--on", "" , "--off", "/mute" , "-c", red ] , Run $ Memory ["--template", "\57958 %" , "--High", "60" , "--high", orange ] 10 , Run $ Swap ["--template", concat ["[%]"] , "--High", "0" , "--high", orange ] 10 , Run $ Date (concat ["\62956 %a %D %I:%M %p"]) "date" 10 , Run $ DynNetwork [ "--template", (concat ["\62722 : kBtx kBrx"]) , "--Low", "5000" -- units: B/s , "--High", "100000" -- units: B/s , "--low", green , "--normal", orange , "--high", red ] 10 , Run $ Battery [ "--template", "\62840 " , "--Low", "20" -- units: % , "--High", "80" -- units: % , "--low", red , "--normal", green , "--high", blue , "--" -- battery specific options -- discharging status , "-o", "% ()" -- AC "on" status , "-O", "+%" -- charged status , "-i", "Charged" ] 50 , Run $ Com "brightness" [] "" 10 , Run XMonadLog ] , sepChar = "%" , alignSep = "}{" , template = " %XMonadLog% }{%alsa:default:Master%|\62941 %brightness%|%battery%|%dynnetwork%|%cpu%|%memory%%swap%|%date% " } main :: IO() main = xmobar config