1 files changed, 2 insertions, 1 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. *)