mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-09-02 20:23:48 -07:00
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).
This commit is contained in:
@@ -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 _ [] = []
|
||||
|
Reference in New Issue
Block a user