Add extra_fonts paramater and template variable

R/duo.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/duo_accent.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/duo_accent_inverse.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/mono_accent.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/mono_accent_inverse.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/mono_dark.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/mono_light.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/solarized_dark.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/solarized_light.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # DO NOT EDIT - Generated from inst/scripts/generate_theme_functions.R

R/write_extra_css.R

     )
   })
 }
+
+list2fonts <- function(fonts) {
+  fonts <- purrr::map_chr(fonts, function(f) {
+    if (inherits(f, "google_font")) {
+      f$url
+    } else if (inherits(f, "character")) {
+      f
+    } else NA_character_
+  })
+  paste0("@import url(", fonts[!is.na(fonts)], ");")
+}

R/write_theme.R

   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco",
   extra_css = NULL,
+  extra_fonts = NULL,
   outfile = "xaringan-themer.css"
 ) {
   # Make sure font names are wrapped in quotes if they have spaces
     }
   }
   
+  extra_font_imports <- if (is.null(extra_fonts)) "" else list2fonts(extra_fonts)
+  
   tf <- system.file("resources", "template.css", package = "xaringanthemer")
   template <- readLines(tf, warn = FALSE)
   template <- paste(template, collapse = "\n")

README.Rmd

 )
 ```
 
+If you need to import additional fonts for use in [custom CSS definitions](#adding-custom-css), you can use the `extra_fonts` argument to pass a list of URLs or `google_font()`s.
+
+```r
+mono_light(
+  extra_fonts = list(google_font("Sofia")),
+  extra_css = list(".title-slide h2" = list("font-family" = "Sofia"))
+)
+```
+
 ***
 
 **xaringanthemer** was built by [Garrick Aden-Buie](https://www.garrickadenbuie.com) ([@grrrck](https://twitter.com/grrrck)).

README.md

   - `text_bold_color`
   - `text_slide_number_color`
   - `text_size`
-  - `text_size_h1`
+  - `text_slide_number_font_size`
   - *and more …*
 
 And here are the title slide theme options:
 )
 ```
 
+If you need to import additional fonts for use in [custom CSS
+definitions](#adding-custom-css), you can use the `extra_fonts` argument
+to pass a list of URLs or `google_font()`s.
+
+``` r
+mono_light(
+  extra_fonts = list(google_font("Sofia")),
+  extra_css = list(".title-slide h2" = list("font-family" = "Sofia"))
+)
+```
+
 -----
 
 **xaringanthemer** was built by [Garrick

inst/resources/template.css

 @import url({{text_font_url}});
 @import url({{header_font_url}});
 @import url({{code_font_url}});
+{{extra_font_imports}}
 
 body {
   font-family: {{paste(text_font_family, text_font_family_fallback, text_font_base, sep = ", ")}};

inst/scripts/generate_theme_functions.R

     as.character(glue::glue_data(
       tv, "  {variable} = {ifelse(!stringr::str_detect(default, '^[{].+[}]$'), paste0('\"', default, '\"'), stringr::str_replace_all(default, '[{}]', ''))},")) %,%
     "  extra_css = NULL," %,%
+    "  extra_fonts = NULL," %,%
     "  outfile = \"xaringan-themer.css\"" %,%
     ") {"
   if (!is.null(body)) x <- c(x, body, "}")

inst/scripts/write_xaringan_theme_body.R

   }
 }
 
+extra_font_imports <- if (is.null(extra_fonts)) "" else list2fonts(extra_fonts)
+
 tf <- system.file("resources", "template.css", package = "xaringanthemer")
 template <- readLines(tf, warn = FALSE)
 template <- paste(template, collapse = "\n")

man-roxygen/extra_css.R

 #' @param extra_css A named list of CSS definitions each containing a named list
 #'   of CSS property-value pairs, i.e.
 #'   \code{list(".class-id" = list("css-property" = "value"))}
+#' @param extra_fonts A list of additional fonts to import, each list element
+#'   can be either a URL as a character string or a call to
+#'   \code{\link{google_fonts}()}

man/duo.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{primary_color}{Duotone Primary Color, defaults to #1F4257}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/duo_accent.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{primary_color}{Duotone Primary Color, defaults to #006747}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/duo_accent_inverse.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{primary_color}{Duotone Primary Color, defaults to #006747}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/mono_accent.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{base_color}{Monotone Base Color, works best with a strong color., defaults to #43418A}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/mono_accent_inverse.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{base_color}{Monotone Base Color, works best with a light color., defaults to #3C989E}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/mono_dark.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{base_color}{Monotone Base Color, works best with a light color., defaults to #cbf7ed}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/mono_light.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{base_color}{Monotone base color, works best with a strong color, defaults to #23395b}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/solarized_dark.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{text_color}{Text Color, defaults to #839496}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/solarized_light.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{text_color}{Text Color, defaults to #657b83}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{

man/write_xaringan_theme.Rd

   code_font_google = NULL, code_font_family = "'Source Code Pro'",
   code_font_url = "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700",
   code_font_family_fallback = "'Lucida Console', Monaco", extra_css = NULL,
-  outfile = "xaringan-themer.css")
+  extra_fonts = NULL, outfile = "xaringan-themer.css")
 }
 \arguments{
 \item{text_color}{Text Color, defaults to #000}
 of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
+\item{extra_fonts}{A list of additional fonts to import, each list element
+can be either a URL as a character string or a call to
+\code{\link{google_fonts}()}}
+
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
 }
 \description{