# Generate different themed versions of slides
# WITH and WITHOUT style.css
# (on light background do NOT want light text)
themes <- c("beige", "black", "blood", "league",
# "moon" is the default
"night", "simple", "sky", "solarized",
"white")
style <- readLines("style.css")
cutLine <- grep("Styling below is for dark background", style)
writeLines(style[1:cutLine], "style-light.css")
html <- readLines("index.html")
for (i in themes) {
htmlTheme <- gsub("moon.css", paste0(i, ".css"), html)
writeLines(htmlTheme, paste0("index-theme-", i, ".html"))
htmlLightStyle <- gsub('',
'',
gsub('',
'',
htmlTheme))
writeLines(htmlLightStyle,
paste0("index-theme-", i, "-no-style.html"))
}