Write rename funciton

Fixes tidyverse#151
soodoku · Jul 25, 2023 · 07457af · 07457af
1 parent e9baddd
commit 07457af
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 57 deletions.
diff --git a/args-data-details.qmd b/args-data-details.qmd
diff --git a/common.R b/common.R
@@ -7,3 +7,23 @@ options(
   rlang_trace_top_env = rlang::current_env(),
   rlang_backtrace_on_error = "none"
 )
+
+rename <- function(old, new) {
+  old_path <- fs::path_ext_set(old, "qmd")
+  new_path <- fs::path_ext_set(new, "qmd")
+
+  fs::file_move(old_path, new_path)
+  quarto <- readLines("_quarto.yml")
+  quarto <- gsub(old_path, new_path, quarto, fixed = TRUE)
+  writeLines(quarto, "_quarto.yml")
+
+  old_slug <- paste0("sec-", old)
+  new_slug <- paste0("sec-", new)
+
+  qmd_paths <- dir(pattern = ".qmd$")
+  qmds <- lapply(qmd_paths, readLines)
+  qmds <- lapply(qmds, \(lines) gsub(old_slug, new_slug, lines, fixed = TRUE))
+  purrr:::map2(qmds, qmd_paths, \(lines, path) writeLines(lines, path))
+
+  invisible()
+}