ENH change colors back

bin/xmonad.hs

@@ -314,7 +314,7 @@ logXinerama h = withWindowSet $ \ws -> io
       $ W.stack
       $ W.workspace
       $ W.current ws
-    hilightBgColor = "#B4A6FF"
+    hilightBgColor = "#A6D3FF"
     hilightFgColor = T.blend' 0.4 hilightBgColor T.fgColor
     fmtTags ws t = if t == W.currentTag ws
       then xmobarColor T.fgColor hilightBgColor t

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 "#3399FF" ++ myDmenuMatchingArgs
+      ++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs
 
 runCmdMenu :: IO MaybeX
 runCmdMenu = spawnDmenuCmd ["-show", "run"]