diff --git a/index.qmd b/index.qmd index c5c1b2c..ca8867e 100644 --- a/index.qmd +++ b/index.qmd @@ -28,20 +28,21 @@ format: ```{r} #| output: asis -img_files <- fs::dir_ls("images", glob="*") -back_files <- fs::dir_ls("background", glob="*") +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 = "") - } - } + 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 = "" + ) + } + } }