{-# LANGUAGE OverloadedStrings #-}
module Main where

import GI.Poppler
import Data.Foldable (for_)

data BBox = BBox
    { x1 :: !Double
    , y1 :: !Double
    , x2 :: !Double
    , y2 :: !Double
    } deriving (Eq, Show)

fromRectangle :: Rectangle -> IO BBox
fromRectangle r = do
    x1 <- getRectangleX1 r
    y1 <- getRectangleY1 r
    x2 <- getRectangleX2 r
    y2 <- getRectangleY2 r
    pure (BBox x1 y1 x2 y2)

main :: IO ()
main = do
    doc <- documentNewFromFile "file:///home/mp/Downloads/hitchhikers_guide.pdf" Nothing
    num_pages <- documentGetNPages doc
    for_ [0..num_pages-1] $ \p -> do
        putStrLn $ "Page #" <> show p
        page <- documentGetPage doc p

        (_, xs) <- pageGetTextLayout page
        bbs <- traverse fromRectangle xs
        print bbs