twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-07 23:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

ResizeScreen: add resizeHorizontalRight and resizeVerticalBottom

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-18 18:05:04 +00:00
parent 1e85802e2f
commit 4136c4eb22
1 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
XMonad/Layout/ResizeScreen.hs
View File

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