aboutsummaryrefslogtreecommitdiff
path: root/plug/src/Montis/Layout/Full.hs
diff options
context:
space:
mode:
Diffstat (limited to 'plug/src/Montis/Layout/Full.hs')
-rw-r--r--plug/src/Montis/Layout/Full.hs23
1 files changed, 23 insertions, 0 deletions
diff --git a/plug/src/Montis/Layout/Full.hs b/plug/src/Montis/Layout/Full.hs
new file mode 100644
index 0000000..b2efb91
--- /dev/null
+++ b/plug/src/Montis/Layout/Full.hs
@@ -0,0 +1,23 @@
+module Montis.Layout.Full where
+
+import Data.Data (Typeable)
+import Data.Default.Class
+import Montis.Constraints
+import Montis.Core.W
+import Montis.StackSet
+
+data Full = Full
+ deriving (Read, Show, Typeable)
+
+instance Default Full where
+ def = Full
+
+instance HandleMessage Full
+
+instance LayoutClass Full where
+ type LayoutConstraint Full = Unconstrained
+
+ runLayout = pureLayout $ \l _ ->
+ case l of
+ (focused -> Just a) -> [(a, RationalRect 1 1 1 1)]
+ _ -> []