{-# LINE 2 "./Graphics/Rendering/Pango/Enums.chs" #-}
module Graphics.Rendering.Pango.Enums (
PangoUnit,
pangoScale,
Color(..),
Rectangle(..),
PangoRectangle(..),
FontMetrics(..),
Size(..),
FontStyle(..),
Weight(..),
Variant(..),
Stretch(..),
Underline(..),
PangoDirection(..),
PangoAttribute(..),
EllipsizeMode(..),
PangoGravity(..),
PangoGravityHint(..),
Language,
emptyLanguage,
languageFromString,
) where
import Graphics.Rendering.Pango.Types
{-# LINE 58 "./Graphics/Rendering/Pango/Enums.chs" #-}
import Graphics.Rendering.Pango.BasicTypes
{-# LINE 59 "./Graphics/Rendering/Pango/Enums.chs" #-}
import Graphics.Rendering.Pango.Structs
{-# LINE 62 "./Graphics/Rendering/Pango/Enums.chs" #-}
data Size
= SizePoint Double
| SizeUnreadable
| SizeTiny
| SizeSmall
| SizeMedium
| SizeLarge
| SizeHuge
| SizeGiant
| SizeSmaller
| SizeLarger
instance Show Size where
showsPrec :: Int -> Size -> ShowS
showsPrec Int
_ (SizePoint Double
v) = String -> ShowS
forall a. Show a => a -> ShowS
shows (String -> ShowS) -> String -> ShowS
forall a b. (a -> b) -> a -> b
$ Integer -> String
forall a. Show a => a -> String
show (Double -> Integer
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double
vDouble -> Double -> Double
forall a. Num a => a -> a -> a
*Double
1000))
showsPrec Int
_ (Size
SizeUnreadable) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"xx-small"
showsPrec Int
_ (Size
SizeTiny) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"x-small"
showsPrec Int
_ (Size
SizeSmall) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"small"
showsPrec Int
_ (Size
SizeMedium) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"medium"
showsPrec Int
_ (Size
SizeLarge) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"large"
showsPrec Int
_ (Size
SizeHuge) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"x-large"
showsPrec Int
_ (Size
SizeGiant) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"xx-large"
showsPrec Int
_ (Size
SizeSmaller) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"smaller"
showsPrec Int
_ (Size
SizeLarger) = String -> ShowS
forall a. Show a => a -> ShowS
shows String
"larger"
data EllipsizeMode = EllipsizeNone
| EllipsizeStart
| EllipsizeMiddle
| EllipsizeEnd
deriving (Int -> EllipsizeMode
EllipsizeMode -> Int
EllipsizeMode -> [EllipsizeMode]
EllipsizeMode -> EllipsizeMode
EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
EllipsizeMode -> EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
(EllipsizeMode -> EllipsizeMode)
-> (EllipsizeMode -> EllipsizeMode)
-> (Int -> EllipsizeMode)
-> (EllipsizeMode -> Int)
-> (EllipsizeMode -> [EllipsizeMode])
-> (EllipsizeMode -> EllipsizeMode -> [EllipsizeMode])
-> (EllipsizeMode -> EllipsizeMode -> [EllipsizeMode])
-> (EllipsizeMode
-> EllipsizeMode -> EllipsizeMode -> [EllipsizeMode])
-> Enum EllipsizeMode
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: EllipsizeMode -> EllipsizeMode
succ :: EllipsizeMode -> EllipsizeMode
$cpred :: EllipsizeMode -> EllipsizeMode
pred :: EllipsizeMode -> EllipsizeMode
$ctoEnum :: Int -> EllipsizeMode
toEnum :: Int -> EllipsizeMode
$cfromEnum :: EllipsizeMode -> Int
fromEnum :: EllipsizeMode -> Int
$cenumFrom :: EllipsizeMode -> [EllipsizeMode]
enumFrom :: EllipsizeMode -> [EllipsizeMode]
$cenumFromThen :: EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
enumFromThen :: EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
$cenumFromTo :: EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
enumFromTo :: EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
$cenumFromThenTo :: EllipsizeMode -> EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
enumFromThenTo :: EllipsizeMode -> EllipsizeMode -> EllipsizeMode -> [EllipsizeMode]
Enum,EllipsizeMode -> EllipsizeMode -> Bool
(EllipsizeMode -> EllipsizeMode -> Bool)
-> (EllipsizeMode -> EllipsizeMode -> Bool) -> Eq EllipsizeMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EllipsizeMode -> EllipsizeMode -> Bool
== :: EllipsizeMode -> EllipsizeMode -> Bool
$c/= :: EllipsizeMode -> EllipsizeMode -> Bool
/= :: EllipsizeMode -> EllipsizeMode -> Bool
Eq)
{-# LINE 98 "./Graphics/Rendering/Pango/Enums.chs" #-}
data FontMetrics = FontMetrics {
FontMetrics -> Double
ascent :: Double,
FontMetrics -> Double
descent :: Double,
FontMetrics -> Double
approximateCharWidth :: Double,
FontMetrics -> Double
approximateDigitWidth :: Double
,
FontMetrics -> Double
underlineThickness :: Double,
FontMetrics -> Double
underlinePosition :: Double,
FontMetrics -> Double
strikethroughThickness :: Double,
FontMetrics -> Double
strikethroughPosition :: Double
} deriving Int -> FontMetrics -> ShowS
[FontMetrics] -> ShowS
FontMetrics -> String
(Int -> FontMetrics -> ShowS)
-> (FontMetrics -> String)
-> ([FontMetrics] -> ShowS)
-> Show FontMetrics
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FontMetrics -> ShowS
showsPrec :: Int -> FontMetrics -> ShowS
$cshow :: FontMetrics -> String
show :: FontMetrics -> String
$cshowList :: [FontMetrics] -> ShowS
showList :: [FontMetrics] -> ShowS
Show