R/get_stylesheet.R

In zkamvar/up2code: Explore and Manipulate Markdown Curricula from the Carpentries

get_stylesheet <- function(sheet = "xml2md_gfm_kramdown.xsl", import = tinkr::stylesheet()) {
  tink <- xml2::url_escape(fs::path_real(import), reserved = c("/:\\"))
  ours <- system.file("stylesheets", sheet, package = "pegboard")
  styl <- readLines(ours)
  styl <- sub(
    'import href="FIXME"',
    glue::glue('import href="{tink}"'),
    styl,
    fixed = TRUE
  )
  f <- fs::file_temp()
  writeLines(styl, f)
  f
}