blob: 771552620e9050f00d843739e9d1afad112e1f89 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# OPTIONS_GHC -Wno-missing-export-lists #-}
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)]
_ -> []
|
