myLayoutHook = onWorkspace "2:emacs" full $ onWorkspace "3:net" full $ standartLayouts
where
standartLayouts = avoidStruts $ (tiled ||| grid ||| cross ||| full)
tiled = Tall (1) (1/2) (5/100)
grid = Grid
cross = simpleCross
full = Full
...
, layoutHook = smartBorders $ myLayoutHook
скрин этого безобразия.layoutHook от сюда держит нормальную ширину.
---
Как увеличить ширину(до 50%) главного окна?