Rename base16_...() functions

R/make_functions.R

@@ -46,9 +46,9 @@ cp_to_rstudio <- function(file) {
   )
 }
 
-make_base16_theme <- function(palette_file) {
+base16_make_theme <- function(palette_file) {
   base16_palette <- fs::path_file(palette_file)
-  base16_info          <- get_base16_theme_info(palette_file)
+  base16_info          <- base16_get_theme_info(palette_file)
   base16_attribution   <- base16_info$attribution
   base16_name          <- base16_info$name
   if (base16_info$isDark) base16_rstudio_style <- base16_info$rstudio_style
@@ -62,7 +62,7 @@ make_base16_theme <- function(palette_file) {
   writeLines(base16_theme, fs::path(here::here("src", base16_theme_file)))
 }
 
-get_base16_theme_info <- function(palette_file) {
+base16_get_theme_info <- function(palette_file) {
   info <- list()
   base16_meta <- readLines(palette_file, n = 2)
   info$attribution <- base16_meta[1]

make.R

@@ -10,7 +10,7 @@ dir_create("dist")
 
 cli_alert_info("Prepping base16 themes...")
 dir_ls("src/palettes/base16/", regexp = "_base16.+scss") %>% 
-  walk(make_base16_theme)
+  walk(base16_make_theme)
 
 cli_alert_info("Compiling themes...")
 dir_ls("src", regexp = "^[^_].+\\.scss") %>%