From 62e159018a736787d94e0effc9ccb8c8b92b7546 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 12 Oct 2019 15:35:16 +0100
Subject: using dark/light iconRoot

---
 src/lib/Config.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

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]
-- 
cgit v1.2.3