From 54f6e68c051afec0d20c349352feee5356e11b35 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:49:48 +0100
Subject: Update editor code

---
 editor/forms/ui.ml | 79 ------------------------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100755 editor/forms/ui.ml

(limited to 'editor/forms')

diff --git a/editor/forms/ui.ml b/editor/forms/ui.ml
deleted file mode 100755
index 53039c4..0000000
--- a/editor/forms/ui.ml
+++ /dev/null
@@ -1,79 +0,0 @@
-open Brr
-open Brr_note
-module Js = Js_of_ocaml.Js
-
-let popup
-  : ?form:('a Note.signal * El.t) option -> title:Jstr.t -> 'a option Note.event
-  = fun ?(form = None) ~title ->
-
-    (* Ensure we keep a track for the signal event.
-
-       This looks a bit like the old memory magment in C, as it require to
-       destroy the logger each time the popup is removed. *)
-    let log_opt = Option.map
-        (fun (values, _) -> Note.S.log values (fun _ -> ()))
-        form in
-
-    let close_btn =
-      El.span
-        ~at:At.[class' (Jstr.v "modal-close")]
-        [ El.txt' "×"]
-
-    and submit_btn = El.input ()
-        ~at:At.[type' (Jstr.v "submit")] in
-
-    let container = match form with
-      | None -> El.div
-      | Some _ -> El.form
-
-    and body = match form with
-      | None -> El.div []
-      | Some (_, content) -> content
-
-    and footer = match form with
-      | None -> El.txt Jstr.empty
-      | Some _ ->
-
-        El.div [ submit_btn ]
-          ~at:At.[class' (Jstr.v "row")] in
-
-    (* HTML Element creation *)
-    let el = El.div
-        ~at:At.[class' (Jstr.v "modal")]
-        [ container
-            ~at:At.[class' (Jstr.v "modal-content")]
-            [ El.div
-                ~at:At.[class' (Jstr.v "modal-header")]
-                [ close_btn
-                ; El.h3
-                    [ El.txt title ]]
-            ; El.div
-                ~at:At.[class' (Jstr.v "modal-body")]
-                [ body ]
-            ; El.div
-                ~at:At.[class' (Jstr.v "modal-footer")]
-                [ footer ]]] in
-
-    let () = El.append_children (Document.body G.document)
-        [ el ] in
-
-    (* Event handler *)
-    let close_event = Evr.on_el
-        Ev.click
-        (fun _ ->
-           El.remove el;
-           Option.iter Note.Logr.destroy log_opt;
-           None)
-        close_btn
-
-    and submit_event = Evr.on_el
-        Ev.click
-        (fun _ ->
-           El.remove el;
-           Option.iter Note.Logr.destroy log_opt;
-           Option.map (fun v -> Note.S.value (fst v)) form)
-        submit_btn in
-
-    Note.E.select
-      [ close_event
-      ; submit_event ]
-- 
cgit v1.2.3