diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 15:49:48 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 54f6e68c051afec0d20c349352feee5356e11b35 (patch) | |
tree | b9cf8c7c64538728c9f6e864896c00d32641b834 /editor/state/state.mli | |
parent | fe2cced55e1b44dbae57e55fe0f459c85e7369cb (diff) |
Update editor code
Diffstat (limited to 'editor/state/state.mli')
-rwxr-xr-x | editor/state/state.mli | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/editor/state/state.mli b/editor/state/state.mli index 6984067..20d5288 100755 --- a/editor/state/state.mli +++ b/editor/state/state.mli @@ -11,6 +11,7 @@ type t = ; pm : Prosemirror.t } + val eq: t -> t -> bool (** Update the title element according to the page. *) @@ -26,3 +27,18 @@ val load_page (** Initialise a new state *) val init : Prosemirror.t -> Prosemirror.View.editor_view Js.t -> float -> Jstr.t option -> t + +type state = t +module type Event = sig + + type t + + val update: t -> state -> state + +end + +type event = E : 'a * (module Event with type t = 'a) -> event + +(** Simple helper for the main event loop *) +val run + : ?eq:(t -> t -> bool) -> t -> event Note.E.t -> state Note.S.t |