remove prompt without restart needed (closes #58)

R/prompt.R

@@ -111,8 +111,9 @@ prompt_remove <- function(role) {
   path <- prompt_locate(role)
   file.remove(path)
 
-  # TODO: this doesn't do enough to remove s.t. a new
-  # prompt with the same role can be added
+  pal_env <- pal_env()
+  rlang::env_unbind(pal_env, paste0(".pal_prompt_", role))
+  rlang::env_unbind(pal_env, paste0(".pal_rs_", role))
 
   invisible(path)
 }

tests/testthat/test-prompt.R

@@ -116,6 +116,19 @@ test_that("new prompts error informatively with bad pre-fill contents", {
   )
 })
 
+test_that("prompts can be added, removed, and added again without restart (#58)", {
+  skip_if_offline()
+  # contains two prompts, `boop-replace` and `wop-prefix`
+  withr::local_options(.pal_dir = "test-prompt-dir")
+  testthat::local_mocked_bindings(interactive = function(...) {FALSE})
+  withr::defer(prompt_remove("template"))
+
+  path <- prompt_new("template", "prefix")
+  prompt_remove("template")
+  prompt_new("template", "prefix")
+
+  expect_true(file.exists(path))
+})
 
 test_that("is_markdown_file works", {
   expect_true(is_markdown_file("some_file.md"))