module Wetterhorn.Layout.Full where

import Data.Data (Typeable)
import Data.Default.Class
import Wetterhorn.Constraints
import Wetterhorn.Core.W
import Wetterhorn.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)]
      _ -> []