Improve xmobar design from xmonad log hook

This commit is contained in:
ItsDrike 2021-10-15 20:11:11 +02:00
parent a8f1442b43
commit 685b7fa387
No known key found for this signature in database
GPG key ID: FB8CA11A2CF3A843

View file

@ -347,13 +347,16 @@ myLogHook :: Handle -> Handle -> X ()
myLogHook xmproc0 xmproc1 = dynamicLogWithPP $ xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc0 x -- xmobar on monitor 1
>> hPutStrLn xmproc1 x -- xmobar on monitor 2
, ppCurrent = xmobarColor "#98be65" "" . wrap " [" "] " -- Current workspace
, ppVisible = xmobarColor "#98be65" "" . wrap " " " " . clickable -- Visible but not current workspace
, ppHidden = xmobarColor "#82AAFF" "" . wrap " *" " " . clickable -- Hidden workspaces
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . wrap " " " " . clickable -- Hidden workspaces (no windows)
, ppCurrent = xmobarColor "#98be65" "" -- Current workspace
. wrap "<box type=Bottom width=2 mb=2 color=#98be65>" "</box>" . clickable
, ppVisible = xmobarColor "#98be65" "" .clickable -- Visible but not current workspace
, ppHidden = xmobarColor "#82aaff" "" . clickable -- Hidden workspaces
, ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable -- Hidden workspaces (no windows)
, ppTitle = xmobarColor "#b3afc2" "" . shorten 60 -- Title of active window
, ppSep = "<fc=#666666> | </fc>" -- Separator character
, ppUrgent = xmobarColor "#C45500" "" . wrap " !" "! " -- Urgent workspace
, ppUrgent = xmobarColor "#c45500" "" . wrap "!" "!" -- Urgent workspace
, ppExtras = [windowCount] -- # of windows current workspace
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t] -- order of things in xmobar
}