R/styles.R

In colt: Command-Line Color Themes

# This file is generated automatically by inst/generate_style_funs.R.
# Do not edit manually.

#' Colt style elements
#'
#' @name colt_styles
#' @param x a character vector
#' @param fun a styling function
#'
#' @export
#' @rdname colt_styles
clt_default <- function(x, fun = options("colt.theme")[[1]]$clt_default){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_h1 <- function(x, fun = options("colt.theme")[[1]]$clt_h1){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_h2 <- function(x, fun = options("colt.theme")[[1]]$clt_h2){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_chr <- function(x, fun = options("colt.theme")[[1]]$clt_chr){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_chr_accent <- function(x, fun = options("colt.theme")[[1]]$clt_chr_accent){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_chr_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_chr_subtle){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_true <- function(x, fun = options("colt.theme")[[1]]$clt_true){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_false <- function(x, fun = options("colt.theme")[[1]]$clt_false){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_maybe <- function(x, fun = options("colt.theme")[[1]]$clt_maybe){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_num <- function(x, fun = options("colt.theme")[[1]]$clt_num){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_num_accent <- function(x, fun = options("colt.theme")[[1]]$clt_num_accent){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_num_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_num_subtle){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_bg <- function(x, fun = options("colt.theme")[[1]]$clt_bg){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_bg_subtle <- function(x, fun = options("colt.theme")[[1]]$clt_bg_subtle){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_bg_accent <- function(x, fun = options("colt.theme")[[1]]$clt_bg_accent){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_na <- function(x, fun = options("colt.theme")[[1]]$clt_na){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_nan <- function(x, fun = options("colt.theme")[[1]]$clt_nan){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_inf <- function(x, fun = options("colt.theme")[[1]]$clt_inf){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_null <- function(x, fun = options("colt.theme")[[1]]$clt_null){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_info <- function(x, fun = options("colt.theme")[[1]]$clt_info){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_message <- function(x, fun = options("colt.theme")[[1]]$clt_message){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_warning <- function(x, fun = options("colt.theme")[[1]]$clt_warning){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_error <- function(x, fun = options("colt.theme")[[1]]$clt_error){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_emph <- function(x, fun = options("colt.theme")[[1]]$clt_emph){
  fun(x)
}


#' @export
#' @rdname colt_styles
clt_emph2 <- function(x, fun = options("colt.theme")[[1]]$clt_emph2){
  fun(x)
}