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

make some layouts more general.

Browse Source
This commit is contained in:
David Roundy
2007-06-20 12:54:20 +00:00
parent 63023902d2
commit 8a78694d23
4 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Circle.hs
View File

@@ -27,11 +27,11 @@ import StackSet (integrate)
--
-- > import XMonadContrib.Circle
circle :: Layout Window
circle :: Layout a
circle = Layout { doLayout = \r -> circleLayout r . integrate,
modifyLayout = return . const Nothing }
circleLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]
circleLayout :: Rectangle -> [a] -> X [(a, Rectangle)]
circleLayout _ [] = return []
circleLayout r (w:ws) = return $ (w, center r) : (zip ws sats)
where sats = map (satellite r) $ take (length ws) [0, pi * 2 / fromIntegral (length ws) ..]