From bf94695abeda0d7bb296ae4cd0f9a53782587d4a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:14:09 +0100
Subject: Update editor organisation

---
 editor/state/state.ml | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100755 editor/state/state.ml

(limited to 'editor/state/state.ml')

diff --git a/editor/state/state.ml b/editor/state/state.ml
new file mode 100755
index 0000000..48b4d58
--- /dev/null
+++ b/editor/state/state.ml
@@ -0,0 +1,70 @@
+open Brr
+module PM = Prosemirror
+module Js = Js_of_ocaml.Js
+
+module Storage = Storage
+
+(** This is the state for the application *)
+type t =
+  { editable : bool
+  ; view : PM.View.editor_view Js.t
+  ; last_backup: float
+  ; page_id: Jstr.t option
+
+  ; window : Brr.El.t list
+  ; pm : PM.t
+  }
+
+(** Compare two states together.
+
+    The prosemirror elemens are ignored
+
+*)
+let eq s1 s2 =
+  Stdlib.(==)
+    ( s1.editable
+    , s1.last_backup
+    , s1.page_id
+    , s1.window )
+
+    ( s2.editable
+    , s2.last_backup
+    , s2.page_id
+    , s2.window )
+
+let set_title
+  : Storage.content Js.t -> unit
+  = fun content ->
+    let title =
+      Js.Opt.get
+        content##.title
+        (fun () -> Jstr.empty) in
+    let title_element = Document.find_el_by_id G.document (Jstr.v "title") in
+    Option.iter
+      (fun el -> El.set_prop (El.Prop.value) title el)
+      title_element
+
+let state_of_storage
+  : PM.t -> Storage.content Js.t -> PM.Model.schema Js.t -> PM.State.editor_state Js.t
+  = fun pm content schema ->
+    Js.Opt.case
+      content##.content
+      (fun () ->
+         let obj = PM.State.creation_prop () in
+         obj##.plugins := Plugins.default pm schema;
+         obj##.schema := Js.some schema;
+         PM.State.create pm obj)
+      (fun page_content ->
+         let obj = PM.State.configuration_prop () in
+         obj##.plugins := Plugins.default pm schema;
+         obj##.schema := Js.some schema;
+         PM.State.fromJSON pm obj page_content)
+
+let load_page
+  : Jstr.t option -> t -> Storage.content Js.t -> t
+  = fun page_id state json ->
+    let editor_state = state_of_storage state.pm json state.view##.state##.schema in
+    let () = state.view##updateState editor_state
+    and () = set_title json in
+    { state with page_id }
+
-- 
cgit v1.2.3