module PDF.Font (
      Font
    , FontSet
    , emptyFont
  ) where

import Data.ByteString (ByteString)
import Data.Map (Map)
import Data.Text (Text)
import PDF.Object (Name)

type Font = ByteString -> Either String Text
type FontSet = Map Name Font

emptyFont :: Font
emptyFont _ = Left "No fond loaded"