rstudio-scss/make.R

#! /usr/bin/env Rscript
library(sass)
library(fs)
library(purrr)
library(cliapp)

render_sass <- function(file, output = NULL, outdir = "dist") {
  if (is.null(output)) {
    output <- path_file(file)
    path_ext(output) <- "rstheme"
  }
  output <- path(outdir, output)
  cli_alert_success("{path {path_rel(file, getwd())}}")
  sass(sass_file(paste(file)), output = output)
}

dir_create("dist")

cli_alert_info("Compiling themes...")
dir_ls("src", regexp = "^[^_].+\\.scss") %>%
  walk(render_sass)

cp_to_rstudio <- function(file) {
  cli_alert("{path {path_file(file)}}")
  file_copy(
    file, 
    path_home_r(".R", "rstudio", "themes", path_file(file)),
    overwrite = TRUE
  )
}

cli_alert_info('Installing themes to {path {path_home_r(".R", "rstudio", "themes")}}')
dir_ls("dist", regexp = "\\.rstheme") %>%
  walk(cp_to_rstudio)