From 6db5ce27b692eb503e60bbe860ce6218a26f6bdd Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Sat, 21 Feb 2009 23:47:42 +0100 Subject: change Cross data declaration into a record so that Haddock will parse the per-argument comments darcs-hash:20090221224742-1e371-5a6d5db630ddce4756dea3be7732b7b5ba03effb.gz --- XMonad/Layout/Cross.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout/Cross.hs') diff --git a/XMonad/Layout/Cross.hs b/XMonad/Layout/Cross.hs index caf8262..26aa678 100644 --- a/XMonad/Layout/Cross.hs +++ b/XMonad/Layout/Cross.hs @@ -39,7 +39,7 @@ d <%> f = floor $ f * (fromIntegral d) -- | The Cross Layout draw the focused window on the center of the screen -- and part of the other windows on the sides. The 'Shrink' and 'Expand' -- messages increment the size of the main window. --- +-- -- With the focus keys you change the window on the center and the other -- windows put itself on the sides in a cycle way. -- @@ -48,9 +48,10 @@ d <%> f = floor $ f * (fromIntegral d) -- -- Only five windows are shown in the Cross Layout, focus two ups and two -- downs. Everything else is hide. -data Cross a = Cross - !Rational -- ^ Proportion of screen occupies for main window. - !Rational -- ^ Percent of main window to increment by when resizing. +data Cross a = Cross { + crossProp :: !Rational, -- ^ Proportion of screen occupies for main window. + crossInc :: !Rational -- ^ Percent of main window to increment by when resizing. + } deriving( Show, Read ) -- | A simple Cross Layout. It has a main window with focused windos on the center. -- cgit v1.2.3