😎 Give your xaringan slides some style
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

144 lines
8.9KB

  1. template_variables <- tibble::tribble(
  2. ~ variable, ~ default, ~ element, ~ description
  3. , "text_color", "#000", "body", "Text Color"
  4. , "header_color", "#000", "h1, h2, h3", "Header Color"
  5. , "background_color", "#FFF", ".remark-slide-content", "Slide Background Color"
  6. , "link_color", "rgb(249, 38, 114)", "a, a > code", "Link Color"
  7. , "text_bold_color", NA_character_, "strong", "Bold Text Color"
  8. , "text_slide_number_color", "{inverse_background_color}", ".remark-slide-number", "Slide Number Color"
  9. , "code_highlight_color", "rgba(255,255,0,0.5)", ".remark-code-line-highlighted", "Code Line Highlight"
  10. , "code_inline_color", "#000", ".remark-inline-code", "Inline Code Color"
  11. , "code_inline_background_color", NA_character_, ".remark-inline-code", "Inline Code Background Color"
  12. , "inverse_background_color", "#272822", ".inverse", "Inverse Background Color"
  13. , "inverse_text_color", "#d6d6d6", ".inverse", "Inverse Text Color"
  14. , "inverse_text_shadow", "{FALSE}", ".inverse", "Enables Shadow on text of inverse slides"
  15. , "inverse_header_color", "#f3f3f3", ".inverse h1, .inverse h2, .inverse h3", "Inverse Header Color"
  16. , "title_slide_text_color", "{inverse_text_color}", ".title-slide", "Title Slide Text Color"
  17. , "title_slide_background_color", "{inverse_background_color}", ".title-slide", "Title Slide Background Color"
  18. , "title_slide_background_image", NA_character_, ".title-slide", "Title Slide Background Image URL"
  19. , "left_column_subtle_color", "#777", ".left-column", "Left Column Text (not last)"
  20. , "left_column_selected_color", "#000", ".left-column h2:last-of-type, .left-column h3:last-child", "Left Column Current Selection"
  21. , "blockquote_left_color", "lightgray", "blockquote", "Blockquote Left Border Color"
  22. , "table_border_color", "#666", "table: border-top, border-bottom", "Table top/bottom border"
  23. , "table_row_border_color", "#ddd", "table thead th: border-bottom", "Table row inner bottom border"
  24. , "table_row_even_background_color", "#eee", "thead, tfoot, tr:nth-child(even)", "Table Even Row Background Color"
  25. , "text_font_google", NULL, "body", "Use `google_font()` to specify body font"
  26. , "text_font_family", "'Droid Serif'", "body", "Body Text Font Family"
  27. , "text_font_weight", "normal", "body", "Body Text Font Weight"
  28. , "text_font_url", "https://fonts.googleapis.com/css?family=Droid+Serif:400,700,400italic", "@import url()", "Body Text Font URL(s)"
  29. , "text_font_family_fallback", "'Palatino Linotype', 'Book Antiqua', Palatino, 'Microsoft YaHei', 'Songti SC'", "body", "Body Text Font Fallbacks"
  30. , "text_font_base", "serif", "body", "Body Text Base Font (Total Failure Fallback)"
  31. , "header_font_google", NULL, "body", "Use `google_font()` to specify header font"
  32. , "header_font_family", "'Yanone Kaffeesatz'", "h1, h2, h3", "Header Font Family"
  33. , "header_font_weight", "normal", "h1, h2, h3", "Header Font Weight"
  34. , "header_font_url", "https://fonts.googleapis.com/css?family=Yanone+Kaffeesatz", "@import url", "Header Font URL"
  35. , "code_font_google", NULL, "body", "Use `google_font()` to specify code font"
  36. , "code_font_family", "'Source Code Pro'", ".remark-code, .remark-inline-code", "Code Font Family"
  37. , "code_font_url", "https://fonts.googleapis.com/css?family=Source+Code+Pro:400,700", "@import url", "Code Font URL"
  38. , "code_font_family_fallback", "'Lucida Console', Monaco", ".remark-code, .remark-inline-code", "Code Font Fallback"
  39. )
  40. set_default <- function(tv, ...) {
  41. vars <- c(...)
  42. for (var in names(vars)) {
  43. tv[tv$variable == var, 'default'] <- vars[var]
  44. }
  45. tv
  46. }
  47. template_mono_light <- tibble::tribble(
  48. ~ variable, ~ default, ~ element, ~ description
  49. , "base_color", "#23395b", "multiple", "Monotone base color, works best with a strong color"
  50. , "white_color", "{lighten_color(base_color, 0.9)}", "multiple", "Brightest color used, default is a very light version of `base_color`"
  51. , "black_color", "{darken_color(base_color, 0.3)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"
  52. )
  53. template_mono_light <- do.call('rbind', list(template_mono_light, template_variables))
  54. template_mono_light <- set_default(
  55. template_mono_light,
  56. text_color = "{black_color}",
  57. header_color = "{base_color}",
  58. background_color = "{white_color}",
  59. link_color = "{base_color}",
  60. text_bold_color = "{base_color}",
  61. text_slide_number_color = "{base_color}",
  62. code_inline_color = "{base_color}",
  63. inverse_background_color = "{base_color}",
  64. inverse_text_color = "{white_color}",
  65. inverse_header_color = "{white_color}",
  66. left_column_subtle_color = "{lighten_color(base_color, 0.5)}",
  67. left_column_selected_color = "{base_color}",
  68. blockquote_left_color = "{lighten_color(base_color, 0.5)}",
  69. table_row_even_background_color = "{lighten_color(base_color, 0.8)}")
  70. template_mono_dark <- tibble::tribble(
  71. ~ variable, ~ default, ~ element, ~ description
  72. , "base_color", "#cbf7ed", "multiple", "Monotone Base Color, works best with a light color."
  73. , "white_color", "{lighten_color(base_color, 0.8)}", "multiple", "Brightest color used, default is a very light version of `base_color`"
  74. , "black_color", "{darken_color(base_color, 0.85)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"
  75. )
  76. template_mono_dark <- do.call('rbind', list(template_mono_dark, template_variables))
  77. template_mono_dark <- set_default(
  78. template_mono_dark,
  79. text_color = "{white_color}",
  80. header_color = "{base_color}",
  81. background_color = "{black_color}",
  82. link_color = "{base_color}",
  83. text_bold_color = "{base_color}",
  84. text_slide_number_color = "{base_color}",
  85. code_inline_color = "{base_color}",
  86. inverse_background_color = "{base_color}",
  87. inverse_text_color = "{black_color}",
  88. inverse_header_color = "{black_color}",
  89. left_column_subtle_color = "{darken_color(base_color, 0.5)}",
  90. left_column_selected_color = "{base_color}",
  91. blockquote_left_color = "{darken_color(base_color, 0.5)}",
  92. table_row_even_background_color = "{darken_color(base_color, 0.7)}")
  93. template_mono_accent <- tibble::tribble(
  94. ~ variable, ~ default, ~ element, ~ description
  95. , "base_color", "#23395b", "multiple", "Monotone Base Color, works best with a strong color."
  96. , "white_color", "#FFFFFF", "multiple", "Brightest color used"
  97. , "black_color", "#272822", "multiple", "Darkest color used"
  98. )
  99. template_mono_accent <- do.call('rbind', list(template_mono_accent, template_variables))
  100. template_mono_accent <- set_default(
  101. template_mono_accent,
  102. text_color = "{black_color}",
  103. header_color = "{base_color}",
  104. background_color = "{white_color}",
  105. link_color = "{base_color}",
  106. text_bold_color = "{base_color}",
  107. text_slide_number_color = "{base_color}",
  108. code_inline_color = "{base_color}",
  109. inverse_background_color = "{base_color}",
  110. inverse_text_color = "{white_color}",
  111. inverse_header_color = "{white_color}",
  112. left_column_subtle_color = "{lighten_color(base_color, 0.5)}",
  113. left_column_selected_color = "{base_color}",
  114. blockquote_left_color = "{lighten_color(base_color, 0.5)}",
  115. table_row_even_background_color = "{lighten_color(base_color, 0.7)}")
  116. template_mono_accent_inverse <- tibble::tribble(
  117. ~ variable, ~ default, ~ element, ~ description
  118. , "base_color", "#cbf7ed", "multiple", "Monotone Base Color, works best with a light color."
  119. , "white_color", "#FFFFFF", "multiple", "Brightest color used, default is a very light version of `base_color`"
  120. , "black_color", "{darken_color(base_color, 0.9)}", "multiple", "Darkest color used, default is a very dark, version of `base_color`"
  121. )
  122. template_mono_accent_inverse <- do.call('rbind', list(template_mono_accent_inverse, template_variables))
  123. template_mono_accent_inverse <- set_default(
  124. template_mono_accent_inverse,
  125. text_color = "{white_color}",
  126. header_color = "{base_color}",
  127. background_color = "{black_color}",
  128. link_color = "{base_color}",
  129. text_bold_color = "{base_color}",
  130. text_slide_number_color = "{base_color}",
  131. code_inline_color = "{base_color}",
  132. inverse_background_color = "{base_color}",
  133. inverse_text_color = "{black_color}",
  134. inverse_header_color = "{black_color}",
  135. left_column_subtle_color = "{darken_color(base_color, 0.5)}",
  136. left_column_selected_color = "{base_color}",
  137. blockquote_left_color = "{darken_color(base_color, 0.5)}",
  138. table_row_even_background_color = "{darken_color(base_color, 0.7)}")