src/Wetterhorn/Layout/Full.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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