Status display

[hadley]

Inspired by https://github.com/MichaelCereda/pretty-cli#readme and @gaborcsardi's idea for testthat output

cat_status <- function(status, details, info = NULL,
                       status_col = NULL,
                       details_col = status_col) {

  status <- apply_style(paste0(" ", status, " "), status_col, bg = TRUE)
  width <- ansistrings::ansi_nchar(status, type = "width") + 1

  details <- apply_style(str_indent(details, 0, width), details_col)

  cat_line(status, " ", details)
  if (!is.null(info)) {
    cat_line(str_indent(info, width, width))
  }

  invisible()

}

str_indent <- function(x, indent = 0, exdent = indent) {
  if (indent > 0) {
    indent <- paste0(rep(" ", indent), collapse = "")
    x <- gsub("^", indent, x)
  }

  if (exdent > 0) {
    indent <- paste0("\n", paste0(rep(" ", exdent), collapse = ""))
    x <- gsub("\\n", indent, x)
  }

  x
}

• Should also autowrap text. Give paragraphs as vector?
• Should also pick text colour automatically - convert colour to rgb, then to hcl, then switch based on luminance

[gaborcsardi]

I think we can leave this to the next version of cli.

[hadley]

Agreed

[gaborcsardi]

Closing in favour of #37.