diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-03 07:06:10 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-03 07:06:10 +0200 |
commit | 7997ebb0b4a3c4aa2bae2e92ab1e0685d075709d (patch) | |
tree | 13cd2c07bad1c23c5b3bbce19f2e89d9098196b5 /Operations.hs | |
parent | 44c83b8d629a1d7b2f77a45f63ef8d903c21df95 (diff) | |
download | xmonad-7997ebb0b4a3c4aa2bae2e92ab1e0685d075709d.tar.gz xmonad-7997ebb0b4a3c4aa2bae2e92ab1e0685d075709d.tar.xz xmonad-7997ebb0b4a3c4aa2bae2e92ab1e0685d075709d.zip |
Use Tall and Wide for split screen layouts. This should be less confusing.
darcs-hash:20070403050610-a5988-34a441f8eb299905ed28d415a9524121585d06d0.gz
Diffstat (limited to '')
-rw-r--r-- | Operations.hs | 10 |
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 |