vanadium/xmonad: remove redundant layout configuration

This commit is contained in:
Primrose 2026-01-06 21:32:52 +01:00
parent 1a33f45e18
commit e65e37d3a9
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -20,7 +20,6 @@ import XMonad.Layout.IfMax
import XMonad.Layout.Magnifier hiding (Toggle) import XMonad.Layout.Magnifier hiding (Toggle)
import qualified XMonad.Layout.Magnifier as Mag import qualified XMonad.Layout.Magnifier as Mag
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Reflect import XMonad.Layout.Reflect
import XMonad.Layout.Reflect.Message import XMonad.Layout.Reflect.Message
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
@ -72,9 +71,6 @@ main =
myLayout = myLayout =
avoidStruts avoidStruts
$ smartBorders $ smartBorders
$ onWorkspace researchWS (toggleLayouts (mag tallr) full)
$ onWorkspace chatWS (toggleLayouts (mag tallr) full)
$ onWorkspace multimediaWS (toggleLayouts (mag tallr) full)
$ toggleLayouts (mag tallr) full $ toggleLayouts (mag tallr) full
where where
mag = magnifierOff mag = magnifierOff
@ -400,9 +396,6 @@ altMask = mod1Mask
myWorkspaces :: [WorkspaceId] myWorkspaces :: [WorkspaceId]
myWorkspaces = map (:[]) $ take 8 greekLower myWorkspaces = map (:[]) $ take 8 greekLower
researchWS :: WorkspaceId
researchWS = myWorkspaces !! 2
chatWS :: WorkspaceId chatWS :: WorkspaceId
chatWS = myWorkspaces !! 3 chatWS = myWorkspaces !! 3