use spectrum for color output

.github/workflows/build.yml

@@ -10,12 +10,16 @@ jobs:
       matrix:
         include:
           - os: ubuntu-latest
+            ocaml-compiler: "ocaml-variants.5.2.0+options,ocaml-option-flambda"
             triplet: "x64-linux"
           - os: windows-latest
+            ocaml-compiler: "ocaml-variants.5.2.0+options,ocaml-option-flambda"
             triplet: "x64-mingw-static"
           - os: macos-latest
+            ocaml-compiler: "ocaml-variants.5.2.0+options,ocaml-option-flambda"
             triplet: "arm64-osx"
           - os: macos-13
+            ocaml-compiler: "ocaml-variants.5.2.0+options,ocaml-option-flambda"
             triplet: "x64-osx"
     defaults:
       run:
@@ -63,11 +67,11 @@ jobs:
 
       - uses: ocaml/setup-ocaml@v3
         with:
-          ocaml-compiler: "ocaml-variants.5.2.0+options,ocaml-option-flambda"
+          ocaml-compiler: ${{ matrix.ocaml-compiler }}
           opam-disable-sandboxing: true
           dune-cache: false
 
-      - run: opam exec -- opam install . --deps-only
+      - run: opam exec -- opam install . --deps-only --update-invariant
       - run: opam exec -- dune build --verbose
       - run: opam exec -- dune exec ODiffBin -- --version 
 

bin/Print.ml

@@ -1,53 +1,32 @@
-(* open Odiff.Diff *)
+open Odiff.Diff
 
 let printDiffResult makeParsableOutput result =
-  (* (match (result, makeParsableOutput) with *)
-  (* | Layout, true -> "" *)
-  (* | Layout, false -> *)
-  (*     Pastel.createElement *)
-  (*       ~children: *)
-  (*         [ *)
-  (*           (Pastel.createElement ~color:Red ~bold:true ~children:[ "Failure!" ] *)
-  (*              () [@JSX]); *)
-  (*           " Images have different layout.\n"; *)
-  (*         ] *)
-  (*       () [@JSX] *)
-  (* | Pixel (_output, diffCount, _percentage, _lines), true when diffCount == 0 -> *)
-  (*     "" *)
-  (* | Pixel (_output, diffCount, _percentage, _lines), false when diffCount == 0 *)
-  (*   -> *)
-  (*     Pastel.createElement *)
-  (*       ~children: *)
-  (*         [ *)
-  (*           (Pastel.createElement ~color:Green ~bold:true *)
-  (*              ~children:[ "Success!" ] () [@JSX]); *)
-  (*           " Images are equal.\n"; *)
-  (*           (Pastel.createElement ~dim:true *)
-  (*              ~children:[ "No diff output created." ] *)
-  (*              () [@JSX]); *)
-  (*         ] *)
-  (*       () [@JSX] *)
-  (* | Pixel (_output, diffCount, diffPercentage, stack), true *)
-  (*   when not (Stack.is_empty stack) -> *)
-  (*     Int.to_string diffCount ^ ";" *)
-  (*     ^ Float.to_string diffPercentage *)
-  (*     ^ ";" *)
-  (*     ^ (stack *)
-  (*       |> Stack.fold (fun acc line -> (line |> Int.to_string) ^ "," ^ acc) "") *)
-  (* | Pixel (_output, diffCount, diffPercentage, _), true -> *)
-  (*     Int.to_string diffCount ^ ";" ^ Float.to_string diffPercentage *)
-  (* | Pixel (_output, diffCount, diffPercentage, _lines), false -> *)
-  (*     Pastel.createElement *)
-  (*       ~children: *)
-  (*         [ *)
-  (*           (Pastel.createElement ~color:Red ~bold:true ~children:[ "Failure!" ] *)
-  (*              () [@JSX]); *)
-  (*           " Images are different.\n"; *)
-  (*           "Different pixels: "; *)
-  (*           (Pastel.createElement ~color:Red ~bold:true *)
-  (*              ~children:[ Printf.sprintf "%i (%f%%)" diffCount diffPercentage ] *)
-  (*              () [@JSX]); *)
-  (*         ] *)
-  (*       () [@JSX]) *)
-  (* |> Console.log; *)
+  let reset_ppf = Spectrum.prepare_ppf Format.str_formatter in
+  (match (result, makeParsableOutput) with
+  | Layout, true -> ()
+  | Layout, false ->
+      Spectrum.Simple.printf "@{<red>%s!@} Images have different layout.\n"
+        "Failure!"
+  | Pixel (_output, diffCount, diffPercentage, stack), true
+    when not (Stack.is_empty stack) ->
+      Int.to_string diffCount ^ ";"
+      ^ Float.to_string diffPercentage
+      ^ ";"
+      ^ (stack
+        |> Stack.fold (fun acc line -> (line |> Int.to_string) ^ "," ^ acc) "")
+      |> print_endline
+  | Pixel (_output, diffCount, diffPercentage, _), true ->
+      Int.to_string diffCount ^ ";" ^ Float.to_string diffPercentage
+      |> print_endline
+  | Pixel (_output, diffCount, _percentage, _lines), false when diffCount == 0
+    ->
+      Spectrum.Simple.printf
+        "@{<green><bold>Success!@} Images are equal.\n\
+         @{<dim>No diff output created.@}"
+  | Pixel (_output, diffCount, diffPercentage, _lines), false ->
+      Spectrum.Simple.printf
+        "@{<red,bold>Failure!@} Images are different.\n\
+         Different pixels: @{<red,bold>%i (%f%%)@}" diffCount diffPercentage);
+
+  reset_ppf ();
   result

bin/dune

@@ -4,7 +4,7 @@
  (package odiff)
  (flags
   (:standard -w -27))
- (libraries odiff-core odiff-io cmdliner))
+ (libraries odiff-core odiff-io cmdliner spectrum))
 
 (env
  (dev

dune-project

@@ -24,6 +24,7 @@
   odiff-core
   odiff-io
   (cmdliner (= 1.3.0))
+  (spectrum (= 0.6.0))
  )
 )
 

odiff.opam

@@ -11,6 +11,7 @@ depends: [
   "odiff-core"
   "odiff-io"
   "cmdliner" {= "1.3.0"}
+  "spectrum" {= "0.6.0"}
   "odoc" {with-doc}
 ]
 build: [