diff options
| -rw-r--r-- | XMonad/Layout/Cross.hs | 114 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 1 |
2 files changed, 115 insertions, 0 deletions
diff --git a/XMonad/Layout/Cross.hs b/XMonad/Layout/Cross.hs new file mode 100644 index 0000000..caf8262 --- /dev/null +++ b/XMonad/Layout/Cross.hs @@ -0,0 +1,114 @@ +{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-} + +-- | +-- Module : XMonad.Layout.Cross +-- Copyright : (c) Luis Cabellos <zhen.sydow@gmail.com> +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : Luis Cabellos <zhen.sydow@gmail.com> +-- Stability : stable +-- Portability : portable +-- +-- A Cross Layout with a main window in the center. +-- +module XMonad.Layout.Cross( + -- * Usage + -- $usage + simpleCross + , Cross(..) ) where + +import XMonad( Dimension, Rectangle(..), LayoutClass(..), Resize(..), fromMessage ) +import XMonad.StackSet( focus, up, down ) +import Control.Monad( msum ) + +-- $usage +-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: +-- +-- > import XMonad.Layout.Cross +-- +-- Then edit your @layoutHook@ by adding the Spiral layout: +-- +-- > myLayouts = simpleCross ||| etc.. +-- > main = xmonad defaultConfig { layoutHook = myLayouts } +-- + +-- apply a factor to a Rectangle Dimension +(<%>) :: Dimension -> Rational -> Dimension +d <%> f = floor $ f * (fromIntegral d) + +-- | The Cross Layout draw the focused window on the center of the screen +-- and part of the other windows on the sides. The 'Shrink' and 'Expand' +-- messages increment the size of the main window. +-- +-- With the focus keys you change the window on the center and the other +-- windows put itself on the sides in a cycle way. +-- +-- e.g: focus down put down[0] on focus, focus up put up[0] on +-- focus. +-- +-- Only five windows are shown in the Cross Layout, focus two ups and two +-- downs. Everything else is hide. +data Cross a = Cross + !Rational -- ^ Proportion of screen occupies for main window. + !Rational -- ^ Percent of main window to increment by when resizing. + deriving( Show, Read ) + +-- | A simple Cross Layout. It has a main window with focused windos on the center. +-- The proportion of screen of main window is 3\/4. +simpleCross :: Cross a +simpleCross = Cross (4/5) (1/100) + +instance LayoutClass Cross a where + pureLayout (Cross f _) r s = [(focus s, mainRect r f)] ++ + (zip winCycle (upRects r f)) ++ + (zip (reverse winCycle) (downRects r f)) + where winCycle = (up s) ++ (reverse (down s)) + + pureMessage (Cross f d) m = msum [fmap resize (fromMessage m)] + where resize Shrink = Cross (max (1/100) $ f - d) d + resize Expand = Cross (min 1 $ f + d) d + + description _ = "Cross" + +-- get the Rectangle for the focused window +mainRect :: Rectangle -> Rational -> Rectangle +mainRect (Rectangle rx ry rw rh) f = Rectangle + (rx + (fromIntegral (rw <%> invf))) + (ry + (fromIntegral (rh <%> invf))) + (rw <%> f) (rh <%> f) + where invf = (1/2) * (1-f) + +-- get the rectangles for the up windows +upRects :: Rectangle -> Rational -> [Rectangle] +upRects r f = [topRectangle r nf, rigthRectangle r nf] + where nf = f * (8/10) + +-- get the rectangles for the down windows +downRects :: Rectangle -> Rational -> [Rectangle] +downRects r f = [bottomRectangle r nf, leftRectangle r nf] + where nf = f * (8/10) + +topRectangle :: Rectangle -> Rational -> Rectangle +topRectangle (Rectangle rx ry rw rh) f = Rectangle + (rx + (fromIntegral (rw <%> ((1-f)*(1/2))))) + ry + (rw <%> f) (rh <%> ((1-f)*(1/2))) + +rigthRectangle :: Rectangle -> Rational -> Rectangle +rigthRectangle (Rectangle rx ry rw rh) f = Rectangle + (rx + (fromIntegral (rw - (rw <%> (1/2))))) + (ry + (fromIntegral (rh <%> ((1-f)*(1/2))))) + (rw <%> (1/2)) (rh <%> f) + +bottomRectangle :: Rectangle -> Rational -> Rectangle +bottomRectangle (Rectangle rx ry rw rh) f = Rectangle + (rx + (fromIntegral (rw <%> ((1-f)*(1/2))))) + (ry + (fromIntegral (rh - (rh <%> ((1-f)*(1/2)))))) + (rw <%> f) (rh <%> ((1-f)*(1/2))) + +leftRectangle :: Rectangle -> Rational -> Rectangle +leftRectangle (Rectangle rx ry rw rh) f = Rectangle + rx + (ry + (fromIntegral (rh <%> ((1-f)*(1/2))))) + (rw <%> (1/2)) (rh <%> f) + diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 01728a5..891e92b 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -131,6 +131,7 @@ library XMonad.Layout.BoringWindows XMonad.Layout.CenteredMaster XMonad.Layout.Circle + XMonad.Layout.Cross XMonad.Layout.Combo XMonad.Layout.Decoration XMonad.Layout.DecorationMadness |