summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--src/lib/Config.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 58108f1..8f05a88 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -16,6 +16,7 @@ data Palette = Palette { pNormal :: String
, pForeground :: String
, pBackground :: String
, pAlpha :: Int
+ , pIconRoot :: String
}
lightTheme :: IO Bool
@@ -29,7 +30,8 @@ lightPalette = Palette { pNormal = "black"
, pBorder = "grey80"
, pForeground = "#000000"
, pBackground = "white"
- , pAlpha = 0
+ , pAlpha = 255
+ , pIconRoot = "/home/jao/.xmobar/icons/light"
}
darkPalette :: Palette
@@ -42,6 +44,7 @@ darkPalette = Palette { pNormal = "grey60"
, pForeground = "grey60"
, pBackground = "black"
, pAlpha = 0
+ , pIconRoot = "/home/jao/.xmobar/icons/dark"
}
palette :: IO Palette
@@ -69,7 +72,7 @@ baseConfig p = defaultConfig {
, persistent = True
, sepChar = "|"
, alignSep = "{}"
- , iconRoot = "/home/jao/.xmobar/icons"
+ , iconRoot = (pIconRoot p)
}
(<~>) :: Palette -> [String] -> [String]