diff options
-rw-r--r-- | Operations.hs | 3 | ||||
-rw-r--r-- | XMonad.hs | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index e03a4ae..a456150 100644 --- a/Operations.hs +++ b/Operations.hs @@ -390,8 +390,7 @@ instance Message IncMasterN -- simple fullscreen mode, just render all windows fullscreen. -- a plea for tuple sections: map . (,sc) data Full a = Full deriving ( Show, Read ) -instance Layout Full a where - doLayout Full sc (W.Stack f _ _) = return ([(f, sc)], Nothing) +instance Layout Full a -- -- The tiling mode of xmonad, and its operations. -- @@ -151,6 +151,10 @@ readLayout ls s = concatMap rl ls class (Show (layout a), Read (layout a)) => Layout layout a where doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) + doLayout l r s = return (pureLayout l r s, Nothing) + pureLayout :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)] + pureLayout _ r s = [(focus s, r)] + modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a)) modifyLayout _ _ = return Nothing description :: layout a -> String |