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

source("R/make_functions.R")

dir_create("dist")

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_info("Use {code {fun rstudioapi::applyTheme}} to enable the above themes")