|
|
|
@@ -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") |
|
|
|
} |