Clarify prompt text in try_rsthemes() for #3

Restore current theme on exit if user cycles through all themes

Prompt after all themes, including last

R/rsthemes.R

@@ -124,16 +124,18 @@ try_rsthemes <- function(
     rstudioapi::applyTheme(theme)
     if (delay > 0) {
       Sys.sleep(delay)
-    } else if (theme != themes[length(themes)]) {
-      res <- readline("Press [enter] for next, [k] to keep, [q] to quit...")
-      if (tolower(res) == "k") return(invisible())
-      if (tolower(res) == "q") {
-        message("Restoring \"", current_theme$editor, "\"")
-        rstudioapi::applyTheme(current_theme$editor)
-        return(invisible())
+    } else {
+      if (theme != themes[length(themes)]) {
+        res <- readline("Enter [blank] for next, [k] to keep, [q] to quit: ")
+      } else {
+        res <- readline("Enter [blank] or [q] to quit, [k] to keep: ")
       }
+      if (tolower(res) == "k") return(invisible())
+      if (tolower(res) == "q") break
     }
   }
+  message("Restoring \"", current_theme$editor, "\"")
+  rstudioapi::applyTheme(current_theme$editor)
 }
 
 #' @describeIn rsthemes List style options