From 7997ebb0b4a3c4aa2bae2e92ab1e0685d075709d Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 3 Apr 2007 07:06:10 +0200 Subject: Use Tall and Wide for split screen layouts. This should be less confusing. darcs-hash:20070403050610-a5988-34a441f8eb299905ed28d415a9524121585d06d0.gz --- Operations.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index 046c75b..e2c2128 100644 --- a/Operations.hs +++ b/Operations.hs @@ -37,8 +37,8 @@ refresh = do mapM_ (\(w, Rectangle a b c e) -> io $ moveResizeWindow d w a b c e) $ case layoutType fl of Full -> fmap (flip (,) sc) $ maybeToList $ W.peekStack n ws - Horz -> tile (tileFraction fl) sc $ W.index n ws - Vert -> vtile (tileFraction fl) sc $ W.index n ws + Tall -> tile (tileFraction fl) sc $ W.index n ws + Wide -> vtile (tileFraction fl) sc $ W.index n ws whenJust (W.peekStack n ws) (io . raiseWindow d) whenJust (W.peek ws) setFocus @@ -68,9 +68,9 @@ flipRect (Rectangle { rect_x = x, rect_y = y, rect_width = w, rect_height = h }) switchLayout :: X () switchLayout = layout $ \fl -> fl { layoutType = rot (layoutType fl) } --- | changeHorz. Changes the horizontal split. -changeHorz :: Rational -> X () -changeHorz delta = layout $ \fl -> +-- | changeSplit. Changes the window split. +changeSplit :: Rational -> X () +changeSplit delta = layout $ \fl -> fl { tileFraction = min 1 (max 0 (tileFraction fl + delta)) } -- | layout. Modify the current workspace's layout with a pure -- cgit v1.2.3