+ 268
- 544
R/theme_settings.R
파일 보기
| template_variables <- tibble::tribble( | template_variables <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "text_color", | |||||
| "#000", | |||||
| "body", | |||||
| "Text Color", | |||||
| "header_color", | |||||
| "#000", | |||||
| "h1, h2, h3", | |||||
| "Header Color", | |||||
| "background_color", | |||||
| "#FFF", | |||||
| ".remark-slide-content", | |||||
| "Slide Background Color", | |||||
| "link_color", | |||||
| "rgb(249, 38, 114)", | |||||
| "a, a > code", | |||||
| "Link Color", | |||||
| "text_bold_color", | |||||
| NULL, | |||||
| "strong", | |||||
| "Bold Text Color", | |||||
| "text_slide_number_color", | |||||
| "{inverse_background_color}", | |||||
| ".remark-slide-number", | |||||
| "Slide Number Color", | |||||
| "padding", | |||||
| "1rem 4rem 1rem 4rem", | |||||
| ".remark-slide-content", | |||||
| "Slide Padding in `top right [bottom left]` format", | |||||
| "background_image", | |||||
| NULL, | |||||
| ".remark-slide-content", | |||||
| "Background image applied to each *and every* slide. Set `title_slide_background_image = \"none\"` to remove the background image from the title slide", | |||||
| "background_size", | |||||
| NULL, | |||||
| ".remark-slide-content", | |||||
| "Background image size, requires `background_image` to be set. If `background_image` is set, `background_size` will default to `cover` so the backround fills the screen. If both `background_image` and `background_position` are set, will default to 100 percent", | |||||
| "background_position", | |||||
| NULL, | |||||
| ".remark-slide-content", | |||||
| "Background image position, requires `background_image` to be set, and it is recommended to adjust `background_size`", | |||||
| "code_highlight_color", | |||||
| "rgba(255,255,0,0.5)", | |||||
| ".remark-code-line-highlighted", | |||||
| "Code Line Highlight", | |||||
| "code_inline_color", | |||||
| "#000", | |||||
| ".remark-inline-code", | |||||
| "Inline Code Color", | |||||
| "code_inline_background_color", | |||||
| NULL, | |||||
| ".remark-inline-code", | |||||
| "Inline Code Background Color", | |||||
| "code_inline_font_size", | |||||
| "1em", | |||||
| ".remark-inline-code", | |||||
| "Inline Code Text Font Size", | |||||
| "inverse_background_color", | |||||
| "#272822", | |||||
| ".inverse", | |||||
| "Inverse Background Color", | |||||
| "inverse_text_color", | |||||
| "#d6d6d6", | |||||
| ".inverse", | |||||
| "Inverse Text Color", | |||||
| "inverse_text_shadow", | |||||
| "{FALSE}", | |||||
| ".inverse", | |||||
| "Enables Shadow on text of inverse slides", | |||||
| "inverse_header_color", | |||||
| "#f3f3f3", | |||||
| ".inverse h1, .inverse h2, .inverse h3", | |||||
| "Inverse Header Color", | |||||
| "title_slide_text_color", | |||||
| "{inverse_text_color}", | |||||
| ".title-slide", | |||||
| "Title Slide Text Color", | |||||
| "title_slide_background_color", | |||||
| "{inverse_background_color}", | |||||
| ".title-slide", | |||||
| "Title Slide Background Color", | |||||
| "title_slide_background_image", | |||||
| NULL, | |||||
| ".title-slide", | |||||
| "Title Slide Background Image URL", | |||||
| "title_slide_background_size", | |||||
| NULL, | |||||
| ".title-slide", | |||||
| "Title Slide Background Image Size, defaults to \"cover\" if background image is set", | |||||
| "title_slide_background_position", | |||||
| NULL, | |||||
| ".title-slide", | |||||
| "Title Slide Background Image Position", | |||||
| "footnote_color", | |||||
| NULL, | |||||
| ".footnote", | |||||
| "Footnote text color (if `NA`, then it will be the same color as `text_color`)", | |||||
| "footnote_font_size", | |||||
| "0.9em", | |||||
| ".footnote", | |||||
| "Footnote font size", | |||||
| "footnote_position_bottom", | |||||
| "3em", | |||||
| ".footnote", | |||||
| "Footnote location from bottom of screen", | |||||
| "left_column_subtle_color", | |||||
| "#777", | |||||
| ".left-column h2, .left-column h3", | |||||
| "Left Column Text (not last)", | |||||
| "left_column_selected_color", | |||||
| "#000", | |||||
| ".left-column h2:last-of-type, .left-column h3:last-child", | |||||
| "Left Column Current Selection", | |||||
| "blockquote_left_border_color", | |||||
| "lightgray", | |||||
| "blockquote", | |||||
| "Blockquote Left Border Color", | |||||
| "table_border_color", | |||||
| "#666", | |||||
| "table: border-top, border-bottom", | |||||
| "Table top/bottom border", | |||||
| "table_row_border_color", | |||||
| "#ddd", | |||||
| "table thead th: border-bottom", | |||||
| "Table row inner bottom border", | |||||
| "table_row_even_background_color", | |||||
| "#eee", | |||||
| "thead, tfoot, tr:nth-child(even)", | |||||
| "Table Even Row Background Color", | |||||
| "text_font_size", | |||||
| "20px", | |||||
| ".remark-slide-content", | |||||
| "Slide Body Text Font Size", | |||||
| "header_h1_font_size", | |||||
| "55px", | |||||
| ".remark-slide-content h1", | |||||
| "h1 Header Text Font Size", | |||||
| "header_h2_font_size", | |||||
| "45px", | |||||
| ".remark-slide-content h2", | |||||
| "h2 Header Text Font Size", | |||||
| "header_h3_font_size", | |||||
| "35px", | |||||
| ".remark-slide-content h3", | |||||
| "h3 Header Text Font Size", | |||||
| "header_background_auto", | |||||
| "{FALSE}", | |||||
| "", | |||||
| "Add background under slide title automatically for h1 header elements. If not enabled, use `class: header_background` to enable", | |||||
| "header_background_color", | |||||
| "{header_color}", | |||||
| ".remark-slide-content h1", | |||||
| "Background Color for h1 Header with Background", | |||||
| "header_background_text_color", | |||||
| "{background_color}", | |||||
| ".remark-slide-content h1", | |||||
| "Text Color for h1 Header with Background", | |||||
| "header_background_padding", | |||||
| "2rem 4rem 1.5rem 4rem", | |||||
| ".remark-slide-content h1", | |||||
| "Padding for h1 Header with Background", | |||||
| "header_background_content_padding_top", | |||||
| "7rem", | |||||
| ".remark-slide-content", | |||||
| "Top Padding for Content in Slide with Header with Background", | |||||
| "header_background_ignore_classes", | |||||
| "{c('normal', 'inverse', 'title', 'middle', 'bottom')}", | |||||
| ".remark-slide-content", | |||||
| "Slide Classes Where Header with Background will not be Applied", | |||||
| "text_slide_number_font_size", | |||||
| "0.9em", | |||||
| ".remark-slide-number", | |||||
| "Slide Number Text Font Size", | |||||
| "text_font_google", | |||||
| NULL, | |||||
| "body", | |||||
| "Use `google_font()` to specify body font", | |||||
| "text_font_family", | |||||
| "'Droid Serif'", | |||||
| "body", | |||||
| "Body Text Font Family", | |||||
| "text_font_weight", | |||||
| "normal", | |||||
| "body", | |||||
| "Body Text Font Weight", | |||||
| "text_font_url", | |||||
| "https://fonts.googleapis.com/css?family=Droid+Serif:400,700,400italic", | |||||
| "@import url()", | |||||
| "Body Text Font URL(s)", | |||||
| "text_font_family_fallback", | |||||
| "'Palatino Linotype', 'Book Antiqua', Palatino, 'Microsoft YaHei', 'Songti SC'", | |||||
| "body", | |||||
| "Body Text Font Fallbacks", | |||||
| "text_font_base", | |||||
| "serif", | |||||
| "body", | |||||
| "Body Text Base Font (Total Failure Fallback)", | |||||
| "header_font_google", | |||||
| NULL, | |||||
| "body", | |||||
| "Use `google_font()` to specify header font", | |||||
| "header_font_family", | |||||
| "'Yanone Kaffeesatz'", | |||||
| "h1, h2, h3", | |||||
| "Header Font Family", | |||||
| "header_font_weight", | |||||
| "normal", | |||||
| "h1, h2, h3", | |||||
| "Header Font Weight", | |||||
| "header_font_url", | |||||
| "https://fonts.googleapis.com/css?family=Yanone+Kaffeesatz", | |||||
| "@import url", | |||||
| "Header Font URL", | |||||
| "code_font_google", | |||||
| NULL, | |||||
| "body", | |||||
| "Use `google_font()` to specify code font", | |||||
| "code_font_family", | |||||
| "'Source Code Pro'", | |||||
| ".remark-code, .remark-inline-code", | |||||
| "Code Font Family", | |||||
| "code_font_size", | |||||
| "0.9em", | |||||
| ".remark-inline", | |||||
| "Code Text Font Size", | |||||
| "code_font_url", | |||||
| "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700", | |||||
| "@import url", | |||||
| "Code Font URL", | |||||
| "code_font_family_fallback", | |||||
| "'Lucida Console', Monaco", | |||||
| ".remark-code, .remark-inline-code", | |||||
| "Code Font Fallback" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "text_color", "#000", "body", "Text Color" | |||||
| , "header_color", "#000", "h1, h2, h3", "Header Color" | |||||
| , "background_color", "#FFF", ".remark-slide-content", "Slide Background Color" | |||||
| , "link_color", "rgb(249, 38, 114)", "a, a > code", "Link Color" | |||||
| , "text_bold_color", NULL, "strong", "Bold Text Color" | |||||
| , "text_slide_number_color", "{inverse_background_color}", ".remark-slide-number", "Slide Number Color" | |||||
| , "padding", "1rem 4rem 1rem 4rem", ".remark-slide-content", "Slide Padding in `top right [bottom left]` format" | |||||
| , "background_image", NULL, ".remark-slide-content", "Background image applied to each *and every* slide. Set `title_slide_background_image = \"none\"` to remove the background image from the title slide" | |||||
| , "background_size", NULL, ".remark-slide-content", "Background image size, requires `background_image` to be set. If `background_image` is set, `background_size` will default to `cover` so the backround fills the screen. If both `background_image` and `background_position` are set, will default to 100 percent" | |||||
| , "background_position", NULL, ".remark-slide-content", "Background image position, requires `background_image` to be set, and it is recommended to adjust `background_size`" | |||||
| , "code_highlight_color", "rgba(255,255,0,0.5)", ".remark-code-line-highlighted", "Code Line Highlight" | |||||
| , "code_inline_color", "#000", ".remark-inline-code", "Inline Code Color" | |||||
| , "code_inline_background_color", NULL, ".remark-inline-code", "Inline Code Background Color" | |||||
| , "code_inline_font_size", "1em", ".remark-inline-code", "Inline Code Text Font Size" | |||||
| , "inverse_background_color", "#272822", ".inverse", "Inverse Background Color" | |||||
| , "inverse_text_color", "#d6d6d6", ".inverse", "Inverse Text Color" | |||||
| , "inverse_text_shadow", "{FALSE}", ".inverse", "Enables Shadow on text of inverse slides" | |||||
| , "inverse_header_color", "#f3f3f3", ".inverse h1, .inverse h2, .inverse h3", "Inverse Header Color" | |||||
| , "title_slide_text_color", "{inverse_text_color}", ".title-slide", "Title Slide Text Color" | |||||
| , "title_slide_background_color", "{inverse_background_color}", ".title-slide", "Title Slide Background Color" | |||||
| , "title_slide_background_image", NULL, ".title-slide", "Title Slide Background Image URL" | |||||
| , "title_slide_background_size", NULL, ".title-slide", "Title Slide Background Image Size, defaults to \"cover\" if background image is set" | |||||
| , "title_slide_background_position", NULL, ".title-slide", "Title Slide Background Image Position" | |||||
| , "footnote_color", NULL, ".footnote", "Footnote text color (if `NA`, then it will be the same color as `text_color`)" | |||||
| , "footnote_font_size", "0.9em", ".footnote", "Footnote font size" | |||||
| , "footnote_position_bottom", "3em", ".footnote", "Footnote location from bottom of screen" | |||||
| , "left_column_subtle_color", "#777", ".left-column h2, .left-column h3", "Left Column Text (not last)" | |||||
| , "left_column_selected_color", "#000", ".left-column h2:last-of-type, .left-column h3:last-child", "Left Column Current Selection" | |||||
| , "blockquote_left_border_color", "lightgray", "blockquote", "Blockquote Left Border Color" | |||||
| , "table_border_color", "#666", "table: border-top, border-bottom", "Table top/bottom border" | |||||
| , "table_row_border_color", "#ddd", "table thead th: border-bottom", "Table row inner bottom border" | |||||
| , "table_row_even_background_color", "#eee", "thead, tfoot, tr:nth-child(even)", "Table Even Row Background Color" | |||||
| , "text_font_size", "20px", ".remark-slide-content", "Slide Body Text Font Size" | |||||
| , "header_h1_font_size", "55px", ".remark-slide-content h1", "h1 Header Text Font Size" | |||||
| , "header_h2_font_size", "45px", ".remark-slide-content h2", "h2 Header Text Font Size" | |||||
| , "header_h3_font_size", "35px", ".remark-slide-content h3", "h3 Header Text Font Size" | |||||
| , "header_background_auto", "{FALSE}", "", "Add background under slide title automatically for h1 header elements. If not enabled, use `class: header_background` to enable" | |||||
| , "header_background_color", "{header_color}", ".remark-slide-content h1", "Background Color for h1 Header with Background" | |||||
| , "header_background_text_color", "{background_color}", ".remark-slide-content h1", "Text Color for h1 Header with Background" | |||||
| , "header_background_padding", "2rem 4rem 1.5rem 4rem", ".remark-slide-content h1", "Padding for h1 Header with Background" | |||||
| , "header_background_content_padding_top", "7rem", ".remark-slide-content", "Top Padding for Content in Slide with Header with Background" | |||||
| , "header_background_ignore_classes", "{c('normal', 'inverse', 'title', 'middle', 'bottom')}", ".remark-slide-content", "Slide Classes Where Header with Background will not be Applied" | |||||
| , "text_slide_number_font_size", "0.9em", ".remark-slide-number", "Slide Number Text Font Size" | |||||
| , "text_font_google", NULL, "body", "Use `google_font()` to specify body font" | |||||
| , "text_font_family", "'Droid Serif'", "body", "Body Text Font Family" | |||||
| , "text_font_weight", "normal", "body", "Body Text Font Weight" | |||||
| , "text_font_url", "https://fonts.googleapis.com/css?family=Droid+Serif:400,700,400italic", "@import url()", "Body Text Font URL(s)" | |||||
| , "text_font_family_fallback", "'Palatino Linotype', 'Book Antiqua', Palatino, 'Microsoft YaHei', 'Songti SC'", "body", "Body Text Font Fallbacks" | |||||
| , "text_font_base", "serif", "body", "Body Text Base Font (Total Failure Fallback)" | |||||
| , "header_font_google", NULL, "body", "Use `google_font()` to specify header font" | |||||
| , "header_font_family", "'Yanone Kaffeesatz'", "h1, h2, h3", "Header Font Family" | |||||
| , "header_font_weight", "normal", "h1, h2, h3", "Header Font Weight" | |||||
| , "header_font_url", "https://fonts.googleapis.com/css?family=Yanone+Kaffeesatz", "@import url", "Header Font URL" | |||||
| , "code_font_google", NULL, "body", "Use `google_font()` to specify code font" | |||||
| , "code_font_family", "'Source Code Pro'", ".remark-code, .remark-inline-code", "Code Font Family" | |||||
| , "code_font_size", "0.9em", ".remark-inline", "Code Text Font Size" | |||||
| , "code_font_url", "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700", "@import url", "Code Font URL" | |||||
| , "code_font_family_fallback", "'Lucida Console', Monaco", ".remark-code, .remark-inline-code", "Code Font Fallback" | |||||
| ) | ) | ||||
| set_default <- function(tv, ...) { | set_default <- function(tv, ...) { | ||||
| vars <- c(...) | vars <- c(...) | ||||
| for (var in names(vars)) { | for (var in names(vars)) { | ||||
| tv[tv$variable == var, "default"] <- vars[var] | |||||
| tv[tv$variable == var, 'default'] <- vars[var] | |||||
| } | } | ||||
| tv | tv | ||||
| } | } | ||||
| template_mono_light <- tibble::tribble( | template_mono_light <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "base_color", | |||||
| "#23395b", | |||||
| "multiple", | |||||
| "Monotone base color, works best with a strong color", | |||||
| "white_color", | |||||
| "{lighten_color(base_color, 0.9)}", | |||||
| "multiple", | |||||
| "Brightest color used, default is a very light version of `base_color`", | |||||
| "black_color", | |||||
| "{darken_color(base_color, 0.3)}", | |||||
| "multiple", | |||||
| "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "base_color", "#23395b", "multiple", "Monotone base color, works best with a strong color" | |||||
| , "white_color", "{lighten_color(base_color, 0.9)}", "multiple", "Brightest color used, default is a very light version of `base_color`" | |||||
| , "black_color", "{darken_color(base_color, 0.3)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ) | ) | ||||
| template_mono_light <- do.call("rbind", list(template_mono_light, template_variables)) | |||||
| template_mono_light <- do.call('rbind', list(template_mono_light, template_variables)) | |||||
| template_mono_light <- set_default( | template_mono_light <- set_default( | ||||
| template_mono_light, | template_mono_light, | ||||
| text_color = "{black_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{white_color}", | |||||
| inverse_header_color = "{white_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)}", | |||||
| table_row_even_background_color = "{lighten_color(base_color, 0.8)}" | |||||
| ) | |||||
| text_color = "{black_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{white_color}", | |||||
| inverse_header_color = "{white_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)}", | |||||
| table_row_even_background_color = "{lighten_color(base_color, 0.8)}") | |||||
| template_mono_dark <- tibble::tribble( | template_mono_dark <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "base_color", | |||||
| "#cbf7ed", | |||||
| "multiple", | |||||
| "Monotone Base Color, works best with a light color.", | |||||
| "white_color", | |||||
| "{lighten_color(base_color, 0.8)}", | |||||
| "multiple", | |||||
| "Brightest color used, default is a very light version of `base_color`", | |||||
| "black_color", | |||||
| "{darken_color(base_color, 0.85)}", | |||||
| "multiple", | |||||
| "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "base_color", "#cbf7ed", "multiple", "Monotone Base Color, works best with a light color." | |||||
| , "white_color", "{lighten_color(base_color, 0.8)}", "multiple", "Brightest color used, default is a very light version of `base_color`" | |||||
| , "black_color", "{darken_color(base_color, 0.85)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ) | ) | ||||
| template_mono_dark <- do.call("rbind", list(template_mono_dark, template_variables)) | |||||
| template_mono_dark <- do.call('rbind', list(template_mono_dark, template_variables)) | |||||
| template_mono_dark <- set_default( | template_mono_dark <- set_default( | ||||
| template_mono_dark, | template_mono_dark, | ||||
| text_color = "{white_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{black_color}", | |||||
| inverse_header_color = "{black_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)}", | |||||
| table_row_even_background_color = "{darken_color(base_color, 0.7)}" | |||||
| ) | |||||
| text_color = "{white_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{black_color}", | |||||
| inverse_header_color = "{black_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)}", | |||||
| table_row_even_background_color = "{darken_color(base_color, 0.7)}") | |||||
| template_mono_accent <- tibble::tribble( | template_mono_accent <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "base_color", | |||||
| "#43418A", | |||||
| "multiple", | |||||
| "Monotone Base Color, works best with a strong color", | |||||
| "white_color", | |||||
| "#FFFFFF", | |||||
| "multiple", | |||||
| "Brightest color used", | |||||
| "black_color", | |||||
| "#272822", | |||||
| "multiple", | |||||
| "Darkest color used" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "base_color", "#43418A", "multiple", "Monotone Base Color, works best with a strong color" | |||||
| , "white_color", "#FFFFFF", "multiple", "Brightest color used" | |||||
| , "black_color", "#272822", "multiple", "Darkest color used" | |||||
| ) | ) | ||||
| template_mono_accent <- do.call("rbind", list(template_mono_accent, template_variables)) | |||||
| template_mono_accent <- do.call('rbind', list(template_mono_accent, template_variables)) | |||||
| template_mono_accent <- set_default( | template_mono_accent <- set_default( | ||||
| template_mono_accent, | template_mono_accent, | ||||
| text_color = "{black_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{white_color}", | |||||
| inverse_header_color = "{white_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)}", | |||||
| table_row_even_background_color = "{lighten_color(base_color, 0.7)}" | |||||
| ) | |||||
| text_color = "{black_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{white_color}", | |||||
| inverse_header_color = "{white_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)}", | |||||
| table_row_even_background_color = "{lighten_color(base_color, 0.7)}") | |||||
| template_mono_accent_inverse <- tibble::tribble( | template_mono_accent_inverse <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "base_color", | |||||
| "#3C989E", | |||||
| "multiple", | |||||
| "Monotone Base Color, works best with a light color", | |||||
| "white_color", | |||||
| "#FFFFFF", | |||||
| "multiple", | |||||
| "Brightest color used, default is a very light version of `base_color`", | |||||
| "black_color", | |||||
| "{darken_color(base_color, 0.9)}", | |||||
| "multiple", | |||||
| "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "base_color", "#3C989E", "multiple", "Monotone Base Color, works best with a light color" | |||||
| , "white_color", "#FFFFFF", "multiple", "Brightest color used, default is a very light version of `base_color`" | |||||
| , "black_color", "{darken_color(base_color, 0.9)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`" | |||||
| ) | ) | ||||
| template_mono_accent_inverse <- do.call("rbind", list(template_mono_accent_inverse, template_variables)) | |||||
| template_mono_accent_inverse <- do.call('rbind', list(template_mono_accent_inverse, template_variables)) | |||||
| template_mono_accent_inverse <- set_default( | template_mono_accent_inverse <- set_default( | ||||
| template_mono_accent_inverse, | template_mono_accent_inverse, | ||||
| text_color = "{white_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{black_color}", | |||||
| inverse_header_color = "{black_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)}", | |||||
| table_row_even_background_color = "{darken_color(base_color, 0.7)}" | |||||
| ) | |||||
| text_color = "{white_color}", | |||||
| header_color = "{base_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{base_color}", | |||||
| text_bold_color = "{base_color}", | |||||
| text_slide_number_color = "{base_color}", | |||||
| code_inline_color = "{base_color}", | |||||
| inverse_background_color = "{base_color}", | |||||
| inverse_text_color = "{black_color}", | |||||
| inverse_header_color = "{black_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)}", | |||||
| table_row_even_background_color = "{darken_color(base_color, 0.7)}") | |||||
| template_duo_light <- tibble::tribble( | template_duo_light <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "primary_color", | |||||
| "#1F4257", | |||||
| "multiple", | |||||
| "Duotone Secondary Color", | |||||
| "secondary_color", | |||||
| "#F97B64", | |||||
| "multiple", | |||||
| "Duotone Primary Color", | |||||
| "white_color", | |||||
| "{lighten_color(primary_color, 0.99)}", | |||||
| "multiple", | |||||
| "Brightest color used, default is a very light version of `primary_color`", | |||||
| "black_color", | |||||
| "{darken_color(secondary_color, 0.9)}", | |||||
| "multiple", | |||||
| "Darkest color used, default is a very dark version of `secondary_color`" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "primary_color", "#1F4257", "multiple", "Duotone Secondary Color" | |||||
| , "secondary_color", "#F97B64", "multiple", "Duotone Primary Color" | |||||
| , "white_color", "{lighten_color(primary_color, 0.99)}", "multiple", "Brightest color used, default is a very light version of `primary_color`" | |||||
| , "black_color", "{darken_color(secondary_color, 0.9)}", "multiple", "Darkest color used, default is a very dark version of `secondary_color`" | |||||
| ) | ) | ||||
| template_duo_light <- do.call("rbind", list(template_duo_light, template_variables)) | |||||
| template_duo_light <- do.call('rbind', list(template_duo_light, template_variables)) | |||||
| template_duo_light <- set_default( | template_duo_light <- set_default( | ||||
| template_duo_light, | template_duo_light, | ||||
| text_color = "{black_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{secondary_color}", | |||||
| text_bold_color = "{secondary_color}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| code_inline_color = "{secondary_color}", | |||||
| inverse_background_color = "{primary_color}", | |||||
| inverse_text_color = "{secondary_color}", | |||||
| inverse_header_color = "{secondary_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)}", | |||||
| table_row_even_background_color = "{lighten_color(secondary_color, 0.7)}" | |||||
| ) | |||||
| text_color = "{black_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{secondary_color}", | |||||
| text_bold_color = "{secondary_color}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| code_inline_color = "{secondary_color}", | |||||
| inverse_background_color = "{primary_color}", | |||||
| inverse_text_color = "{secondary_color}", | |||||
| inverse_header_color = "{secondary_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)}", | |||||
| table_row_even_background_color = "{lighten_color(secondary_color, 0.7)}") | |||||
| template_duo <- tibble::tribble( | template_duo <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "primary_color", | |||||
| "#1F4257", | |||||
| "multiple", | |||||
| "Duotone Primary Color", | |||||
| "secondary_color", | |||||
| "#F97B64", | |||||
| "multiple", | |||||
| "Duotone Secondary Color" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "primary_color", "#1F4257", "multiple", "Duotone Primary Color" | |||||
| , "secondary_color", "#F97B64", "multiple", "Duotone Secondary Color" | |||||
| ) | ) | ||||
| template_duo <- do.call("rbind", list(template_duo, template_variables)) | |||||
| template_duo <- do.call('rbind', list(template_duo, template_variables)) | |||||
| template_duo <- set_default( | template_duo <- set_default( | ||||
| template_duo, | template_duo, | ||||
| text_color = "{choose_dark_or_light(primary_color, darken_color(primary_color, 0.9), lighten_color(secondary_color, 0.99))}", | |||||
| header_color = "{secondary_color}", | |||||
| background_color = "{primary_color}", | |||||
| link_color = "{secondary_color}", | |||||
| text_bold_color = "{secondary_color}", | |||||
| text_slide_number_color = "{text_color}", | |||||
| code_inline_color = "{secondary_color}", | |||||
| inverse_background_color = "{secondary_color}", | |||||
| inverse_text_color = "{primary_color}", | |||||
| inverse_header_color = "{primary_color}", | |||||
| title_slide_text_color = "{secondary_color}", | |||||
| title_slide_background_color = "{primary_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)}", | |||||
| table_row_even_background_color = "{lighten_color(primary_color, 0.3)}" | |||||
| ) | |||||
| text_color = "{choose_dark_or_light(primary_color, darken_color(primary_color, 0.9), lighten_color(secondary_color, 0.99))}", | |||||
| header_color = "{secondary_color}", | |||||
| background_color = "{primary_color}", | |||||
| link_color = "{secondary_color}", | |||||
| text_bold_color = "{secondary_color}", | |||||
| text_slide_number_color = "{text_color}", | |||||
| code_inline_color = "{secondary_color}", | |||||
| inverse_background_color = "{secondary_color}", | |||||
| inverse_text_color = "{primary_color}", | |||||
| inverse_header_color = "{primary_color}", | |||||
| title_slide_text_color = "{secondary_color}", | |||||
| title_slide_background_color = "{primary_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)}", | |||||
| table_row_even_background_color = "{lighten_color(primary_color, 0.3)}") | |||||
| template_duo_accent <- tibble::tribble( | template_duo_accent <- tibble::tribble( | ||||
| ~variable, | |||||
| ~default, | |||||
| ~element, | |||||
| ~description, | |||||
| "primary_color", | |||||
| "#006747", | |||||
| "multiple", | |||||
| "Duotone Primary Color", | |||||
| "secondary_color", | |||||
| "#CFC493", | |||||
| "multiple", | |||||
| "Duotone Secondary Color", | |||||
| "white_color", | |||||
| "#FFFFFF", | |||||
| "multiple", | |||||
| "Brightest color used", | |||||
| "black_color", | |||||
| "#000000", | |||||
| "multiple", | |||||
| "Darkest color used" | |||||
| ~ variable, ~ default, ~ element, ~ description | |||||
| , "primary_color", "#006747", "multiple", "Duotone Primary Color" | |||||
| , "secondary_color", "#CFC493", "multiple", "Duotone Secondary Color" | |||||
| , "white_color", "#FFFFFF", "multiple", "Brightest color used" | |||||
| , "black_color", "#000000", "multiple", "Darkest color used" | |||||
| ) | ) | ||||
| template_duo_accent <- do.call("rbind", list(template_duo_accent, template_variables)) | |||||
| template_duo_accent <- do.call('rbind', list(template_duo_accent, template_variables)) | |||||
| template_duo_accent <- set_default( | template_duo_accent <- set_default( | ||||
| template_duo_accent, | template_duo_accent, | ||||
| text_color = "{black_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}", | |||||
| text_bold_color = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| 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)}", | |||||
| 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)}", | |||||
| left_column_selected_color = "{primary_color}", | |||||
| blockquote_left_border_color = "{apply_alpha(secondary_color, 0.5)}", | |||||
| table_row_even_background_color = "{lighten_color(secondary_color, 0.3)}" | |||||
| ) | |||||
| text_color = "{black_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{white_color}", | |||||
| link_color = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}", | |||||
| text_bold_color = "{choose_dark_or_light(secondary_color, primary_color, secondary_color)}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| 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)}", | |||||
| 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)}", | |||||
| left_column_selected_color = "{primary_color}", | |||||
| blockquote_left_border_color = "{apply_alpha(secondary_color, 0.5)}", | |||||
| table_row_even_background_color = "{lighten_color(secondary_color, 0.3)}") | |||||
| template_duo_accent_inverse <- set_default( | template_duo_accent_inverse <- set_default( | ||||
| template_duo_accent, | template_duo_accent, | ||||
| text_color = "{white_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}", | |||||
| text_bold_color = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| 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)}", | |||||
| 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)}", | |||||
| left_column_selected_color = "{primary_color}", | |||||
| blockquote_left_border_color = "{apply_alpha(secondary_color, 0.5)}", | |||||
| table_row_even_background_color = "{darken_color(choose_dark_or_light(primary_color, secondary_color, primary_color), 0.3)}" | |||||
| ) | |||||
| text_color = "{white_color}", | |||||
| header_color = "{primary_color}", | |||||
| background_color = "{black_color}", | |||||
| link_color = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}", | |||||
| text_bold_color = "{choose_dark_or_light(secondary_color, secondary_color, primary_color)}", | |||||
| text_slide_number_color = "{primary_color}", | |||||
| 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)}", | |||||
| 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)}", | |||||
| left_column_selected_color = "{primary_color}", | |||||
| blockquote_left_border_color = "{apply_alpha(secondary_color, 0.5)}", | |||||
| table_row_even_background_color = "{darken_color(choose_dark_or_light(primary_color, secondary_color, primary_color), 0.3)}") | |||||
| solarized <- list( | solarized <- list( | ||||
| "base03" = "#002b36", | |||||
| "base02" = "#073642", | |||||
| "base01" = "#586e75", | |||||
| "base00" = "#657b83", | |||||
| "base0" = "#839496", | |||||
| "base1" = "#93a1a1", | |||||
| "base2" = "#eee8d5", | |||||
| "base3" = "#fdf6e3", | |||||
| "yellow" = "#b58900", | |||||
| "orange" = "#cb4b16", | |||||
| "red" = "#dc322f", | |||||
| "base03" = "#002b36", | |||||
| "base02" = "#073642", | |||||
| "base01" = "#586e75", | |||||
| "base00" = "#657b83", | |||||
| "base0" = "#839496", | |||||
| "base1" = "#93a1a1", | |||||
| "base2" = "#eee8d5", | |||||
| "base3" = "#fdf6e3", | |||||
| "yellow" = "#b58900", | |||||
| "orange" = "#cb4b16", | |||||
| "red" = "#dc322f", | |||||
| "magenta" = "#d33682", | "magenta" = "#d33682", | ||||
| "violet" = "#6c71c4", | |||||
| "blue" = "#268bd2", | |||||
| "cyan" = "#2aa198", | |||||
| "green" = "#859900" | |||||
| ) | |||||
| "violet" = "#6c71c4", | |||||
| "blue" = "#268bd2", | |||||
| "cyan" = "#2aa198", | |||||
| "green" = "#859900") | |||||
| template_solarized_light <- set_default( | template_solarized_light <- set_default( | ||||
| template_variables, | template_variables, | ||||
| text_color = solarized$base00, | |||||
| header_color = solarized$red, | |||||
| background_color = solarized$base3, | |||||
| link_color = solarized$yellow, | |||||
| text_bold_color = solarized$magenta, | |||||
| text_slide_number_color = solarized$base1, | |||||
| code_highlight_color = "#268bd240", | |||||
| # xaringanthemer:::apply_alpha(solarized$blue, 0.25) | |||||
| code_inline_color = solarized$violet, | |||||
| inverse_background_color = solarized$base03, | |||||
| inverse_text_color = solarized$base3, | |||||
| inverse_header_color = "{inverse_text_color}", | |||||
| title_slide_text_color = "{inverse_text_color}", | |||||
| title_slide_background_color = "{inverse_background_color}", | |||||
| left_column_subtle_color = solarized$base1, | |||||
| left_column_selected_color = solarized$base01, | |||||
| blockquote_left_border_color = solarized$orange, | |||||
| table_border_color = solarized$base0, | |||||
| table_row_border_color = solarized$base0, | |||||
| text_color = solarized$base00, | |||||
| header_color = solarized$red, | |||||
| background_color = solarized$base3, | |||||
| link_color = solarized$yellow, | |||||
| text_bold_color = solarized$magenta, | |||||
| text_slide_number_color = solarized$base1, | |||||
| code_highlight_color = "#268bd240", #xaringanthemer:::apply_alpha(solarized$blue, 0.25) | |||||
| code_inline_color = solarized$violet, | |||||
| inverse_background_color = solarized$base03, | |||||
| inverse_text_color = solarized$base3, | |||||
| inverse_header_color = "{inverse_text_color}", | |||||
| title_slide_text_color = "{inverse_text_color}", | |||||
| title_slide_background_color = "{inverse_background_color}", | |||||
| left_column_subtle_color = solarized$base1, | |||||
| left_column_selected_color = solarized$base01, | |||||
| blockquote_left_border_color = solarized$orange, | |||||
| table_border_color = solarized$base0, | |||||
| table_row_border_color = solarized$base0, | |||||
| table_row_even_background_color = solarized$base2 | table_row_even_background_color = solarized$base2 | ||||
| ) | ) | ||||
| template_solarized_dark <- set_default( | template_solarized_dark <- set_default( | ||||
| template_variables, | template_variables, | ||||
| text_color = solarized$base0, | |||||
| header_color = solarized$red, | |||||
| background_color = solarized$base03, | |||||
| link_color = solarized$yellow, | |||||
| text_bold_color = solarized$magenta, | |||||
| text_slide_number_color = solarized$base01, | |||||
| code_highlight_color = "#268bd240", | |||||
| # xaringanthemer:::apply_alpha(solarized$blue, 0.25) | |||||
| code_inline_color = solarized$violet, | |||||
| inverse_background_color = solarized$base3, | |||||
| inverse_text_color = solarized$base03, | |||||
| inverse_header_color = "{inverse_text_color}", | |||||
| title_slide_text_color = "{inverse_text_color}", | |||||
| title_slide_background_color = "{inverse_background_color}", | |||||
| left_column_subtle_color = solarized$base01, | |||||
| left_column_selected_color = solarized$base1, | |||||
| blockquote_left_border_color = solarized$orange, | |||||
| table_border_color = solarized$base00, | |||||
| table_row_border_color = solarized$base00, | |||||
| text_color = solarized$base0, | |||||
| header_color = solarized$red, | |||||
| background_color = solarized$base03, | |||||
| link_color = solarized$yellow, | |||||
| text_bold_color = solarized$magenta, | |||||
| text_slide_number_color = solarized$base01, | |||||
| code_highlight_color = "#268bd240", #xaringanthemer:::apply_alpha(solarized$blue, 0.25) | |||||
| code_inline_color = solarized$violet, | |||||
| inverse_background_color = solarized$base3, | |||||
| inverse_text_color = solarized$base03, | |||||
| inverse_header_color = "{inverse_text_color}", | |||||
| title_slide_text_color = "{inverse_text_color}", | |||||
| title_slide_background_color = "{inverse_background_color}", | |||||
| left_column_subtle_color = solarized$base01, | |||||
| left_column_selected_color = solarized$base1, | |||||
| blockquote_left_border_color = solarized$orange, | |||||
| table_border_color = solarized$base00, | |||||
| table_row_border_color = solarized$base00, | |||||
| table_row_even_background_color = solarized$base02 | table_row_even_background_color = solarized$base02 | ||||
| ) | ) | ||||
| plural_element <- function(css_name) { | plural_element <- function(css_name) { | ||||
| is_mult <- grepl(",|and|or", css_name) | is_mult <- grepl(",|and|or", css_name) | ||||
| is_class <- grepl("^\\.", css_name) | is_class <- grepl("^\\.", css_name) | ||||
| ifelse( | |||||
| is_class, | |||||
| ifelse(is_mult, "classes", "class"), | |||||
| ifelse(is_mult, "elements", "element") | |||||
| ifelse(is_class, | |||||
| ifelse(is_mult, "classes", "class"), | |||||
| ifelse(is_mult, "elements", "element") | |||||
| ) | ) | ||||
| } | } | ||||
Loading…