| source("R/make_functions.R") | source("R/make_functions.R") | ||||
| dir_delete("dist") | |||||
| dir_create("dist") | dir_create("dist") | ||||
| cli_alert_info("Prepping base16 themes...") | cli_alert_info("Prepping base16 themes...") | ||||
| file_delete(dir_ls("src", regexp = "base16.+scss$")) | |||||
| dir_ls("src/palettes/base16/", regexp = "_base16.+scss") %>% | dir_ls("src/palettes/base16/", regexp = "_base16.+scss") %>% | ||||
| walk(base16_make_theme) | walk(base16_make_theme) | ||||
| cli_alert_success("Reloading {strong {current_theme}}") | cli_alert_success("Reloading {strong {current_theme}}") | ||||
| rstudioapi::applyTheme(current_theme) | rstudioapi::applyTheme(current_theme) | ||||
| } else { | } else { | ||||
| cli_alert_info("Use {code {fun list_sassy_themes}} to list Sassy RStudio themes") | |||||
| if (interactive()) { | |||||
| cli_alert_info("Use {code {fun list_sassy_themes}} to list Sassy RStudio themes") | |||||
| } | |||||
| cli_alert_info("Use {code {fun rstudioapi::applyTheme}} to enable the above themes") | cli_alert_info("Use {code {fun rstudioapi::applyTheme}} to enable the above themes") | ||||
| } | } |