Reload current theme on make if Sassy

make.R

@@ -16,8 +16,15 @@ cli_alert_info("Compiling themes...")
 dir_ls("src", regexp = "^[^_].+\\.scss") %>%
   walk(render_sass)
 
-cli_alert_info('Installing themes to {path {path_home_r(".R", "rstudio", "themes")}}')
+cli_alert_success('Installing themes to {path {path_home_r(".R", "rstudio", "themes")}}')
 dir_ls("dist", regexp = "\\.rstheme") %>%
   walk(cp_to_rstudio)
 
-cli_alert_success("Use {code {fun rstudioapi::applyTheme}} to enable the above themes")
+current_theme <- rstudioapi::getThemeInfo()$editor
+if (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")
+  cli_alert_info("Use {code {fun rstudioapi::applyTheme}} to enable the above themes")
+}