ORG-README.qmd

---
format: gfm
wrap: preserve
execute: 
  echo: false
  warning: false
---

# Extensions for Quarto

The `quarto-ext` organization collects extensions maintained by the core Quarto team. 

Learn more about creating your extensions here: <https://quarto.org/docs/extensions/>

```{r}
#| message: false

library(gh)
library(purrr)
library(dplyr)

res <- gh::gh("/orgs/{org}/repos", org = "quarto-ext") 

tab <- res |> 
    # remove non extension
    discard(~ .x$name %in% c(".github")) |>
    # don't include manuscript template
    discard(~ grepl("manuscript-template-", .x$name)) |>
    # don't list typst template as this is a repo of templates
    discard(~ grepl("typst-template", .x$name)) |>
    # remove private
    discard(~ .x$private) |>
    map_df(~ tibble::tibble(
        name = .x$name,
        full_name = .x$full_name,
        description = .x$description,
        license = .x$license$name,
        url = .x$html_url
    ))

order <- tibble(name = c(
    "latex-environment",
    "lightbox",
    "fontawesome",
    "pointer", 
    "attribution",
    "shinylive", 
    "fancy-text")
) |> mutate(order = row_number())

tab_formatted <- tab |>
    left_join(order, by = "name") |>
    arrange(order, name) |>
    transmute(
        'Extension name' = glue::glue("[{name}]({url})"),
        'Description' = description,
        'Install' = glue::glue("`quarto add extension {full_name}`")
    )

knitr::kable(tab_formatted)
```