module Main where

import Data.ByteString qualified as BS
import Data.Text qualified as Text
import Debug.Pretty.Simple (pTraceShowM)
import Options.Applicative qualified as Opt
import Paths_worksheet qualified as Self
import Relude
import System.FilePath.Posix qualified as File
import Text.Blaze
import Text.Blaze.Html5 qualified as H
import Text.Blaze.Html5.Attributes qualified as HA
import Text.Blaze.Renderer.Utf8 qualified as Blaze

newtype Options = Options
  { optionInputs :: [FilePath]
  }

options :: Opt.Parser Options
options =
  Options
    <$> many (Opt.argument Opt.str (Opt.metavar "SOURCE..."))

main :: IO ()
main = do
  Options{..} <- Opt.execParser opts
  forM_ optionInputs \inputFilePath -> do
  where
    opts =
      Opt.info
        (options <**> Opt.helper)
        ( Opt.fullDesc
            <> Opt.progDesc "Generate a worksheet"
            <> Opt.header "worksheet - a worksheet generator"
        )