jacob/nix_config
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Change colors in xmobar

Browse Source
This commit is contained in:
Jacob Hinkle 2024-05-24 08:42:03 -04:00
parent a6b0c7264f
commit c0cbf36122
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
home/xmonad.hs
View File

@ -78,28 +78,29 @@ myXmobarPP = def
{ ppSep = magenta " • " { ppSep = magenta " • "
, ppTitleSanitize = xmobarStrip , ppTitleSanitize = xmobarStrip
, ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2 , ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2
, ppHidden = white . wrap " " "" , ppHidden = lightGreen . wrap " " ""
, ppHiddenNoWindows = lowWhite . wrap " " "" , ppHiddenNoWindows = gray . wrap " " ""
, ppUrgent = red . wrap (yellow "!") (yellow "!") , ppUrgent = red . wrap (yellow "!") (yellow "!")
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins] , ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
, ppExtras = [logTitles formatFocused formatUnfocused] , ppExtras = [logTitles formatFocused formatUnfocused]
} }
where where
formatFocused = wrap (white "[") (white "]") . magenta . ppWindow formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow formatUnfocused = wrap (gray "[") (gray "]") . blue . ppWindow
-- | Windows should have *some* title, which should not not exceed a -- | Windows should have *some* title, which should not not exceed a
-- sane length. -- sane length.
ppWindow :: String -> String ppWindow :: String -> String
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30 ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
blue, lowWhite, magenta, red, white, yellow :: String -> String blue, gray, magenta, lightGreen, red, white, yellow :: String -> String
magenta = xmobarColor "#ff79c6" "" magenta = xmobarColor "#ff79c6" ""
blue = xmobarColor "#bd93f9" "" lightGreen = xmobarColor "#bbffbb" ""
blue = xmobarColor "#bdbdf9" ""
white = xmobarColor "#f8f8f2" "" white = xmobarColor "#f8f8f2" ""
yellow = xmobarColor "#f1fa8c" "" yellow = xmobarColor "#f1fa8c" ""
red = xmobarColor "#ff5555" "" red = xmobarColor "#ff5555" ""
lowWhite = xmobarColor "#bbbbbb" "" gray = xmobarColor "#888888" ""
addlWorkspaces :: [String] addlWorkspaces :: [String]
addlWorkspaces = ["0", "-", "=", "i"] addlWorkspaces = ["0", "-", "=", "i"]