supposedly add xmobar workspaces
This commit is contained in:
parent
73ca5c6390
commit
9bedbb05cb
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue