Я использую следующий макет XMonad.Layout.ThreeColumns
-----------------------------------
| | | |
| | | |
| | | |
|--------| Master |--------|
| | | |
| | | |
| | | |
-----------------------------------
когда я использую sendMessage (IncMaster 1)
с помощью горячей клавиши, он разделяет главное окно по горизонтали
-----------------------------------
| | | |
| | Master 1 | |
| | | |
|--------|---------------|--------|
| | | |
| | Master 2 | |
| | | |
-----------------------------------
Как разделить его по вертикали или переключить на вертикальную ориентацию? Чтобы сделать это так:
-------------------------------------
| | | | |
| | | | |
| | | | |
|--------|Master 1|Master 2|--------|
| | | | |
| | | | |
| | | | |
-------------------------------------
Решено путем разветвления макета и его жесткого кодирования для разделения по вертикали:
mkdir -p ~/.xmonad/lib/XMonad/Layout
wget "https://raw.githubusercontent.com/xmonad/xmonad-contrib/master/XMonad/Layout/ThreeColumns.hs" -o ~/.xmonad/lib/XMonad/Layout/My.hs
Изменить имя модуля:
module XMonad.Layout.My
Исправление проблем с импортом модуля XMonad.Prelude
:
-- import XMonad.Prelude
import Control.Monad (ap, msum)
Измените поведение с этого:
tile3 middle f r nmaster n
| n <= nmaster || nmaster == 0 = splitVertically n r
| n <= nmaster+1 = splitVertically nmaster s1 ++ splitVertically (n-nmaster) s2
| otherwise = splitVertically nmaster r1 ++ splitVertically nslave1 r2 ++ splitVertically nslave2 r3
к этому:
tile3 middle f r nmaster n
| n <= nmaster || nmaster == 0 = splitHorizontally n r
| n <= nmaster+1 = splitVertically nmaster s1 ++ splitVertically (n-nmaster) s2
| otherwise = splitHorizontally nmaster r1 ++ splitVertically nslave1 r2 ++ splitVertically nslave2 r3
~/.xmonad/xmonad.hs:
--import XMonad.Layout.ThreeColumns
import XMonad.Layout.My