-
Notifications
You must be signed in to change notification settings - Fork 5
/
set_get_functions.R
56 lines (51 loc) · 2.05 KB
/
set_get_functions.R
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
#' @title carbon set functions
#' @description function that set the aesthetics of the carbon image output
#' @param self carbon self object
#' @param private carbon private object
#' @param template character, name of template to set [$template][carbonate::carbon-fields] to
#' @param theme character, theme to set [$theme][carbonate::carbon-fields] to
#' @param family character, font family to set [$font_family][carbonate::carbon-fields] to
#' @rdname set_carbon
#' @aliases carbon-set-fields
#' @seealso
#' [carbon][carbonate::carbon]
.set_template <- function(self, private, template) {
self$template <- template
}
#' @rdname set_carbon
.set_window_control_theme <- function(self, private, theme) {
self$window_control_theme <- theme
}
#' @rdname set_carbon
.set_font_family <- function(self, private, family) {
self$font_family <- family
}
#' @title carbon get functions
#' @description function that gets the available list of aesthetic values of fields
#' @param self carbon self object
#' @param private carbon private object
#' @rdname get_carbon
#' @aliases carbon-get-fields
#' @seealso
#' [carbon][carbonate::carbon]
.get_windows_control_themes <- function(self, private) {
c("none", "sharp", "bw")
}
#' @rdname get_carbon
.get_font_families <- function(self, private) {
# c("Anonymous Pro", "Droid Sans Mono", "Fantasque Sans Mono",
# "Fira Code", "Hack", "IBM Plex Mono", "Inconsolata", "Iosevka",
# "JetBrains Mono", "Monoid", "Source Code Pro", "Space Mono",
# "Ubuntu Mono")
sapply(query_defaults('FONTS'),'[[',2)
}
#' @rdname get_carbon
.get_templates <- function(self, private) {
# c("3024-night", "a11y-dark", "blackboard", "base16-dark", "base16-light",
# "cobalt", "dracula", "duotone-dark", "hopscotch", "lucario",
# "material", "monokai", "night-owl", "nord", "oceanic-next", "one-light",
# "one-dark", "panda-syntax", "paraiso-dark", "seti", "shades-of-purple",
# "solarized dark", "solarized light", "synthwave-84", "twilight",
# "verminal", "vscode", "yeti", "zenburn")
sapply(query_defaults('THEMES'),'[[',1)
}