{-# LANGUAGE OverloadedStrings #-}
module Text.LaTeX.Packages.Fontenc (
fontenc
, FontEnc (..)
, useencoding
) where
import Text.LaTeX.Base
import Text.LaTeX.Base.Class
fontenc :: PackageName
fontenc :: PackageName
fontenc = PackageName
"fontenc"
data FontEnc = T1 | OT1 deriving Int -> FontEnc -> ShowS
[FontEnc] -> ShowS
FontEnc -> PackageName
(Int -> FontEnc -> ShowS)
-> (FontEnc -> PackageName) -> ([FontEnc] -> ShowS) -> Show FontEnc
forall a.
(Int -> a -> ShowS)
-> (a -> PackageName) -> ([a] -> ShowS) -> Show a
showList :: [FontEnc] -> ShowS
$cshowList :: [FontEnc] -> ShowS
show :: FontEnc -> PackageName
$cshow :: FontEnc -> PackageName
showsPrec :: Int -> FontEnc -> ShowS
$cshowsPrec :: Int -> FontEnc -> ShowS
Show
instance Render FontEnc where
render :: FontEnc -> Text
render FontEnc
T1 = Text
"T1"
render FontEnc
OT1 = Text
"OT1"
instance Texy FontEnc where
texy :: FontEnc -> l
texy = Text -> l
forall t l. (Texy t, LaTeXC l) => t -> l
texy (Text -> l) -> (FontEnc -> Text) -> FontEnc -> l
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FontEnc -> Text
forall a. Render a => a -> Text
render
useencoding :: LaTeXC l => [FontEnc] -> l
useencoding :: [FontEnc] -> l
useencoding [FontEnc]
xs = [l] -> PackageName -> l
forall l. LaTeXC l => [l] -> PackageName -> l
usepackage ((FontEnc -> l) -> [FontEnc] -> [l]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FontEnc -> l
forall t l. (Texy t, LaTeXC l) => t -> l
texy [FontEnc]
xs) PackageName
fontenc