48 lines
No EOL
1.6 KiB
Text
48 lines
No EOL
1.6 KiB
Text
---
|
|
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(""), "{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(""), "{fig-align='center' .r-stretch}\n\n",
|
|
sep = ""
|
|
)
|
|
}
|
|
}
|
|
}
|
|
}
|
|
``` |