aboutsummaryrefslogtreecommitdiffstats
path: root/Circle.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Circle.hs')
-rw-r--r--Circle.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Circle.hs b/Circle.hs
index 9e30c83..18edf17 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -2,9 +2,10 @@ module XMonadContrib.Circle (circle) where -- actually it's an ellipse
import Graphics.X11.Xlib
import XMonad
+import StackSet (integrate)
circle :: Layout
-circle = Layout { doLayout = circleLayout,
+circle = Layout { doLayout = \r -> circleLayout r . integrate,
modifyLayout = return . const Nothing }
circleLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]