ItsDrike/dotfiles
1
0
Fork 0
mirror of https://github.com/ItsDrike/dotfiles.git synced 2025-10-29 23:26:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Improve xmobar design from xmonad log hook

Browse source
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
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
home/.config/xmonad/xmonad.hs
View file

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