editor/state/state.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
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 }