From 8624935317c768cfcc92173a3678afc67659e540 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 18 Feb 2008 19:05:04 +0100
Subject: ResizeScreen: add resizeHorizontalRight and resizeVerticalBottom

darcs-hash:20080218180504-32816-dc75b3ec16dce681aefe717b3c16e8cc200ccbb8.gz
---
 XMonad/Layout/ResizeScreen.hs | 27 ++++++++++++++++++---------
 1 file changed, 18 insertions(+), 9 deletions(-)

(limited to 'XMonad/Layout/ResizeScreen.hs')

diff --git a/XMonad/Layout/ResizeScreen.hs b/XMonad/Layout/ResizeScreen.hs
index 4d7acff..54de481 100644
--- a/XMonad/Layout/ResizeScreen.hs
+++ b/XMonad/Layout/ResizeScreen.hs
@@ -18,8 +18,8 @@
 module XMonad.Layout.ResizeScreen
     ( -- * Usage:
       -- $usage
-      resizeHorizontal
-    , resizeVertical
+      resizeHorizontal, resizeVertical
+    , resizeHorizontalRight, resizeVerticalBottom
     , withNewRectangle
     , ResizeScreen (..)
     ) where
@@ -42,10 +42,16 @@ import XMonad.Layout.Decoration
 -- "XMonad.Doc.Extending#Editing_the_layout_hook"
 
 resizeHorizontal :: Int -> l a -> ModifiedLayout ResizeScreen l a
-resizeHorizontal i = ModifiedLayout (ResizeScreen H i)
+resizeHorizontal i = ModifiedLayout (ResizeScreen L i)
 
 resizeVertical :: Int -> l a -> ModifiedLayout ResizeScreen l a
-resizeVertical i = ModifiedLayout (ResizeScreen V i)
+resizeVertical i = ModifiedLayout (ResizeScreen T i)
+
+resizeHorizontalRight :: Int -> l a -> ModifiedLayout ResizeScreen l a
+resizeHorizontalRight i = ModifiedLayout (ResizeScreen R i)
+
+resizeVerticalBottom :: Int -> l a -> ModifiedLayout ResizeScreen l a
+resizeVerticalBottom i = ModifiedLayout (ResizeScreen B i)
 
 withNewRectangle  :: Rectangle -> l a -> ModifiedLayout ResizeScreen l a
 withNewRectangle r = ModifiedLayout (WithNewScreen r)
@@ -53,14 +59,17 @@ withNewRectangle r = ModifiedLayout (WithNewScreen r)
 data ResizeScreen a = ResizeScreen ResizeMode Int
                     | WithNewScreen Rectangle
                       deriving (Read, Show)
-data ResizeMode = H | V deriving (Read, Show)
+
+data ResizeMode = T | B | L | R deriving (Read, Show)
 
 instance LayoutModifier ResizeScreen a where
-    modifyLayout m l re@(Rectangle x y w h) s
-        | ResizeScreen H i <- m = resize (Rectangle (x + fi i) y (w - fi i) h)
-        | ResizeScreen V i <- m = resize (Rectangle x (y + fi i) w (h - fi i))
+    modifyLayout m l rect@(Rectangle x y w h) s
+        | ResizeScreen L i <- m = resize $ Rectangle (x + fi i) y (w - fi i) h
+        | ResizeScreen R i <- m = resize $ Rectangle x          y (w - fi i) h
+        | ResizeScreen T i <- m = resize $ Rectangle x (y + fi i) w (h - fi i)
+        | ResizeScreen B i <- m = resize $ Rectangle x  y         w (h - fi i)
         | WithNewScreen  r <- m = resize r
-        | otherwise             = resize re
+        | otherwise             = resize rect
        where resize nr = doLayout l nr s
 
     pureMess (ResizeScreen d _) m
-- 
cgit v1.2.3