placeholder.lua

return {
  -- returns a placeholder data URI image of the specified size
  ['placeholder'] = function(args, kwargs, _meta, _rawargs, context)
    local width = args[1] or "100"
    local height = args[2] or width
    local size_str = tostring(width) .. " x " .. tostring(height)
    local svg_open = "<svg width = \"" .. width .. "\" height = \"" .. height .. "\" xmlns = \"http://www.w3.org/2000/svg\" viewBox = \"0 0 " .. width .. " " .. height .. "\">"
    local svg_close = "</svg>"
    local rect = "<rect width = \"" .. width .. "\" height = \"" .. height .. "\" fill = \"#ddd\" />"
    local font_size = math.floor(0.1 * math.min(tonumber(width) or 100, tonumber(height) or 100))
    local text = "<text x = \"50%\" y = \"50%\" font-family = \"sans-serif\" font-size = \"" .. tostring(font_size) .. "\" fill = \"#000\" text-anchor = \"middle\">" .. size_str .. "</text>"
    local svg = svg_open .. rect .. text .. svg_close
    local svg64 = "data:image/svg+xml;base64," .. quarto.base64.encode(svg)
    local result

    local output_format = pandoc.utils.stringify(kwargs["format"])
    if output_format == "" then
      if quarto.format.is_typst_output() then
        output_format = "svg"
      else 
        output_format = "png"
      end
    end

    if output_format == "svg" then
      result = svg64
    else
      local pcallresult, mt, contents = pcall(function()
        local mt, contents = pandoc.mediabag.fetch("https://svg2png.deno.dev/" .. svg64)
        return mt, contents
      end)
      if not pcallresult then
        error("Error rendering placeholder")
        error(contents)
        return pandoc.Str("Error rendering placeholder")
      end
      if mt ~= "image/png" then
        error("Expected image/png but got " .. mt)
        error(contents)
        return pandoc.Str("Error rendering placeholder")
      end
      result = "data:" .. mt .. ";base64," .. quarto.base64.encode(contents)
    end

    if context == "text" then
      return result
    else
      return pandoc.Image({}, result)
    end
  end
}