aboutsummaryrefslogtreecommitdiff
path: root/src/Wetterhorn/Layout/Full.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Wetterhorn/Layout/Full.hs')
-rw-r--r--src/Wetterhorn/Layout/Full.hs18
1 files changed, 18 insertions, 0 deletions
diff --git a/src/Wetterhorn/Layout/Full.hs b/src/Wetterhorn/Layout/Full.hs
new file mode 100644
index 0000000..8296c7b
--- /dev/null
+++ b/src/Wetterhorn/Layout/Full.hs
@@ -0,0 +1,18 @@
+module Wetterhorn.Layout.Full where
+
+import Data.Data (Typeable)
+import Data.Default
+import Wetterhorn.Constraints
+import Wetterhorn.Core.W
+
+data Full = Full
+ deriving (Read, Show, Typeable)
+
+instance Default Full where
+ def = Full
+
+instance LayoutClass Full where
+ type C Full = Unconstrained
+
+ pureLayout (a : _) _ = [(a, RationalRect 1 1 1 1)]
+ pureLayout _ _ = []