Huge refactor for the Haskell code.HEADmain

This adds new layout configuration, preparing for actually using the
layouts. This also restructures the code and tries to keep code
interfacing with the foreign structures together and rename them to more
sensible names.

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 _ _ = []