# 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('<link rel="stylesheet" href="style.css">',
                           '<link rel="stylesheet" href="style-light.css">',
                           gsub('<link rel="stylesheet" href="lib/css/zenburn.css">',
                                '<link rel="stylesheet" href="lib/css/xcode.css">',
                                htmlTheme))
    writeLines(htmlLightStyle,
               paste0("index-theme-", i, "-no-style.html"))    
}