#' Bulma Constants
#'
#' Returns possible values or strings for a number of Bulma variables.
#'
#' @param variable One of "colors", "column sizes", "viewports"
#' @examples
#' bulma_constants("colors")
#' bulma_constants("column sizes")
#' bulma_constants("viewports")
#'
#' @export
bulma_constants <- function(
  variable = c("colors", "column sizes", "viewports", "alignment")
) {
  variable <- tolower(variable)
  switch(
    match.arg(variable),
    "colors" = c(
      "white", "black", "light", "dark", "primary", "info", "link",
      "success", "warning", "danger", "black-bis", "black-ter",
      "grey-darker", "grey-dark", "grey", "grey-light", "grey-lighter",
      "white-ter", "white-bis"),
    "column sizes" = c(
      "full", "four-fifths", "three-quarters", "two-thirds",
      "three-fifths", "half", "two-fifths", "one-third", "one-quarter",
      "one-fifth"),
    "viewports" = c(
      "mobile", "tablet", "touch", "desktop", "widescreen", "fullhd"),
    "alignment" = c("centered", "justified", "left", "right")
  )
}