1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
#' Obtain a list of all available bootswatch themes.
#'
#' @param version The major version of Bootswatch.
#' @param full_path Whether to return a path to the installed theme.
#' @return Returns a character vector of Bootswatch themes.
#' @family Bootstrap theme utility functions
#' @export
bootswatch_themes <- function(version = version_default(), full_path = FALSE) {
list.dirs(bootswatch_dist(version), full.names = full_path, recursive = FALSE)
}
#' Obtain a theme's Bootswatch theme name
#'
#' @inheritParams bs_theme_update
#' @return Returns the Bootswatch theme named used (if any) in the `theme`.
#' @family Bootstrap theme utility functions
#' @export
theme_bootswatch <- function(theme) {
if (!is_bs_theme(theme)) return(NULL)
info <- theme_preset_info(theme)
if (identical("bootswatch", info$type)) info$name else NULL
}
#' Obtain a theme's Bootstrap version
#'
#' @inheritParams bs_theme_update
#' @return Returns the major version of Bootstrap used in the `theme`.
#' @family Bootstrap theme utility functions
#' @export
theme_version <- function(theme) {
if (!is_bs_theme(theme)) return(NULL)
version <- grep("^bs_version_", class(theme), value = TRUE)
if (length(version) == 1) {
return(sub("^bs_version_", "", version))
}
# If no version class, or more than one class, we consult the sass bundle
theme_preset_info(theme)$version
}
bootswatch_dist <- function(version) {
switch_version(
version,
five = path_lib("bsw5", "dist"),
four = path_lib("bsw4", "dist"),
three = path_lib("bsw3")
)
}
# -----------------------------------------------------------------
# Bootswatch bundle
# -----------------------------------------------------------------
bootswatch_bundle <- function(bootswatch, version) {
if (
!length(bootswatch) || isTRUE(bootswatch %in% c("default", "bootstrap"))
) {
return(NULL)
}
bootswatch <- switch_version(
version,
default = {
switch(
bootswatch,
paper = {
message(
"Bootswatch 3 theme paper has been renamed to materia in version 4 (using that theme instead)"
)
"materia"
},
readable = {
message(
"Bootswatch 3 theme readable has been renamed to litera in version 4 (using that theme instead)"
)
"litera"
},
match.arg(bootswatch, bootswatch_themes(version))
)
},
three = match.arg(bootswatch, bootswatch_themes(version))
)
# Attach local font files, if necessary
font_css <- file.path(bootswatch_dist(version), bootswatch, "font.css")
attachments <- if (file.exists(font_css)) {
c(
"font.css" = font_css,
fonts = system_file("fonts", package = "bslib")
)
}
sass_bundle(
bootswatch = sass_layer(
file_attachments = attachments,
defaults = list(
"bslib-preset-type" = "bootswatch",
"bslib-preset-name" = bootswatch,
# Use local fonts (this path is relative to the bootstrap HTML dependency dir)
'$web-font-path: "font.css" !default;',
bootswatch_sass_file(bootswatch, "variables", version),
# BS4 navbars are matched with BS3 for compatibility
switch_version(
version,
three = "",
four = bs3compat_navbar_defaults(bootswatch),
# BS5 uses more neutral defaults (navbar that flips in light/dark mode)
# or requires a bit more user input
default = list()
)
),
rules = list(
bootswatch_sass_file(bootswatch, "bootswatch", version),
# For some reason sketchy sets .dropdown-menu{overflow: hidden}
# but this prevents .dropdown-submenu from working properly
# https://github.com/rstudio/bootscss/blob/023d455/inst/node_modules/bootswatch/dist/sketchy/_bootswatch.scss#L204
if (identical(bootswatch, "sketchy"))
".dropdown-menu{ overflow: inherit; }" else "",
# Several Bootswatch themes (e.g., zephyr, simplex, etc) add custom .btn-secondary
# rules that should also apply to .btn-default
".btn-default:not(.btn-primary):not(.btn-info):not(.btn-success):not(.btn-warning):not(.btn-danger):not(.btn-dark):not(.btn-light):not([class*='btn-outline-']) {
@extend .btn-secondary !optional;
}"
)
)
)
}
# Mappings from BS3 navbar classes to BS4
bs3compat_navbar_defaults <- function(bootswatch) {
# Do nothing if this isn't a Bootswatch 3 theme
if (!bootswatch %in% c("materia", "litera", bootswatch_themes(3))) {
return("")
}
bg_colors <- switch(
bootswatch,
cerulean = c("primary", "info"),
cosmo = c("dark", "primary"),
cyborg = c("body-bg", "secondary"),
darkly = c("primary", "success"),
flatly = c("primary", "success"),
journal = c("light", "primary"),
lumen = c("light", "white"),
# i.e., materia
paper = ,
materia = c("light", "primary"),
readable = ,
litera = c("light", "dark"),
sandstone = c("dark", "success"),
simplex = c("light", "primary"),
slate = c("primary", "light"),
spacelab = c("light", "primary"),
superhero = c("dark", "primary"),
united = c("primary", "dark"),
yeti = c("dark", "primary"),
stop("Didn't recognize Bootswatch 3 theme: ", bootswatch, call. = FALSE)
)
list(
sprintf('$navbar-light-bg: $%s !default;', bg_colors[1]),
sprintf('$navbar-dark-bg: $%s !default;', bg_colors[2])
)
}
|
