sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ok

Browse source
This commit is contained in:
Sakooooo 2023-07-25 07:22:31 +03:00
parent 306bc366cf
commit d95a20634e
Signed by: sako
GPG key ID: 3FD715D87D7725E0
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
config/xmonad/xmonad.hs
View file

@ -260,9 +260,25 @@ myLogHook h = dynamicLogWithPP $ def {
myXmobarFormat = def {
ppCurrent = xmobarColor "black",
ppExtras = [],
ppHidden = xmobarColor "white" . wrap " " "",
ppHidden = white . wrap " " "",
ppOrder = \(ws:_) -> [ws]
}
where
formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow
-- | Windows should have *some* title, which should not not exceed a
-- sane length.
ppWindow :: String -> String
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 30
blue, lowWhite, magenta, red, white, yellow :: String -> String
magenta = xmobarColor "#ff79c6" ""
blue = xmobarColor "#bd93f9" ""
white = xmobarColor "#f8f8f2" ""
yellow = xmobarColor "#f1fa8c" ""
red = xmobarColor "#ff5555" ""
lowWhite = xmobarColor "#bbbbbb" ""
myStatusBar = statusBarProp "xmobar" (pure myXmobarFormat)
------------------------------------------------------------------------