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

Spiral.hs: add 'description' function to LayoutClass instance for SpiralWithDir.

Browse Source
This commit is contained in:
Brent Yorgey
2007-10-16 14:09:59 +00:00
parent 452ba366ad
commit 07184fed9f
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Spiral.hs
View File

@@ -76,6 +76,7 @@ instance LayoutClass SpiralWithDir a where
handleMessage (SpiralWithDir dir rot scale) = return . fmap resize . fromMessage handleMessage (SpiralWithDir dir rot scale) = return . fmap resize . fromMessage
where resize Expand = spiralWithDir dir rot $ (21 % 20) * scale where resize Expand = spiralWithDir dir rot $ (21 % 20) * scale
resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale
description _ = "Spiral"
-- This will produce one more rectangle than there are splits details -- This will produce one more rectangle than there are splits details
divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle] divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle]