---
title: ""
format:
  revealjs:
    slide-tone: false
    progress: false
    theme: [default, style.scss]
    loop: true
    shuffle: true
    transition: zoom
    auto-slide: 3500
    auto-slide-stoppable: false
    auto-play-media: true
    background-transition: convex
    auto-stretch: false
    
---

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

if (Sys.Date() == "2025-07-10") {
    img_files <- fs::dir_ls("birthday", glob = "*")
    quote <- "Joyeux anniversaire Camille ! 🎁 🍰"
    for (img in img_files) {
        for (back in back_files) {
                cat("# ", quote, " {background-image='", back, "' background-repeat='", ifelse(back == "background/miaps.png", "repeat", "no-repeat"), "' background-size='", ifelse(back == "background/miaps.png", "400px", "100%"), "'}", "\n",
                    glue::glue("![]({img})"), "{fig-align='center' .r-stretch}\n\n",
                    sep = ""
                )
        }
    }
} else {
    for (img in img_files) {
        for (back in back_files) {
            for (quote in quotes_list) {
                cat("# ", quote, " {background-image='", back, "' background-repeat='", ifelse(back == "background/miaps.png", "repeat", "no-repeat"), "' background-size='", ifelse(back == "background/miaps.png", "400px", "100%"), "'}", "\n",
                    glue::glue("![]({img})"), "{fig-align='center' .r-stretch}\n\n",
                    sep = ""
                )
            }
        }
    }
}
```