Add base16 themes

From https://github.com/samme/base16-styles

R/make_functions.R

@@ -4,7 +4,7 @@ render_sass <- function(file, output = NULL, outdir = "dist") {
     fs::path_ext(output) <- "rstheme"
   }
   output <- fs::path(outdir, output)
-  cliapp::cli_alert_success("{path {fs::path_rel(file, getwd())}}")
+  # cliapp::cli_alert_success("{path {fs::path_rel(file, getwd())}}")
   sass::sass(sass::sass_file(paste(file)), output = output)
 }
 
@@ -19,10 +19,38 @@ get_theme_name <- function(file) {
 }
 
 cp_to_rstudio <- function(file) {
-  cliapp::cli_alert("{arg \"{get_theme_name(file)}\"}")
+  # cliapp::cli_alert("{arg \"{get_theme_name(file)}\"}")
   fs::file_copy(
     file, 
     fs::path_home_r(".R", "rstudio", "themes", fs::path_file(file)),
     overwrite = TRUE
   )
+}
+
+make_base16_theme <- function(palette_file) {
+  base16_palette <- fs::path_file(palette_file)
+  base16_info          <- get_base16_theme_info(palette_file)
+  base16_attribution   <- base16_info$attribution
+  base16_rstudio_style <- base16_info$rstudio_style
+  base16_name          <- base16_info$name
+  
+  base16_theme <- whisker::whisker.render(
+    readLines(here::here("src/base16/base16_template.scss"), warn = FALSE)
+  )
+  
+  base16_theme_file <- sub("^_", "", base16_palette)
+  # cliapp::cli_alert("Creating src/{arg {base16_theme_file}}")
+  writeLines(base16_theme, fs::path(here::here("src", base16_theme_file)))
+}
+
+get_base16_theme_info <- function(palette_file) {
+  info <- list()
+  base16_meta <- readLines(palette_file, n = 2)
+  info$attribution <- base16_meta[1]
+  info$rstudio_style <- base16_meta[2]
+  if (base16_meta[2] == "") {
+    info$rstudio_style <- "/* rs-theme-is-dark: TRUE */"
+  }
+  info$name <- stringr::str_match(info$attribution, "\\s*([\\w ]+) by")[1, 2]
+  info
 }

README.Rmd

@@ -47,4 +47,30 @@ for (theme in names(themes)) {
     )
   print(g)
 }
