cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

a better layout 

do horizontal first, and if a third window is added, enable vertical mode
main
千住柱間 2024-03-16 15:09:27 +00:00
parent 84291247eb
commit 0a50efa68e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
xmonad/xmonad.hs
View File

@ -34,6 +34,8 @@ import XMonad.Layout.SimplestFloat
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Actions.PerWindowKeys import XMonad.Actions.PerWindowKeys
import XMonad.Actions.FindEmptyWorkspace import XMonad.Actions.FindEmptyWorkspace
import XMonad.Layout.Grid
import XMonad.Layout.PerScreen (ifWider)
main :: IO () main :: IO ()
@ -96,11 +98,12 @@ myTheme = def
} }
myLayout = mouseResize $ spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True $ myLayout = mouseResize $ spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True $
Tall 1 (3/100) (1/2) ||| Full tallLayout ||| Full
where
tallLayout = Tall 2 (3/100) (1/2)
myXmobarPP :: PP myXmobarPP :: PP
myXmobarPP = def myXmobarPP = def