import Codec.Ktx2.Font qualified as Font

main :: IO ()
main = do
  putStrLn "Bundling Ubuntu-R"
  Font.bundleFont
    "assets/Ubuntu-R.ttf"
    "assets/Ubuntu-R-glyphs.json"
    "assets/Ubuntu-R-glyphs.ktx2"
    "assets/Ubuntu-R.ktxf"

  putStrLn "Bundling NotoEmoji-Regular"
  Font.bundleFont
    "assets/NotoEmoji-Regular.ttf"
    "assets/NotoEmoji-Regular-glyphs.json"
    "assets/NotoEmoji-Regular-glyphs.ktx2"
    "assets/NotoEmoji-Regular.ktxf"

  putStrLn "Bundling NotoSans-Regular"
  Font.bundleFont
    "assets/NotoSans-Regular.ttf"
    "assets/NotoSans-Regular-glyphs.json"
    "assets/NotoSans-Regular-glyphs.ktx2"
    "assets/NotoSans-Regular.ktxf"

  -- TODO: load back and inspect