{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module XMonad.Layout.NoFrillsDecoration
(
noFrillsDeco
, module XMonad.Layout.SimpleDecoration
, NoFrillsDecoration
) where
import XMonad.Layout.Decoration
import XMonad.Layout.SimpleDecoration
noFrillsDeco :: (Eq a, Shrinker s) => s -> Theme
-> l a -> ModifiedLayout (Decoration NoFrillsDecoration s) l a
noFrillsDeco :: forall a s (l :: * -> *).
(Eq a, Shrinker s) =>
s
-> Theme
-> l a
-> ModifiedLayout (Decoration NoFrillsDecoration s) l a
noFrillsDeco s
s Theme
c = forall (ds :: * -> *) a s (l :: * -> *).
(DecorationStyle ds a, Shrinker s) =>
s -> Theme -> ds a -> l a -> ModifiedLayout (Decoration ds s) l a
decoration s
s Theme
c forall a b. (a -> b) -> a -> b
$ forall a. Bool -> NoFrillsDecoration a
NFD Bool
True
newtype NoFrillsDecoration a = NFD Bool deriving (Int -> NoFrillsDecoration a -> ShowS
forall a. Int -> NoFrillsDecoration a -> ShowS
forall a. [NoFrillsDecoration a] -> ShowS
forall a. NoFrillsDecoration a -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NoFrillsDecoration a] -> ShowS
$cshowList :: forall a. [NoFrillsDecoration a] -> ShowS
show :: NoFrillsDecoration a -> String
$cshow :: forall a. NoFrillsDecoration a -> String
showsPrec :: Int -> NoFrillsDecoration a -> ShowS
$cshowsPrec :: forall a. Int -> NoFrillsDecoration a -> ShowS
Show, ReadPrec [NoFrillsDecoration a]
ReadPrec (NoFrillsDecoration a)
ReadS [NoFrillsDecoration a]
forall a. ReadPrec [NoFrillsDecoration a]
forall a. ReadPrec (NoFrillsDecoration a)
forall a. Int -> ReadS (NoFrillsDecoration a)
forall a. ReadS [NoFrillsDecoration a]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [NoFrillsDecoration a]
$creadListPrec :: forall a. ReadPrec [NoFrillsDecoration a]
readPrec :: ReadPrec (NoFrillsDecoration a)
$creadPrec :: forall a. ReadPrec (NoFrillsDecoration a)
readList :: ReadS [NoFrillsDecoration a]
$creadList :: forall a. ReadS [NoFrillsDecoration a]
readsPrec :: Int -> ReadS (NoFrillsDecoration a)
$creadsPrec :: forall a. Int -> ReadS (NoFrillsDecoration a)
Read)
instance Eq a => DecorationStyle NoFrillsDecoration a where
describeDeco :: NoFrillsDecoration a -> String
describeDeco NoFrillsDecoration a
_ = String
"NoFrillsDeco"