From 1eeaf137bd30aff1bef34d05eeec686f6da8959d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 23 May 2021 22:09:50 +0200
Subject: Update editor

---
 editor/actions/actions.ml | 128 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 128 insertions(+)
 create mode 100755 editor/actions/actions.ml

(limited to 'editor/actions/actions.ml')

diff --git a/editor/actions/actions.ml b/editor/actions/actions.ml
new file mode 100755
index 0000000..e8b4d71
--- /dev/null
+++ b/editor/actions/actions.ml
@@ -0,0 +1,128 @@
+open StdLabels
+open Js_of_ocaml
+open Brr
+open Brr_note
+
+module Event = Event
+
+type button_actions =
+  { delete : Event.t Note.event
+  ; redirect : Jstr.t option Note.event
+  ; add: Event.t Note.event
+  }
+
+let populate_menu
+  : Forms.Events.event option Note.E.send -> button_actions option
+  = fun sender ->
+    match Blog.Sidebar.get () with
+    | None -> None
+    | Some element ->
+      let () = Blog.Sidebar.clean element in
+
+      let delete_button = 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-trash") ] ]
+
+      and home_button = 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-home") ] ]
+
+      and add_button = 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-plus") ] ]
+
+      in
+
+      let delete_event =
+        Evr.on_el
+          Ev.click
+          (fun _ -> Event.E
+              ( sender
+              , (module Delete_page: Event.Handler with type t = Delete_page.t)) )
+          delete_button
+
+      and add_event =
+        Evr.on_el
+          Ev.click
+          (fun _ -> Event.E
+              ( sender
+              , (module Add_page: Event.Handler with type t = Add_page.t)) )
+          add_button in
+
+      let stored_pages = State.Storage.get_ids () in
+      let pages =
+        List.map
+          stored_pages
+          ~f:(fun id ->
+
+              let name_opt = (State.Storage.load (Some id))##.title in
+              let name = Js.Opt.get
+                  name_opt
+                  (fun () -> id) in
+
+              let target = Jstr.v "#" in
+              El.li
+                [ El.a
+                    ~at:[At.href target]
+                    [ El.txt name ] ]
+            ) in
+
+      (* Wait for a click on an existing page in order to sent the associated
+         event.
+
+         We compose the resulting event with both :
+         - the home button
+         - the list for all the pages presents in the sidebar *)
+      let redirect_event = Note.E.select
+          (( Evr.on_el
+               Ev.click
+               (fun _ -> None)
+               home_button
+           ) :: (
+             List.map2 stored_pages pages
+               ~f:(fun name el ->
+                   Evr.on_el
+                     Ev.click
+                     (fun _ -> Some name)
+                     el ))) in
+
+      let childs =
+        [ home_button
+        ; add_button
+        ; 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-download") ]
+            ]
+        ; delete_button
+        ; 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-cog") ]
+            ]
+        ; El.hr ()
+        ; El.ul
+            pages
+        ] in
+
+      let () = El.append_children element childs in
+      Some
+        { delete = delete_event
+        ; redirect = redirect_event
+        ; add = add_event
+        }
-- 
cgit v1.2.3