Respect NO_COLOR flag.

Author: robinheghan

src/Terminal/Help.gren

@@ -18,15 +18,15 @@ import SemanticVersion
 type alias ConfirmConfig =
     { stdout : Stream.Writable Bytes
     , stdin : Stream.Readable Bytes
+    , useColor : Bool
     , interactive : Bool
     , question : PP.Document
     , defaultValue : Bool
     }
 
 
--- TODO: respect NO_COLOR
 confirm : ConfirmConfig -> Task Stream.Error Bool
-confirm { stdout, stdin, interactive, question, defaultValue } =
+confirm { stdout, stdin, useColor, interactive, question, defaultValue } =
     if not interactive then
         Task.succeed defaultValue
 
@@ -40,7 +40,7 @@ confirm { stdout, stdin, interactive, question, defaultValue } =
                     " [y|N]: "
         in
         PP.block [ question, PP.text legend ]
-            |> prettyPrint
+            |> prettyPrint { useColor = useColor }
             |> Stream.Log.string stdout
             |> Task.andThen (\_ -> Stream.readBytesAsString stdin)
             |> Task.map
@@ -57,14 +57,19 @@ confirm { stdout, stdin, interactive, question, defaultValue } =
                 )
 
 
-prettyPrint : PP.Document -> String
-prettyPrint doc =
+prettyPrint : { useColor : Bool } -> PP.Document -> String
+prettyPrint { useColor } doc =
     PP.toStringWithOptions
         { maxColumns = 80
         , indentationSize = 4
         , newlineSeparator = "\n"
         }
-        doc
+        (if useColor then
+            doc
+
+        else
+            PP.stripColor doc
+        )
 
 
 report : String -> Maybe Path -> PP.Document -> PP.Document

src/Terminal/Init.gren

@@ -77,6 +77,7 @@ run config =
                     Terminal.Help.confirm
                         { stdout = config.stdout
                         , stdin = config.stdin
+                        , useColor = config.useColor
                         , interactive = config.interactive
                         , question =
                             PP.verticalBlock
@@ -105,7 +106,7 @@ run config =
             )
         |> Task.onError
             (\err ->
-                Stream.Log.line config.stdout (displayError err)
+                Stream.Log.line config.stdout (displayError { useColor = config.useColor } err)
             )
         |> Task.execute
 
@@ -246,9 +247,9 @@ generateGrenJson config deps =
             )
 
 
-displayError : Error -> String
-displayError err =
-    Terminal.Help.prettyPrint <|
+displayError : { useColor : Bool } -> Error -> String
+displayError printOpts err =
+    Terminal.Help.prettyPrint printOpts <|
         when err is
             AlreadyInitialized ->
                 Terminal.Help.report

src/Terminal/PackageInstall.gren

@@ -424,6 +424,7 @@ addPackage config { projectPath, outline } requestedPackage =
                                 Help.confirm
                                     { stdout = config.stdout
                                     , stdin = config.stdin
+                                    , useColor = config.useColor
                                     , interactive = config.interactive
                                     , question = plan
                                     , defaultValue = True

src/Terminal/PackageUninstall.gren

@@ -127,6 +127,7 @@ run config { projectPath, outline } requestedPackage =
                                 Help.confirm
                                     { stdout = config.stdout
                                     , stdin = config.stdin
+                                    , useColor = config.useColor
                                     , interactive = config.interactive
                                     , question = plan
                                     , defaultValue = True