{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TupleSections #-}
module XMonad.Layout.Simplest
(
Simplest (..)
) where
import XMonad
import qualified XMonad.StackSet as S
data Simplest a = Simplest deriving (Int -> Simplest a -> ShowS
forall a. Int -> Simplest a -> ShowS
forall a. [Simplest a] -> ShowS
forall a. Simplest a -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Simplest a] -> ShowS
$cshowList :: forall a. [Simplest a] -> ShowS
show :: Simplest a -> String
$cshow :: forall a. Simplest a -> String
showsPrec :: Int -> Simplest a -> ShowS
$cshowsPrec :: forall a. Int -> Simplest a -> ShowS
Show, ReadPrec [Simplest a]
ReadPrec (Simplest a)
ReadS [Simplest a]
forall a. ReadPrec [Simplest a]
forall a. ReadPrec (Simplest a)
forall a. Int -> ReadS (Simplest a)
forall a. ReadS [Simplest a]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Simplest a]
$creadListPrec :: forall a. ReadPrec [Simplest a]
readPrec :: ReadPrec (Simplest a)
$creadPrec :: forall a. ReadPrec (Simplest a)
readList :: ReadS [Simplest a]
$creadList :: forall a. ReadS [Simplest a]
readsPrec :: Int -> ReadS (Simplest a)
$creadsPrec :: forall a. Int -> ReadS (Simplest a)
Read)
instance LayoutClass Simplest a where
pureLayout :: Simplest a -> Rectangle -> Stack a -> [(a, Rectangle)]
pureLayout Simplest a
Simplest Rectangle
rec (S.Stack a
w [a]
l [a]
r) = forall a b. (a -> b) -> [a] -> [b]
map (, Rectangle
rec) (a
w forall a. a -> [a] -> [a]
: forall a. [a] -> [a]
reverse [a]
l forall a. [a] -> [a] -> [a]
++ [a]
r)