From 5f1312128d87961231d5431af0885711a01cd120 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 23 Jun 2007 23:09:52 +0200 Subject: make everything work with new doLayout. This modifies all the contrib modules to work (so far as I know) with the new contrib layout. The exception is the LayoutHooks module, which isn't used. It exports an API that is inherently unsafe, so far as I can tell (and always has been). darcs-hash:20070623210952-72aca-1993ca13dc6996b59fedacc271c03fbaf87eabaa.gz --- Circle.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Circle.hs') diff --git a/Circle.hs b/Circle.hs index f70a831..5a62564 100644 --- a/Circle.hs +++ b/Circle.hs @@ -22,14 +22,16 @@ import Graphics.X11.Xlib import XMonad import StackSet (integrate, Stack(..)) +import XMonadContrib.LayoutHelpers ( idModify ) + -- $usage -- You can use this module with the following in your Config.hs file: -- -- > import XMonadContrib.Circle circle :: Layout a -circle = Layout { doLayout = \r s -> return . raise (length (up s)) . circleLayout r $ integrate s, - modifyLayout = return . const Nothing } +circle = Layout { doLayout = \r s -> return (raise (length (up s)) . circleLayout r $ integrate s, Nothing), + modifyLayout = idModify } circleLayout :: Rectangle -> [a] -> [(a, Rectangle)] circleLayout _ [] = [] -- cgit v1.2.3