xmonad: added spiral layout

This commit is contained in:
Serĉanto de Scio 2022-12-11 18:15:25 +10:00
parent a7f4db6e04
commit 09d8dc288d
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA

View file

@ -9,6 +9,7 @@ import XMonad.Hooks.StatusBar
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.Hidden import XMonad.Layout.Hidden
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.Spiral
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
import XMonad.Prompt import XMonad.Prompt
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
@ -226,7 +227,7 @@ myKeybinds =
------------ ------------
-- myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a -- myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a
myLayout = ThreeColMid 1 (3/100) (1/2) ||| tiled ||| Mirror tiled ||| Full myLayout = ThreeColMid 1 (3/100) (1/2) ||| spiral (6/7) ||| tiled ||| Mirror tiled ||| Full
where where
tiled = spacingWithEdge 5 $ Tall nmaster delta ratio tiled = spacingWithEdge 5 $ Tall nmaster delta ratio
nmaster = 1 nmaster = 1