rpc: serialize user message styles

Signed-off-by: Ali Caglayan <alizter@gmail.com>
ocaml · Aug 26, 2023 · e5ccd20 · e5ccd20
1 parent fdc7f1a
commit e5ccd20
Show file tree

Hide file tree

Showing 11 changed files with 949 additions and 131 deletions.
diff --git a/otherlibs/dune-rpc/dune_rpc.ml b/otherlibs/dune-rpc/dune_rpc.ml
@@ -14,6 +14,8 @@ module V1 = struct
   module Message = Message
   module Where = Where
   module Registry = Registry
+  module Ansi_color = Ansi_color
+  module User_message = User_message
   include Public
 
   module Client = struct

diff --git a/otherlibs/dune-rpc/dune_rpc.mli b/otherlibs/dune-rpc/dune_rpc.mli
@@ -86,6 +86,80 @@ module V1 : sig
     val to_string_absolute : t -> string
   end
 
+  module Ansi_color : sig
+    module RGB8 : sig
+      type t
+    end
+
+    module RGB24 : sig
+      type t
+    end
+
+    module Style : sig
+      type t =
+        | Fg_default
+        | Fg_black
+        | Fg_red
+        | Fg_green
+        | Fg_yellow
+        | Fg_blue
+        | Fg_magenta
+        | Fg_cyan
+        | Fg_white
+        | Fg_bright_black
+        | Fg_bright_red
+        | Fg_bright_green
+        | Fg_bright_yellow
+        | Fg_bright_blue
+        | Fg_bright_magenta
+        | Fg_bright_cyan
+        | Fg_bright_white
+        | Fg_8_bit_color of RGB8.t
+        | Fg_24_bit_color of RGB24.t
+        | Bg_default
+        | Bg_black
+        | Bg_red
+        | Bg_green
+        | Bg_yellow
+        | Bg_blue
+        | Bg_magenta
+        | Bg_cyan
+        | Bg_white
+        | Bg_bright_black
+        | Bg_bright_red
+        | Bg_bright_green
+        | Bg_bright_yellow
+        | Bg_bright_blue
+        | Bg_bright_magenta
+        | Bg_bright_cyan
+        | Bg_bright_white
+        | Bg_8_bit_color of RGB8.t
+        | Bg_24_bit_color of RGB24.t
+        | Bold
+        | Dim
+        | Italic
+        | Underline
+    end
+  end
+
+  module User_message : sig
+    module Style : sig
+      type t =
+        | Loc
+        | Error
+        | Warning
+        | Kwd
+        | Id
+        | Prompt
+        | Hint
+        | Details
+        | Ok
+        | Debug
+        | Success
+        | Ansi_styles of Ansi_color.Style.t list
+    end
+  end
+
   module Target : sig
     type t =
       | Path of string
@@ -121,6 +195,7 @@ module V1 : sig
 
       val loc : t -> Loc.t
       val message : t -> unit Pp.t
+      val message_with_style : t -> User_message.Style.t Pp.t
     end
 
     type t
@@ -129,6 +204,7 @@ module V1 : sig
     val loc : t -> Loc.t option
     val id : t -> Id.t
     val message : t -> unit Pp.t
+    val message_with_style : t -> User_message.Style.t Pp.t
     val severity : t -> severity option
     val promotion : t -> Promotion.t list