It's aware !

vendor/brr_lwd_ui/bindings/y-quill/y_quill.ml

@@ -2,5 +2,9 @@ type t = Jv.t
 
 let quill_binding = Global.quill_binding
 
-let make text editor =
-  Jv.new' quill_binding [| Yjs.Text.to_jv text; Quill.to_jv editor |]
+let make ?awareness text editor =
+  let awareness = Option.map Yjs.Awareness.to_jv awareness in
+  let params =
+    Yjs.Text.to_jv text :: Quill.to_jv editor :: Option.to_list awareness
+  in
+  Jv.new' quill_binding @@ Array.of_list params

vendor/brr_lwd_ui/bindings/y-quill/y_quill.mli

@@ -1,3 +1,3 @@
 type t
 
-val make : Yjs.Text.t -> Quill.t -> t
+val make : ?awareness:Yjs.Awareness.t -> Yjs.Text.t -> Quill.t -> t

vendor/brr_lwd_ui/bindings/yjs/awareness.ml

@@ -0,0 +1,6 @@
+type t = Jv.t
+
+external to_jv : t -> Jv.t = "%identity"
+
+let class_awarness = Jv.get Global.awareness_protocol "Awareness"
+let make doc = Jv.new' class_awarness [| Doc.Doc.to_jv doc |]

vendor/brr_lwd_ui/bindings/yjs/awareness.mli

@@ -0,0 +1,4 @@
+type t
+
+val to_jv : t -> Jv.t
+val make : Doc.Doc.t -> t

vendor/brr_lwd_ui/bindings/yjs/global.ml

@@ -1 +1,2 @@
 let yjs = Jv.get Jv.global "yjs"
+let awareness_protocol = Jv.get Jv.global "awarenessProtocol"

vendor/brr_lwd_ui/bindings/yjs/js/yjs.js

@@ -1,3 +1,4 @@
 window.yjs = require('yjs')
 window.WebrtcProvider = require('y-webrtc').WebrtcProvider
 window.IndexeddbPersistence = require('y-indexeddb').IndexeddbPersistence
+window.awarenessProtocol = require('y-protocols/awareness.js')

vendor/brr_lwd_ui/bindings/yjs/webrtc_provider.ml

@@ -143,7 +143,7 @@ let _servers =
     "relay.webwormhole.io:3478";
   ]
 
-let make ~room_name ?signaling yjs_doc =
+let make ~room_name ?signaling ?awareness yjs_doc =
   let signaling =
     Option.map (fun v -> ("signaling", Jv.of_list Jv.of_string v)) signaling
   in
@@ -169,8 +169,12 @@ let make ~room_name ?signaling yjs_doc =
           |] )
   in
   let () = Brr.Console.log [ peer_opts ] in
+  let awareness =
+    Option.map (fun a -> ("awareness", Awareness.to_jv a)) awareness
+  in
   let options =
-    [ signaling; peer_opts ] |> List.filter_map Fun.id |> Array.of_list
+    [ signaling; peer_opts; awareness ]
+    |> List.filter_map Fun.id |> Array.of_list
   in
   Jv.new' web_rpc_provider
     [| Jv.of_string room_name; Doc.Doc.to_jv yjs_doc; Jv.obj options |]

vendor/brr_lwd_ui/bindings/yjs/webrtc_provider.mli

@@ -1,3 +1,8 @@
 type t
 
-val make : room_name:string -> ?signaling:string list -> Doc.Doc.t -> t
+val make :
+  room_name:string ->
+  ?signaling:string list ->
+  ?awareness:Awareness.t ->
+  Doc.Doc.t ->
+  t

vendor/brr_lwd_ui/bindings/yjs/yjs.ml

@@ -1,4 +1,5 @@
 module Webrtc_provider = Webrtc_provider
 module Indexeddb_persistence = Indexeddb_persistence
+module Awareness = Awareness
 include Doc
 include Y

vendor/brr_lwd_ui/examples/yjs/main.ml

@@ -7,10 +7,11 @@ open Lwd_infix
 let random_state = Random.State.make_self_init ()
 let new_uuid_v4 () = Uuidm.v4_gen random_state ()
 let yjs_doc = Yjs.Doc.make ()
+let awareness = Yjs.Awareness.make yjs_doc
 let _ = Quill.register ~path:"modules/cursors" Quill.cursors
 
 let provider =
-  Yjs.Webrtc_provider.make ~room_name:"testroom5267564"
+  Yjs.Webrtc_provider.make ~room_name:"testroom5267564" ~awareness
     ~signaling:[ "wss://p2p.u31.fr" ] yjs_doc
 
 let _provider = Yjs.Indexeddb_persistence.make ~doc_name:"zedoc" yjs_doc
@@ -606,7 +607,7 @@ let render_richtext_cell ~src:_ (value : Yjs.Text.t) =
     let open Quill in
     let toolbar = Array [ Bold; Italic; Underline ] in
     make ~container @@ config ~theme:Snow ~cursors:true ~toolbar ()
-    |> (* TODO is there some cleanup to do ? *) Y_quill.make value
+    |> (* TODO is there some cleanup to do ? *) Y_quill.make ~awareness value
   in
   elt