Wire up floating action button

The new next action dialogue comes up immediately, hiding the animation.
That’ll need to change.

3 files changed, 6 insertions, 4 deletions

diff --git a/main.ur b/main.ur
index 1f540f8..42c3dab 100644
--- a/main.ur
+++ b/main.ur
@@ -47,7 +47,8 @@ datatype mode = NextActions | NewNextAction
 val main =
   actionItems <- bind renderNextActions source;
   mode <- source NextActions;
-  floatingActionButton <- Material.FloatingActionButton.make "add";
+  floatingActionButton <-
+      Material.FloatingActionButton.make "add" (fn _ => set mode NewNextAction);
   return (Material.page {
     Head = <xml>
       (* TODO(bbaren): Write a meta-description tag. *)
diff --git a/material/material.ur b/material/material.ur
index f63bec0..5a2f72d 100644
--- a/material/material.ur
+++ b/material/material.ur
@@ -130,14 +130,15 @@ structure FloatingActionButton = struct
   val width = 56
   val height = 56
 
-  fun make s =
+  fun make s clickHandler =
     inkCenter <- source None;
     return <xml>
       <div class={container}>
         <button
           class={element}
           onclick={fn click =>
-             set inkCenter (Some {X = click.ClientX, Y = click.ClientY})
+             set inkCenter (Some {X = click.ClientX, Y = click.ClientY});
+             clickHandler click
           }
         >
           {icon s}
diff --git a/material/material.urs b/material/material.urs
index 7cb7c89..d244ec0 100644
--- a/material/material.urs
+++ b/material/material.urs
@@ -22,7 +22,7 @@ structure Checkbox : sig
 end
 
 structure FloatingActionButton : sig
-  val make : string -> transaction xbody
+  val make : string -> (mouseEvent -> transaction unit) -> transaction xbody
 end
 
 structure List : sig