From 6b594ef5f2e364448de0c11b5ac0535cf47f90f1 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 5 Mar 2022 01:03:50 +0000
Subject: capture window manager in palette

---
 src/lib/Config.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index d9a3084..22b077e 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -21,6 +21,7 @@ data Palette = Palette { pNormal :: String
                        , pAlpha :: Int
                        , pIconRoot :: String
                        , pIsLight :: Bool
+                       , pWm :: Maybe String
                        }
 
 fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>"
@@ -44,6 +45,7 @@ lightPalette = Palette { pNormal = "#000000"
                        , pAlpha = 229
                        , pIconRoot = icons "light"
                        , pIsLight = True
+                       , pWm = Nothing
                        }
 
 zenburnRed = "#CC9393"
@@ -72,12 +74,15 @@ darkPalette = Palette { pNormal = zenburnFg
                       , pAlpha = 255
                       , pIconRoot = icons "dark"
                       , pIsLight = False
+                      , pWm = Nothing
                       }
 
 palette :: IO Palette
 palette = do
   light <- lightTheme
-  if light then return lightPalette else return darkPalette
+  wm <- lookupEnv "WM"
+  let p = if light then lightPalette else darkPalette
+  return $ p {pWm = wm}
 
 baseConfig :: Palette -> Config
 baseConfig p = defaultConfig {
-- 
cgit v1.2.3