ENH update theme colors
This commit is contained in:
parent
00d910bf22
commit
1ba9501bf5
|
@ -315,7 +315,7 @@ logXinerama h = withWindowSet $ \ws -> io
|
||||||
$ W.workspace
|
$ W.workspace
|
||||||
$ W.current ws
|
$ W.current ws
|
||||||
hilightBgColor = "#B4A6FF"
|
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
|
fmtTags ws t = if t == W.currentTag ws
|
||||||
then xmobarColor T.fgColor hilightBgColor t
|
then xmobarColor T.fgColor hilightBgColor t
|
||||||
else t
|
else t
|
||||||
|
|
|
@ -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 "#a200ff" ++ myDmenuMatchingArgs
|
++ themeArgs "#3399FF" ++ myDmenuMatchingArgs
|
||||||
|
|
||||||
runCmdMenu :: IO MaybeX
|
runCmdMenu :: IO MaybeX
|
||||||
runCmdMenu = spawnDmenuCmd ["-show", "run"]
|
runCmdMenu = spawnDmenuCmd ["-show", "run"]
|
||||||
|
|
Loading…
Reference in New Issue