From 5b41f4664acf3ea786295e244b9524ef62b0be38 Mon Sep 17 00:00:00 2001 From: Bryson Steck Date: Fri, 13 Oct 2023 16:15:12 -0600 Subject: experimenting with xmonad/xmobar --- xmobar/xmobar.hs | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 xmobar/xmobar.hs (limited to 'xmobar') diff --git a/xmobar/xmobar.hs b/xmobar/xmobar.hs new file mode 100644 index 0000000..29eac0c --- /dev/null +++ b/xmobar/xmobar.hs @@ -0,0 +1,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", "" + , "--suffix" , "True" + , "--" + , "--on", "" + ] + , Run $ Memory ["--template", "Mem: %"] 10 + , Run $ Swap [] 10 + , Run $ Date "%a %D %I:%M %p" "date" 10 + , Run XMonadLog + ] + , sepChar = "%" + , alignSep = "}{" + , template = "%XMonadLog% }{ %alsa:default:Master% | %cpu% | %memory% * %swap% | %date% " + } + +main :: IO() +main = xmobar config -- cgit v1.2.3