Fix base16 name extraction regex

R/make_functions.R

@@ -70,6 +70,7 @@ get_base16_theme_info <- function(palette_file) {
   if (base16_meta[2] == "") {
     info$rstudio_style <- "/* rs-theme-is-dark: TRUE */"
   }
-  info$name <- stringr::str_match(info$attribution, "\\s*([\\w ]+) by")[1, 2]
+  rgx_name <- "/\\*\\s*([[:alpha:][:punct:] ]+) by"
+  info$name <- stringr::str_match(info$attribution, rgx_name)[1, 2]
   info
 }