sercanto/rcfiles
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

xmonad: switched to polybar

Browse source
This commit is contained in:
Serĉanto de Scio 2023-08-26 21:51:20 +10:00
parent b8aae88553
commit 2de61cfd7f
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
.xmonad/xmonad.hs
View file

@ -29,7 +29,7 @@ main =
. ewmh . ewmh
. withNavigation2DConfig myNav2DConf . withNavigation2DConfig myNav2DConf
. (`additionalKeysP` myKeybinds) . (`additionalKeysP` myKeybinds)
. withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey . withEasySB (statusBarProp "polybar" (pure myPolybarPP)) defToggleStrutsKey
$ myConfig $ myConfig
-- myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full)) -- myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full))
@ -52,11 +52,11 @@ myStartupHook = do
spawnOnce myScreenLockCmd spawnOnce myScreenLockCmd
------------ ------------
-- xmobar -- -- polybar --
------------ ------------
myXmobarPP :: PP myPolybarPP :: PP
myXmobarPP = myPolybarPP =
def def
{ ppCurrent = wrap "" "" . xmobarBorder "Top" blue 2, { ppCurrent = wrap "" "" . xmobarBorder "Top" blue 2,
ppExtras = [logTitles formatFocused formatUnfocused], ppExtras = [logTitles formatFocused formatUnfocused],