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