* Use `inverse_text_color` as the default for `inverse_header_color` in most places

Fixes #60

R/style_duo.R

@@ -81,7 +81,7 @@
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
 #' @param inverse_header_color Inverse Header Color. Defaults to
-#'   `primary_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
 #'   classes. The value of this variable is also stored as a CSS variable that
 #'   can be referenced with `var(--inverse-header-color)` in any argument of a
 #'   style function or in custom CSS.
@@ -295,7 +295,7 @@ style_duo <- function(
   inverse_background_color = secondary_color,
   inverse_text_color = primary_color,
   inverse_text_shadow = FALSE,
-  inverse_header_color = primary_color,
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = secondary_color,
   title_slide_background_color = primary_color,

R/style_duo_accent.R

@@ -92,11 +92,10 @@
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
 #' @param inverse_header_color Inverse Header Color. Defaults to
-#'   `choose_dark_or_light(secondary_color, black_color, white_color)`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -309,7 +308,7 @@ style_duo_accent <- function(
   inverse_background_color = secondary_color,
   inverse_text_color = choose_dark_or_light(secondary_color, black_color, white_color),
   inverse_text_shadow = FALSE,
-  inverse_header_color = choose_dark_or_light(secondary_color, black_color, white_color),
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = choose_dark_or_light(primary_color, black_color, white_color),
   title_slide_background_color = primary_color,

R/style_duo_accent_inverse.R

@@ -92,11 +92,10 @@
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
 #' @param inverse_header_color Inverse Header Color. Defaults to
-#'   `choose_dark_or_light(secondary_color, black_color, white_color)`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -310,7 +309,7 @@ style_duo_accent_inverse <- function(
   inverse_background_color = secondary_color,
   inverse_text_color = choose_dark_or_light(secondary_color, black_color, white_color),
   inverse_text_shadow = FALSE,
-  inverse_header_color = choose_dark_or_light(secondary_color, black_color, white_color),
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = choose_dark_or_light(primary_color, black_color, white_color),
   title_slide_background_color = primary_color,

R/style_mono_accent.R

@@ -83,11 +83,11 @@
 #'   in any argument of a style function or in custom CSS.
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
-#' @param inverse_header_color Inverse Header Color. Defaults to `white_color`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#' @param inverse_header_color Inverse Header Color. Defaults to
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -299,7 +299,7 @@ style_mono_accent <- function(
   inverse_background_color = base_color,
   inverse_text_color = white_color,
   inverse_text_shadow = FALSE,
-  inverse_header_color = white_color,
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = inverse_text_color,
   title_slide_background_color = inverse_background_color,

R/style_mono_accent_inverse.R

@@ -84,11 +84,11 @@
 #'   in any argument of a style function or in custom CSS.
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
-#' @param inverse_header_color Inverse Header Color. Defaults to `black_color`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#' @param inverse_header_color Inverse Header Color. Defaults to
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -300,7 +300,7 @@ style_mono_accent_inverse <- function(
   inverse_background_color = base_color,
   inverse_text_color = black_color,
   inverse_text_shadow = FALSE,
-  inverse_header_color = black_color,
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = inverse_text_color,
   title_slide_background_color = inverse_background_color,

R/style_mono_dark.R

@@ -85,11 +85,11 @@
 #'   in any argument of a style function or in custom CSS.
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
-#' @param inverse_header_color Inverse Header Color. Defaults to `black_color`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#' @param inverse_header_color Inverse Header Color. Defaults to
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -301,7 +301,7 @@ style_mono_dark <- function(
   inverse_background_color = base_color,
   inverse_text_color = black_color,
   inverse_text_shadow = FALSE,
-  inverse_header_color = black_color,
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = inverse_text_color,
   title_slide_background_color = inverse_background_color,

R/style_mono_light.R

@@ -85,11 +85,11 @@
 #'   in any argument of a style function or in custom CSS.
 #' @param inverse_text_shadow Enables Shadow on text of inverse slides.
 #'   Defaults to `FALSE`. Modifies the `.inverse` class.
-#' @param inverse_header_color Inverse Header Color. Defaults to `white_color`.
-#'   Modifies the `.inverse h1, .inverse h2, .inverse h3` classes. The value of
-#'   this variable is also stored as a CSS variable that can be referenced with
-#'   `var(--inverse-header-color)` in any argument of a style function or in
-#'   custom CSS.
+#' @param inverse_header_color Inverse Header Color. Defaults to
+#'   `inverse_text_color`. Modifies the `.inverse h1, .inverse h2, .inverse h3`
+#'   classes. The value of this variable is also stored as a CSS variable that
+#'   can be referenced with `var(--inverse-header-color)` in any argument of a
+#'   style function or in custom CSS.
 #' @param inverse_link_color Inverse Link Color. Defaults to `link_color`.
 #'   Modifies the `.inverse a, .inverse a > code` classes. The value of this
 #'   variable is also stored as a CSS variable that can be referenced with
@@ -301,7 +301,7 @@ style_mono_light <- function(
   inverse_background_color = base_color,
   inverse_text_color = white_color,
   inverse_text_shadow = FALSE,
-  inverse_header_color = white_color,
+  inverse_header_color = inverse_text_color,
   inverse_link_color = link_color,
   title_slide_text_color = inverse_text_color,
   title_slide_background_color = inverse_background_color,

data-raw/theme_template_variables.R

@@ -122,7 +122,7 @@ template_mono_light <- set_default(
   code_inline_color               = "{base_color}",
   inverse_background_color        = "{base_color}",
   inverse_text_color              = "{white_color}",
-  inverse_header_color            = "{white_color}",
+  inverse_header_color            = "{inverse_text_color}",
   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",
   left_column_selected_color      = "{base_color}",
   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",
@@ -146,7 +146,7 @@ template_mono_dark <- set_default(
   code_inline_color               = "{base_color}",
   inverse_background_color        = "{base_color}",
   inverse_text_color              = "{black_color}",
-  inverse_header_color            = "{black_color}",
+  inverse_header_color            = "{inverse_text_color}",
   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",
   left_column_selected_color      = "{base_color}",
   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",
@@ -170,7 +170,7 @@ template_mono_accent <- set_default(
   code_inline_color               = "{base_color}",
   inverse_background_color        = "{base_color}",
   inverse_text_color              = "{white_color}",
-  inverse_header_color            = "{white_color}",
+  inverse_header_color            = "{inverse_text_color}",
   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",
   left_column_selected_color      = "{base_color}",
   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",
@@ -194,7 +194,7 @@ template_mono_accent_inverse <- set_default(
   code_inline_color               = "{base_color}",
   inverse_background_color        = "{base_color}",
   inverse_text_color              = "{black_color}",
-  inverse_header_color            = "{black_color}",
+  inverse_header_color            = "{inverse_text_color}",
   left_column_subtle_color        = "{apply_alpha(base_color, 0.6)}",
   left_column_selected_color      = "{base_color}",
   blockquote_left_border_color    = "{apply_alpha(base_color, 0.5)}",
@@ -219,7 +219,7 @@ template_duo_light <- set_default(
   code_inline_color               = "{secondary_color}",
   inverse_background_color        = "{primary_color}",
   inverse_text_color              = "{secondary_color}",
-  inverse_header_color            = "{secondary_color}",
+  inverse_header_color            = "{inverse_text_color}",
   left_column_subtle_color        = "{apply_alpha(secondary_color, 0.6)}",
   left_column_selected_color      = "{secondary_color}",
   blockquote_left_border_color    = "{apply_alpha(secondary_color, 0.5)}",
@@ -242,7 +242,7 @@ template_duo <- set_default(
   code_inline_color               = "{secondary_color}",
   inverse_background_color        = "{secondary_color}",
   inverse_text_color              = "{primary_color}",
-  inverse_header_color            = "{primary_color}",
+  inverse_header_color            = "{inverse_text_color}",
   title_slide_text_color          = "{secondary_color}",
   title_slide_background_color    = "{primary_color}",
   left_column_subtle_color        = "{apply_alpha(secondary_color, 0.6)}",
@@ -269,7 +269,7 @@ template_duo_accent <- set_default(
   code_inline_color               = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}",
   inverse_background_color        = "{secondary_color}",
   inverse_text_color              = "{choose_dark_or_light(secondary_color, black_color, white_color)}",
-  inverse_header_color            = "{choose_dark_or_light(secondary_color, black_color, white_color)}",
+  inverse_header_color            = "{inverse_text_color}",
   title_slide_background_color    = "{primary_color}",
   title_slide_text_color          = "{choose_dark_or_light(primary_color, black_color, white_color)}",
   left_column_subtle_color        = "{apply_alpha(primary_color, 0.6)}",
@@ -288,7 +288,7 @@ template_duo_accent_inverse <- set_default(
   code_inline_color               = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}",
   inverse_background_color        = "{secondary_color}",
   inverse_text_color              = "{choose_dark_or_light(secondary_color, black_color, white_color)}",
-  inverse_header_color            = "{choose_dark_or_light(secondary_color, black_color, white_color)}",
+  inverse_header_color            = "{inverse_text_color}",
   title_slide_background_color    = "{primary_color}",
   title_slide_text_color          = "{choose_dark_or_light(primary_color, black_color, white_color)}",
   left_column_subtle_color        = "{apply_alpha(primary_color, 0.6)}",