28 lines
535 B
Haskell
28 lines
535 B
Haskell
module PDF.Font (
|
|
Decoder
|
|
, Encoder
|
|
, Font(..)
|
|
, FontSet
|
|
, emptyFont
|
|
) where
|
|
|
|
import Data.ByteString (ByteString)
|
|
import Data.Map (Map)
|
|
import Data.Text (Text)
|
|
import PDF.Object (Name)
|
|
|
|
type Decoder = ByteString -> Either String Text
|
|
type Encoder = Text -> Either String ByteString
|
|
data Font = Font {
|
|
decode :: Decoder
|
|
, encode :: Encoder
|
|
}
|
|
|
|
type FontSet = Map Name Font
|
|
|
|
emptyFont :: Font
|
|
emptyFont = Font {
|
|
decode = \_ -> Left "No fond loaded"
|
|
, encode = \_ -> Left "No fond loaded"
|
|
}
|