[refactor] Wetterhorn -> Montis

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)]
+      _ -> []