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
|
#' Compiler Options for Sass
#'
#' Set compiler options for Sass. Used with \code{\link{sass}}.
#'
#'
#' @param precision Number of decimal places.
#' @param output_style Bracketing and formatting style of the CSS output.
#' Possible styles: \code{"nested"}, \code{"expanded"}, \code{"compact"}, and
#' \code{"compressed"}.
#' @param indented_syntax Enables the compiler to parse Sass Indented Syntax in
#' strings. Note that the compiler automatically overrides this option to
#' \code{TRUE} or \code{FALSE} for files with .sass and .scss file extensions
#' respectively.
#' @param indent_type Specifies the indent type as \code{"space"} or
#' \code{"tab"}.
#' @param indent_width Number of tabs or spaces used for indentation. Maximum
#' 10.
#' @param include_path Vector of paths used to resolve \code{@import}. Multiple
#' paths are possible using a character vector of paths.
#' @param source_comments Annotates CSS output with line and file comments from
#' Sass file for debugging.
#' @param linefeed Specifies how new lines should be delimited. Possible values:
#' \code{"lf"}, \code{"cr"}, \code{"lfcr"}, and \code{"crlf"}.
#' @param output_path Specifies the location of the output file. Note: this
#' option will not write the file on disk. It is only for internal reference
#' with the source map.
#' @param source_map_file Specifies the location for Sass to write the source
#' map.
#' @param source_map_root Value will be included as source root in the source
#' map information.
#' @param source_map_embed Embeds the source map as a data URI.
#' @param source_map_contents Includes the contents in the source map
#' information.
#' @param omit_source_map_url Disable the inclusion of source map information in
#' the output file. Note: must specify \code{output_path} when \code{TRUE}.
#'
#' @return List of Sass compiler options to be used with
#' \code{\link{sass}}.
#'
#' @examples
#' sass(
#' "foo { margin: 122px * .3; }",
#' options = sass_options(output_style = "compact")
#' )
#'
#' @export
sass_options <- function(
precision = 5,
output_style = "expanded",
indented_syntax = FALSE,
include_path = "",
source_comments = FALSE,
indent_type = "space",
indent_width = 2,
linefeed = "lf",
output_path = "",
source_map_file = "",
source_map_root = "",
source_map_embed = FALSE,
source_map_contents = FALSE,
omit_source_map_url = FALSE
) {
if (indent_width > 10) {
warning("Maximum indent width is 10. Setting to 10...")
indent_width <- 10
} else if (indent_width < 0) {
warning("Minimum indent width is 0. Setting to 0...")
indent_width <- 0
}
indent_type <- switch(
indent_type,
tab = "\t",
space = " ",
stop("invalid indent type. Please specify \"space\" or \"tab\".")
)
indent <- strrep(indent_type, indent_width)
output_style <- switch(
output_style,
nested = 0,
expanded = 1,
compact = 2,
compressed = 3,
stop("output style not supported.")
)
linefeed <- switch(
linefeed,
lf = "\n",
cr = "\r",
crlf = "\r\n",
lfcr = "\n\r",
stop("invalid linefeed.")
)
sep <- switch(
.Platform$OS.type,
unix = ":",
windows = ";",
stop("unknown operating system")
)
include_path <- paste(include_path, collapse = sep)
ret <- list(
precision = precision,
output_style = output_style,
indented_syntax = indented_syntax,
include_path = include_path,
source_comments = source_comments,
indent = indent,
linefeed = linefeed,
output_path = output_path,
source_map_file = source_map_file,
source_map_root = source_map_root,
source_map_embed = source_map_embed,
source_map_contents = source_map_contents,
omit_source_map_url = omit_source_map_url
)
class(ret) <- c("sass_options", class(ret))
ret
}
|
