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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

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 -> t
  = fun page_id state ->
    let json = Storage.load page_id in
    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

    let last_backup =
      Js.Opt.case json##.date
        (fun () -> state.last_backup )
        (fun v -> v) in

    { state with page_id
               ; last_backup  }

let new_page
  : Jstr.t option -> title:Jstr.t -> t -> t
  = fun page_id ~title state ->
    let new_date = (new%js Js.date_now)##getTime in
    let content_obj = object%js
      val content = Js.null
      val title = Js.some title
      val date = Js.some new_date
    end in
    let editor_state = state_of_storage state.pm content_obj state.view##.state##.schema in
    let () = state.view##updateState editor_state
    and () = set_title content_obj in

    let last_backup =
      Js.Opt.case content_obj##.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
    }