From 28417d795a6922c3df3c2c0aea78a51648b0428e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:27:05 +0100
Subject: Added import button in editor

---
 editor/state/storage.ml | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

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

diff --git a/editor/state/storage.ml b/editor/state/storage.ml
index a790a9d..1bb8b81 100755
--- a/editor/state/storage.ml
+++ b/editor/state/storage.ml
@@ -157,3 +157,27 @@ let to_json
     (* Also add the home page *)
     let pages = Array.of_list @@ (save_for_id None)::pages in
     Brr.Json.encode (Jv.Id.to_jv pages)
+
+let of_json
+  : Jstr.t -> (unit, Jv.Error.t) result
+  = fun json ->
+    let result = Json.decode json in
+    Result.map
+      (fun v ->
+         Array.iter (Jv.Id.of_jv v)
+           ~f:(fun element ->
+               let key = element##.id
+               and content = object%js
+                 val title = element##.title
+                 val content = element##.content
+                 val date = element##.date
+               end in
+               ignore @@
+               save
+                 ~check:(fun _ -> true)
+                 content
+                 key
+             ))
+      result
+
+
-- 
cgit v1.2.3