diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:12:05 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | eb319516fd922ab89b7120a885d1e801fa3f45aa (patch) | |
tree | 88e676a2f913fbd76501783c4c09ce33ddc8d0df /editor/actions.ml | |
parent | 37485464a4da41462fc285d03229221f44860397 (diff) |
Enjoy the Application pattern
Diffstat (limited to 'editor/actions.ml')
-rwxr-xr-x | editor/actions.ml | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/editor/actions.ml b/editor/actions.ml index c02584f..3b17dae 100755 --- a/editor/actions.ml +++ b/editor/actions.ml @@ -3,7 +3,7 @@ open Brr open Brr_note type button_actions = - { edit : El.t * (unit Note.event) + { delete : El.t * (unit Note.event) } let populate_menu () = @@ -13,21 +13,21 @@ let populate_menu () = let () = Blog.Sidebar.clean element in let uri = Brr.Window.location Brr.G.window in - let edit_button = El.button + 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-pen") + ; class' (Jstr.v "fa-trash") ] ] in - let edit_event = + let delete_event = Evr.on_el Ev.click Evr.unit - edit_button in + delete_button in let pages = @@ -52,7 +52,6 @@ let populate_menu () = ; class' (Jstr.v "fa-2x") ; class' (Jstr.v "fa-home") ] ] - ; edit_button ; El.button ~at:At.[class' (Jstr.v "action-button")] [ El.i @@ -69,14 +68,7 @@ let populate_menu () = ; class' (Jstr.v "fa-2x") ; class' (Jstr.v "fa-download") ] ] - ; 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") ] - ] + ; delete_button ; El.button ~at:At.[class' (Jstr.v "action-button")] [ El.i @@ -92,5 +84,5 @@ let populate_menu () = let () = El.append_children element childs in Some - { edit = (edit_button, edit_event) + { delete = (delete_button, delete_event) } |