diff options
author | David Roundy <droundy@darcs.net> | 2007-09-21 23:55:25 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-21 23:55:25 +0200 |
commit | 6d1953c63b6e4f282decef28e55d2c87863477b7 (patch) | |
tree | 9677d8b62a19b7ed903aec4900e943885d0c5f4a /Circle.hs | |
parent | 0207554fe76de1141c1f48b69bfe021fa0d86d80 (diff) | |
download | XMonadContrib-6d1953c63b6e4f282decef28e55d2c87863477b7.tar.gz XMonadContrib-6d1953c63b6e4f282decef28e55d2c87863477b7.tar.xz XMonadContrib-6d1953c63b6e4f282decef28e55d2c87863477b7.zip |
make Circle work with Layout class.
darcs-hash:20070921215525-72aca-e94857d4d2c486cb69bf6f58617f67c11aff42fd.gz
Diffstat (limited to 'Circle.hs')
-rw-r--r-- | Circle.hs | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -15,7 +15,7 @@ module XMonadContrib.Circle ( -- * Usage -- $usage - circle + Circle ) where -- actually it's an ellipse import Data.List @@ -23,8 +23,6 @@ import Graphics.X11.Xlib import XMonad import StackSet (integrate, peek) -import XMonadContrib.LayoutHelpers ( idModify ) - -- $usage -- You can use this module with the following in your Config.hs file: -- @@ -32,10 +30,12 @@ import XMonadContrib.LayoutHelpers ( idModify ) -- %import XMonadContrib.Circle -circle :: Layout Window -circle = Layout { doLayout = \r s -> do { layout <- raiseFocus $ circleLayout r $ integrate s - ; return (layout, Nothing) } - , modifyLayout = idModify } +data Circle a = Circle deriving ( Read, Show ) + +instance Layout Circle Window where + doLayout Circle r s = do layout <- raiseFocus $ circleLayout r $ integrate s + return (layout, Nothing) + modifyLayout Circle _ = return Nothing circleLayout :: Rectangle -> [a] -> [(a, Rectangle)] circleLayout _ [] = [] |