Add index file

index.qmd

@@ -0,0 +1,48 @@
+---
+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 = "")
+  }
+  }
+}
+
+
+```