diff options
Diffstat (limited to 'src/lib')
| -rw-r--r-- | src/lib/Config.hs | 7 | ||||
| -rw-r--r-- | src/lib/Monitors.hs | 7 |
2 files changed, 13 insertions, 1 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs index 6493bd7..58108f1 100644 --- a/src/lib/Config.hs +++ b/src/lib/Config.hs @@ -1,4 +1,5 @@ -module Config (Palette(..), baseConfig, palette, (<~>), defaultHeight) where +module Config (Palette(..), baseConfig, palette, (<~>), mkArgs, defaultHeight) + where import System.Environment (lookupEnv) @@ -68,6 +69,7 @@ baseConfig p = defaultConfig { , persistent = True , sepChar = "|" , alignSep = "{}" + , iconRoot = "/home/jao/.xmobar/icons" } (<~>) :: Palette -> [String] -> [String] @@ -77,3 +79,6 @@ baseConfig p = defaultConfig { , "--high", (pHigh p) ] ] + +mkArgs :: Palette -> [String] -> [String] -> [String] +mkArgs p args extra = concat [(p <~> args), ["--"], extra] diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs index 3c35488..1d47c5f 100644 --- a/src/lib/Monitors.hs +++ b/src/lib/Monitors.hs @@ -53,6 +53,13 @@ multiCPU p = MultiCpu (p <~> ["-t", "<autototal>" , "-c", " " , "-L", "30", "-H", "70" , "-p", "3", "-a", "l"]) 10 +cpuBars p = MultiCpu (mkArgs p + ["--template" , " <autoipat> <total>%" + , "-L", "50", "--H", "85"] + ["--fallback-icon-pattern", "<icon=load_%%.xpm/>" + , "--contiguous-icons"]) + 10 + cpuFreq p = CpuFreq (p <~> ["-t" , "<cpu0> <cpu1> <cpu2> <cpu3>" , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50 |