1 files changed, 6 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]