Pour anniversaire

index.qmd

@@ -4,7 +4,7 @@ format:
   revealjs:
     slide-tone: true
     progress: false
-    theme: default
+    theme: [default, style.scss]
     loop: true
     shuffle: true
     transition: zoom
@@ -13,28 +13,26 @@ format:
     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) {
+if (Sys.Date() == "2025-07-10" || TRUE) {
+    img <- "birthday/camille.jpg"
+    quote <- "Joyeux anniversaire Camille ! 🎁 🍰"
+        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",
@@ -43,7 +41,7 @@ for (img in img_files) {
                 )
             }
         }
+    }
 }
 
-
 ```

style.scss

@@ -0,0 +1,7 @@
+/*-- scss:rules --*/
+.reveal h1 {
+    font-size: 100px;
+    font-style: italic;
+    color: greenyellow;
+    font-family: Arial;
+    font-variant: small-caps; }