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"
  }