sercanto/rcfiles
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

xmonad: set ThreeColMid as default layout

Browse source
This commit is contained in:
Serĉanto de Scio 2022-12-08 21:08:24 +10:00
parent 323ed2033d
commit 624150557c
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
.xmonad/xmonad.hs
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.ThreeColumns
import XMonad.Prompt import XMonad.Prompt
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Loggers import XMonad.Util.Loggers
@ -30,7 +31,7 @@ main =
. withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey
$ myConfig $ myConfig
myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full)) -- myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full))
myConfig = myConfig =
def def
{ borderWidth = 1, { borderWidth = 1,
@ -220,8 +221,8 @@ myKeybinds =
-- Layout -- -- Layout --
------------ ------------
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 = tiled ||| Mirror tiled ||| Full myLayout = ThreeColMid 1 (3/100) (1/2) ||| tiled ||| Mirror tiled ||| Full
where where
tiled = spacingWithEdge 5 $ Tall nmaster delta ratio tiled = spacingWithEdge 5 $ Tall nmaster delta ratio
nmaster = 1 nmaster = 1