ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH change colors back

This commit is contained in:
Nathan Dwarshuis 2021-09-06 00:30:06 -04:00
parent 8d286791e7
commit 081959081a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/xmonad.hs
View File

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

2
lib/XMonad/Internal/Command/DMenu.hs
View File

@ -87,7 +87,7 @@ runDMenuShowKeys kbs = runIfInstalled [exe myDmenuCmd] $ io $ do
forM_ h $ \h' -> hPutStr h' (unlines $ showKm kbs) >> hClose h' forM_ h $ \h' -> hPutStr h' (unlines $ showKm kbs) >> hClose h'
where where
cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"] cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"]
++ themeArgs "#3399FF" ++ myDmenuMatchingArgs ++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs
runCmdMenu :: IO MaybeX runCmdMenu :: IO MaybeX
runCmdMenu = spawnDmenuCmd ["-show", "run"] runCmdMenu = spawnDmenuCmd ["-show", "run"]