twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

make square work with new doLayout.

Browse Source
This commit is contained in:
David Roundy
2007-06-12 13:30:09 +00:00
parent b357a60e50
commit 48cea801a6
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Square.hs
View File

@@ -13,9 +13,10 @@ module XMonadContrib.Square ( square ) where
import XMonad
import Graphics.X11.Xlib
import StackSet ( integrate )
square :: Layout
square = Layout { doLayout = arrange, modifyLayout = message }
square = Layout { doLayout = \r s -> arrange r (integrate s), modifyLayout = message }
where
arrange rect ws@(_:_) = do
let (rest, sq) = splitSquare rect