summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs3
-rw-r--r--XMonad.hs4
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.
--
diff --git a/XMonad.hs b/XMonad.hs
index c0ca75d..ef2a2f1 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -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