---
title: ""
format:
  revealjs:
    slide-tone: true
    progress: false
    theme: default
    loop: true
    shuffle: true
    transition: zoom
    auto-slide: 2000
    auto-slide-stoppable: false
    auto-play-media: true
    background-transition: convex
    auto-stretch: false
---


```{css, echo=FALSE}
.reveal h1 {
  font-size: 100px;
  font-style: italic;
  color: greenyellow;
  font-family: Arial;
  font-variant: small-caps;
}
```

```{r}
#| output: asis
img_files <- fs::dir_ls("images", glob="*")
back_files <- fs::dir_ls("background", glob="*")
quotes_list <- readLines("quotes.txt")



for (img in img_files) {
  for (back in back_files){
    for (quote in quotes_list){
   cat("# ", quote, "{background-image='",back,"'}", "\n",
    glue::glue("![]({img})"), "{fig-align='center' .r-stretch}\n\n",
    sep = "")
  }
  }
}


```