diff options
| author | jao <jao@gnu.org> | 2022-04-16 01:32:48 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-04-16 01:32:48 +0100 |
| commit | 0c9f43cbd97617be3d9f82391b2b58398b837b86 (patch) | |
| tree | fbdca5d52801766e0c4143b134406cef5bdd8a74 /src/lib | |
| parent | e3c13e5350291f43c94a1ad3dd323cd50b9438f9 (diff) | |
| download | xmobar-config-0c9f43cbd97617be3d9f82391b2b58398b837b86.tar.gz xmobar-config-0c9f43cbd97617be3d9f82391b2b58398b837b86.tar.bz2 | |
wee tweaks
Diffstat (limited to 'src/lib')
| -rw-r--r-- | src/lib/Config.hs | 2 | ||||
| -rw-r--r-- | src/lib/Monitors.hs | 11 |
2 files changed, 10 insertions, 3 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 22b077e..1840755 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -80,7 +80,7 @@ darkPalette = Palette { pNormal = zenburnFg palette :: IO Palette palette = do light <- lightTheme - wm <- lookupEnv "WM" + wm <- lookupEnv "wm" let p = if light then lightPalette else darkPalette return $ p {pWm = wm} diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs index 32e9acb..82e2e48 100644 --- a/src/lib/Monitors.hs +++ b/src/lib/Monitors.hs @@ -106,7 +106,8 @@ weather' tmp st p = , ("light snow", fn 3 "🌨") , ("snow", fn 3 "❄") ] - (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""]) + (mkArgs p ["-t", tmp , "-L","10", "-H", "25" , "-T", "25", "-E", ".."] + ["-w", ""]) 18000 weather = weather' "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)" @@ -173,6 +174,10 @@ coreTemp p = MultiCoreTemp (p <~> ["-t", "<avg>° <max>°" , "-L", "50", "-H", "75", "-d", "0"]) 50 +load p = + Load (p <~> ["-t" , "<load1> <load5> <load15>", "-L", "1", "-H", "3", "-d", "2"]) + 300 + diskU p = DiskU [("/", "<used>") , ("/media/sda", " s <used>")] (p <~> ["-L", "20", "-H", "70", "-m", "1", "-p", "3"]) @@ -226,7 +231,9 @@ kbd p = Kbd [("us", ""), ("us(intl)", kbi pHigh)] -- kbi pDim brightness = Brightness ["--", "-D", "intel_backlight"] 10 brightness' = Brightness ["--", "-D", "amdgpu_bl0", "-C", "brightness"] 10 -memory = Memory ["-t","<available> M", "-p", "2", "-W", "7"] 20 +memory = Memory [ "-t" ,"<used>:<available>" + , "-p", "2", "-W", "4","-d", "1" + , "--", "--scale", "1024"] 20 netdev name icon = Network name ["-t", "<up>", "-x", "", "--", "--up", icon] 20 -- fn 2 "🔐 " |