From 1eeaf137bd30aff1bef34d05eeec686f6da8959d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 23 May 2021 22:09:50 +0200
Subject: Update editor

---
 editor/state/state.ml | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

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

diff --git a/editor/state/state.ml b/editor/state/state.ml
index 48b4d58..569f26c 100755
--- a/editor/state/state.ml
+++ b/editor/state/state.ml
@@ -17,9 +17,7 @@ type t =
 
 (** Compare two states together.
 
-    The prosemirror elemens are ignored
-
-*)
+    The prosemirror elemens are ignored *)
 let eq s1 s2 =
   Stdlib.(==)
     ( s1.editable
@@ -66,5 +64,25 @@ let load_page
     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 }
+
+    let last_backup =
+      Js.Opt.case json##.date
+        (fun () -> state.last_backup )
+        (fun v -> v) in
+
+    { state with page_id
+               ; last_backup  }
+
+
+let init
+  : PM.t -> PM.View.editor_view Js.t -> float -> Jstr.t option ->  t
+  = fun pm view last_backup page_id ->
+    { editable = true
+    ; view
+    ; last_backup
+    ; page_id
+
+    ; window = []
+    ; pm
+    }
 
-- 
cgit v1.2.3