Merge pull request #1187 from olivroy/color

Add colored output

Author: IndrajeetPatil

R/communicate.R

@@ -27,14 +27,17 @@ communicate_summary <- function(changed, ruler_width) {
     cat("Status\tCount\tLegend \n")
     cli::cat_bullet(
       "\t", sum(!changed, na.rm = TRUE), "\tFile unchanged.",
-      bullet = "tick"
+      bullet = "tick",
+      bullet_col = "green"
     )
     cli::cat_bullet(
       "\t", sum(changed, na.rm = TRUE), "\tFile changed.",
-      bullet = "info"
+      bullet = "info",
+      bullet_col = "cyan"
     )
     cli::cat_bullet(
-      bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an error."
+      bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an error.",
+      bullet_col = "red"
     )
     cli::cat_rule(width = max(40L, ruler_width))
   }

R/transform-files.R

@@ -66,16 +66,18 @@ transform_file <- function(path,
   }
   changed <- transform_code(path, fun = fun, ..., dry = dry)
 
-  bullet <- if (is.na(changed)) {
-    "warning"
-  } else if (changed) {
-    "info"
-  } else {
-    "tick"
-  }
-
   if (!getOption("styler.quiet", FALSE)) {
-    cli::cat_bullet(bullet = bullet)
+    if (is.na(changed)) {
+      bullet <- "warning"
+      color <- "red"
+    } else if (changed) {
+      bullet <- "info"
+      color <- "cyan"
+    } else {
+      bullet <- "tick"
+      color <- "green"
+    }
+    cli::cat_bullet(bullet = bullet, bullet_col = color)
   }
   invisible(changed)
 }