xmonad: insert new windows below

This commit is contained in:
Primrose 2024-10-30 18:06:55 +01:00
parent c89ba584e0
commit 41faa59771
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -30,6 +30,7 @@ import XMonad.Hooks.StatusBar (defToggleStrutsKey,
dynamicEasySBs) dynamicEasySBs)
import XMonad.Hooks.StatusBar.PP (PP (ppCurrent, ppHiddenNoWindows, ppSep), import XMonad.Hooks.StatusBar.PP (PP (ppCurrent, ppHiddenNoWindows, ppSep),
filterOutWsPP, wrap, xmobarColor) filterOutWsPP, wrap, xmobarColor)
import XMonad.Hooks.InsertPosition (insertPosition, Focus(Newer), Position(Below))
import Graphics.X11.ExtraTypes.XF86 (xF86XK_AudioLowerVolume, import Graphics.X11.ExtraTypes.XF86 (xF86XK_AudioLowerVolume,
@ -140,6 +141,7 @@ myManageHook =
, className =? "thunderbird" --> doShift "CHAT" , className =? "thunderbird" --> doShift "CHAT"
, className =? "Mattermost" --> doShift "CHAT" , className =? "Mattermost" --> doShift "CHAT"
] ]
<+> insertPosition Below Newer
<+> namedScratchpadManageHook myScratchpads <+> namedScratchpadManageHook myScratchpads
myScratchpads = myScratchpads =