supposedly add xmobar workspaces

This commit is contained in:
Sakooooo 2023-07-23 22:16:51 +03:00
parent 73ca5c6390
commit 9bedbb05cb
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -19,7 +19,7 @@ import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.ManageDocks -- manage dock thingy xmobar hHAUISHFOAUISHDFUOIAS import XMonad.Hooks.ManageDocks -- manage dock thingy xmobar hHAUISHFOAUISHDFUOIAS
-- Extras -- Extras
import XMonad.Hooks.DynamicLog -- forgot what this was for lmao import XMonad.Hooks.DynamicLog -- supposed to be for xmobar
import XMonad.Util.SpawnOnce -- for startup items import XMonad.Util.SpawnOnce -- for startup items
import XMonad.Util.Run -- for xmobar startup import XMonad.Util.Run -- for xmobar startup
@ -264,7 +264,11 @@ myStartupHook = do
main = do main = do
h <- spawnPipe "xmobar" h <- spawnPipe "xmobar"
xmonad $ xmobarProp $ defaults { xmonad $ xmobarProp $ defaults {
layoutHook = avoidStruts $ layoutHOok def,
logHook = myLogHook h logHook = myLogHook h
manageHook = manageDocks <+> manageHook def
} }
-- A structure containing your configuration settings, overriding -- A structure containing your configuration settings, overriding