如何切换多个主窗口的方向

Question

我正在使用以下XMonad。布局三列布局

-----------------------------------
|        |               |        |    
|        |               |        |
|        |               |        |
|--------|     Master    |--------|  
|        |               |        |  
|        |               |        | 
|        |               |        |
-----------------------------------

当我通过热键使用sendMessage (IncMaster 1)时，它会水平拆分主窗口

-----------------------------------
|        |               |        |    
|        |    Master 1   |        |
|        |               |        |
|--------|---------------|--------|  
|        |               |        |  
|        |    Master 2   |        | 
|        |               |        |
-----------------------------------

如何垂直拆分或切换到垂直方向？让它变成这样：

-------------------------------------
|        |        |        |        |    
|        |        |        |        |
|        |        |        |        |
|--------|Master 1|Master 2|--------|  
|        |        |        |        |
|        |        |        |        |
|        |        |        |        |
-------------------------------------

Answer 1

通过分叉布局并硬编码垂直拆分来解决：

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