In damarals/gospel.slides: Slides Gospel

options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
  fig.width=9, fig.height=3.5, fig.retina=3,
  out.width = "100%",
  cache = FALSE,
  echo = TRUE,
  message = FALSE, 
  warning = FALSE,
  hiline = TRUE
)

xaringanExtra::use_animate_all("fade")

library(xaringanthemer)
style_duo_accent(
  background_image = "assets/img/default-bg.jpg",
  title_slide_text_color = "#FFFFFF",
  inverse_header_color = "#FFFFFF"
)

lyric <- params$set_lyric |> 
  stringr::str_replace_all("\n{2,}", "#") |> 
  stringr::str_replace_all("\n", "<br>") |> 
  stringr::str_replace_all(",(?=\\w)", ", ") |> 
  {\(s) stringr::str_c("#", s)}() |> 
  stringr::str_split("(?=#)", simplify = TRUE) |> 
  stringi::stri_remove_empty() |> 
  stringr::str_remove_all('(?<=#)<br>')

for(el in lyric) {
  cat("class: inverse center middle", sep = "\n")
  verse_split <- stringr::str_split(stringr::str_remove(el, "#"), ". ", 
                                    n = 2, simplify = TRUE)
  cat(paste0("# ", verse_split[2]), sep = "\n")
  cat(glue::glue("## {params$set_artist} {params$set_music}:{verse_split[1]} (ACF)"), 
      sep = "\n")
  if(el != tail(lyric, 1)) cat("---", sep = "\n")
}