load icons

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