From 7c23b96ce5634550341b9554eda9d7c89a79e3c0 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:03:16 +0100
Subject: Update editor

---
 editor/editor.ml | 48 +++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 45 insertions(+), 3 deletions(-)

(limited to 'editor/editor.ml')

diff --git a/editor/editor.ml b/editor/editor.ml
index 1c2b8a5..c3cad1e 100755
--- a/editor/editor.ml
+++ b/editor/editor.ml
@@ -1,6 +1,46 @@
-open Js_of_ocaml
+open StdLabels
 open Brr
 module PM = Prosemirror
+module Js = Js_of_ocaml.Js
+
+let populate_menu () =
+  match Blog.Sidebar.get () with
+  | None -> ()
+  | Some element ->
+    let () = Blog.Sidebar.clean element in
+    let uri = Brr.Window.location Brr.G.window in
+
+    let pages =
+
+      List.map (Storage.get_ids ())
+        ~f:(fun name ->
+            let target =
+              Jstr.( (Brr.Uri.path uri)
+                     + (Jstr.v "?page=")
+                     + name) in
+            El.li
+              [ El.a
+                  ~at:[At.href target]
+                  [ El.txt name ] ]
+          ) in
+
+    let childs =
+      [ El.button
+          ~at:At.[class' (Jstr.v "action-button")]
+          [ El.i
+              []
+              ~at:At.[ class' (Jstr.v "fa")
+                     ; class' (Jstr.v "fa-2x")
+                     ; class' (Jstr.v "fa-times-circle")
+                     ]
+          ]
+      ; El.hr ()
+      ; El.ul
+          pages
+      ] in
+
+    El.append_children element childs
+
 
 let prosemirror id content =
   begin match (Jv.is_none id), (Jv.is_none content) with
@@ -22,8 +62,10 @@ let prosemirror id content =
           None in
       let mySchema = PM.Model.schema pm specs in
 
+      populate_menu ();
+
       (* Create the initial state *)
-      let state = Storage.load pm mySchema content in
+      let state = Storage.load pm mySchema (Jv.Id.of_jv content) Storage.page_id in
 
       let props = PM.View.direct_editor_props () in
       props##.state := state;
@@ -47,7 +89,7 @@ let prosemirror id content =
       (* Attach an event on focus out *)
       let _ = Brr_note.Evr.on_el
           (Ev.focusout)
-          (fun _ -> Storage.save view)
+          (fun _ -> Storage.save view Storage.page_id)
           (Jv.Id.of_jv id) in
 
       ()
-- 
cgit v1.2.3