| @@ -6,9 +6,11 @@ library(cliapp) | |||
| source("R/make_functions.R") | |||
| dir_delete("dist") | |||
| dir_create("dist") | |||
| cli_alert_info("Prepping base16 themes...") | |||
| file_delete(dir_ls("src", regexp = "base16.+scss$")) | |||
| dir_ls("src/palettes/base16/", regexp = "_base16.+scss") %>% | |||
| walk(base16_make_theme) | |||
| @@ -28,6 +30,8 @@ if (current_theme != "" && current_theme %in% list_sassy_themes()) { | |||
| cli_alert_success("Reloading {strong {current_theme}}") | |||
| rstudioapi::applyTheme(current_theme) | |||
| } 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") | |||
| } | |||