From 1ba9501bf5dff4267b6c55d7698f84e9d2792cda Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 6 Jul 2021 12:26:14 -0400
Subject: [PATCH] ENH update theme colors

---
 bin/xmonad.hs                        | 2 +-
 lib/XMonad/Internal/Command/DMenu.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index e7e5e43..f1a0964 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -315,7 +315,7 @@ logXinerama h = withWindowSet $ \ws -> io
       $ W.workspace
       $ W.current ws
     hilightBgColor = "#B4A6FF"
-    hilightFgColor = T.blend' 0.5 hilightBgColor T.fgColor
+    hilightFgColor = T.blend' 0.4 hilightBgColor T.fgColor
     fmtTags ws t = if t == W.currentTag ws
       then xmobarColor T.fgColor hilightBgColor t
       else t
diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs
index 35ee1f1..b9c9254 100644
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/lib/XMonad/Internal/Command/DMenu.hs
@@ -87,7 +87,7 @@ runDMenuShowKeys kbs = runIfInstalled [exe myDmenuCmd] $ io $ do
   forM_ h $ \h' -> hPutStr h' (unlines $ showKm kbs) >> hClose h'
   where
     cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"]
-      ++ themeArgs "#a200ff" ++ myDmenuMatchingArgs
+      ++ themeArgs "#3399FF" ++ myDmenuMatchingArgs
 
 runCmdMenu :: IO MaybeX
 runCmdMenu = spawnDmenuCmd ["-show", "run"]