rstudio-scss/make.R

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

source("R/make_functions.R")

dir_create("dist")

cli_alert_info("Prepping base16 themes...")
dir_ls("src/palettes/base16/", regexp = "_base16.+scss") %>% 
  walk(make_base16_theme)

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

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

cli_alert_success("Use {code {fun rstudioapi::applyTheme}} to enable the above themes")