diff options
author | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:42 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:42 +0200 |
commit | ec614439821045141fe4bbd40329cbca17780785 (patch) | |
tree | 835dab850bf1f738c44306e57922d9f16e701322 /Square.hs | |
parent | 1acac6f30cf5f539381b81b85d96b1f69d4e56b9 (diff) | |
download | XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.tar.gz XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.tar.xz XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.zip |
introduce idModify which is just "const (return Nothing)".
darcs-hash:20070623143542-72aca-b1bc6ffaf524ee9c1f4ac7e04d8224e02bba0b1b.gz
Diffstat (limited to 'Square.hs')
-rw-r--r-- | Square.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -40,8 +40,13 @@ import XMonadContrib.LayoutHelpers ( l2lModDo ) -- > ,(combo [(twoPane 0.03 0.8,1),(square,1)] -- > (mirror $ twoPane 0.03 0.85),1)] (twoPane 0.03 0.5) ) +import XMonad +import Graphics.X11.Xlib +import StackSet ( integrate ) +import XMonadContrib.LayoutHelpers ( l2lModDo ) + square :: Layout a -square = Layout { doLayout = l2lModDo arrange, modifyLayout = const (return Nothing) } +square = Layout { doLayout = l2lModDo arrange, modifyLayout = idModify } where arrange :: Rectangle -> [a] -> [(a, Rectangle)] arrange rect ws@(_:_) = map (\w->(w,rest)) (init ws) ++ [(last ws,sq)] where (rest, sq) = splitSquare rect |