Use Tall and Wide for split screen layouts. This should be less confusing.

darcs-hash:20070403050610-a5988-34a441f8eb299905ed28d415a9524121585d06d0

1 files changed, 5 insertions, 5 deletions

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