Add walk_sassy_themes()

R/make_functions.R

@@ -85,4 +85,18 @@ base16_get_theme_info <- function(palette_file) {
   rgx_name <- "/\\*\\s*([[:alpha:][:digit:][:punct:] ]+) by"
   info$name <- stringr::str_match(info$attribution, rgx_name)[1, 2]
   info
+}
+
+walk_sassy_themes <- function(style = c("all", "light", "dark"), auto = FALSE) {
+  themes <- list_sassy_themes(style)
+  for (theme in themes) {
+    cliapp::cli_alert(theme)
+    rstudioapi::applyTheme(theme)
+    if (auto) {
+      Sys.sleep(1)
+    } else {
+      res <- readline("Press enter for next theme or q to stop...")
+      if (tolower(res) == "q") return()
+    }
+  }
 }