diff options
Diffstat (limited to 'editor/state/storage.ml')
-rwxr-xr-x | editor/state/storage.ml | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/editor/state/storage.ml b/editor/state/storage.ml index b0c00de..a790a9d 100755 --- a/editor/state/storage.ml +++ b/editor/state/storage.ml @@ -1,4 +1,5 @@ open Brr +open StdLabels module Js = Js_of_ocaml.Js let storage_key = (Jstr.v "editor") @@ -136,3 +137,23 @@ let get_ids in add_element [] items + +let save_for_id + : Jstr.t option -> 'a Js.t + = fun id -> + let element = load id in + object%js + val title = element##.title + val content = element##.content + val date = element##.date + val id = id + end + +let to_json + : unit -> Jstr.t + = fun () -> + let keys = get_ids () in + let pages = List.map ~f:(fun id -> save_for_id (Some id)) keys in + (* Also add the home page *) + let pages = Array.of_list @@ (save_for_id None)::pages in + Brr.Json.encode (Jv.Id.to_jv pages) |