Return correct quarto path and version for when this package is used in a quarto document

Especially `quarto:::find_quarto()` so that other function works like `quarto_version()`

But there is also `QUARTO_EXECUTE_INFO` that is available that can help maybe

````r
jsonlite::read_json(Sys.getenv("QUARTO_EXECUTE_INFO"))[["format"]][["metadata"]][["quarto-version"]]
````

cc @gadenbuie