+```
+
+### Base 16 Palettes
+
+```{r base16, fig.width=10, fig.height=4}
+base16_palettes <- fs::dir_ls(here::here("src", "palettes", "base16"), regexp = "_base16")
+for (base16_pal in base16_palettes) {
+  base16_info <- get_base16_theme_info(base16_pal)
+  attribution <- stringr::str_remove_all(base16_info$attribution, "(\\s*?(/?\\*/?)\\s*?)")
+  attribution <- stringr::str_split(attribution, "by")[[1]]
+  attribution <- stringr::str_trim(attribution)
+  attribution_subtitle <- NULL
+  if (length(attribution) == 2) {
+    attribution_subtitle <- attribution[2]
+  }
+  attribution <- paste("base16", attribution[1])
+  colors <- read_colors(base16_pal)
+  g <- show_colors(colors, ncol = 8) +
+    ggtitle(attribution, if (!is.null(attribution_subtitle)) attribution_subtitle) +
+    coord_equal() +
+    theme(
+      plot.title = element_text(size = rel(2), hjust = 0.5, margin = margin(t = 20, b = 10)),
+      plot.subtitle = element_text(hjust = 0.5, margin = margin(b = 10))
+    )
+  print(g)
+}
 ```

README.md

@@ -8,9 +8,12 @@
 <!-- badges: end -->
 
 `rstudio-scss` provides SCSS/SASS templates for full RStudio themes for
-RStudio version 1.2 (and possibly RStudio
-1.2+).
+RStudio version 1.2 (and possibly RStudio 1.2+).
 
 ## Palettes
 
 ![](docs/palettes-1.png)<!-- -->![](docs/palettes-2.png)<!-- -->![](docs/palettes-3.png)<!-- -->![](docs/palettes-4.png)<!-- -->![](docs/palettes-5.png)<!-- -->
+
+### Base 16 Palettes
+
+![](docs/base16-1.png)<!-- -->![](docs/base16-2.png)<!-- -->![](docs/base16-3.png)<!-- -->![](docs/base16-4.png)<!-- -->![](docs/base16-5.png)<!-- -->![](docs/base16-6.png)<!-- -->![](docs/base16-7.png)<!-- -->![](docs/base16-8.png)<!-- -->![](docs/base16-9.png)<!-- -->![](docs/base16-10.png)<!-- -->![](docs/base16-11.png)<!-- -->![](docs/base16-12.png)<!-- -->![](docs/base16-13.png)<!-- -->![](docs/base16-14.png)<!-- -->![](docs/base16-15.png)<!-- -->![](docs/base16-16.png)<!-- -->![](docs/base16-17.png)<!-- -->![](docs/base16-18.png)<!-- -->![](docs/base16-19.png)<!-- -->![](docs/base16-20.png)<!-- -->![](docs/base16-21.png)<!-- -->![](docs/base16-22.png)<!-- -->![](docs/base16-23.png)<!-- -->![](docs/base16-24.png)<!-- -->![](docs/base16-25.png)<!-- -->![](docs/base16-26.png)<!-- -->![](docs/base16-27.png)<!-- -->![](docs/base16-28.png)<!-- -->![](docs/base16-29.png)<!-- -->![](docs/base16-30.png)<!-- -->![](docs/base16-31.png)<!-- -->![](docs/base16-32.png)<!-- -->![](docs/base16-33.png)<!-- -->![](docs/base16-34.png)<!-- -->![](docs/base16-35.png)<!-- -->![](docs/base16-36.png)<!-- -->![](docs/base16-37.png)<!-- -->![](docs/base16-38.png)<!-- -->![](docs/base16-39.png)<!-- -->![](docs/base16-40.png)<!-- -->![](docs/base16-41.png)<!-- -->![](docs/base16-42.png)<!-- -->![](docs/base16-43.png)<!-- -->![](docs/base16-44.png)<!-- -->![](docs/base16-45.png)<!-- -->![](docs/base16-46.png)<!-- -->![](docs/base16-47.png)<!-- -->![](docs/base16-48.png)<!-- -->![](docs/base16-49.png)<!-- -->![](docs/base16-50.png)<!-- -->![](docs/base16-51.png)<!-- -->![](docs/base16-52.png)<!-- -->![](docs/base16-53.png)<!-- -->![](docs/base16-54.png)<!-- -->![](docs/base16-55.png)<!-- -->![](docs/base16-56.png)<!-- -->![](docs/base16-57.png)<!-- -->![](docs/base16-58.png)<!-- -->![](docs/base16-59.png)<!-- -->![](docs/base16-60.png)<!-- -->![](docs/base16-61.png)<!-- -->![](docs/base16-62.png)<!-- -->![](docs/base16-63.png)<!-- -->![](docs/base16-64.png)<!-- -->![](docs/base16-65.png)<!-- -->![](docs/base16-66.png)<!-- -->![](docs/base16-67.png)<!-- -->![](docs/base16-68.png)<!-- -->![](docs/base16-69.png)<!-- -->![](docs/base16-70.png)<!-- -->![](docs/base16-71.png)<!-- -->![](docs/base16-72.png)<!-- -->![](docs/base16-73.png)<!-- -->![](docs/base16-74.png)<!-- -->![](docs/base16-75.png)<!-- -->

dist/nord-snow-storm.rstheme

@@ -258,12 +258,12 @@
 /* ---- RStudio Theme ---- */
 /* background */
 .rstudio-themes-flat .rstudio-themes-default {
-  background: #f9fafb !important;
+  background: #fafafa !important;
   color: #4c566a !important;
 }
 
 .rstudio-themes-flat .rstudio-themes-default .rstudio-themes-background {
-  background: #f9fafb !important;
+  background: #fafafa !important;
 }
 
 /* inactive tabs */