From f9b17a6d6c6e69ab6f5a28747d21ba24d602cfce Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <benjamin@barenblat.name>
Date: Fri, 19 Aug 2016 18:59:06 -0400
Subject: Support MDL toasts

---
 mdl/mdl.ur | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'mdl/mdl.ur')

diff --git a/mdl/mdl.ur b/mdl/mdl.ur
index f3dec74..7900822 100644
--- a/mdl/mdl.ur
+++ b/mdl/mdl.ur
@@ -13,3 +13,19 @@ CONDITIONS OF ANY KIND, either express or implied.  See the License for the
 specific language governing permissions and limitations under the License. *)
 
 structure Classes = MdlClasses
+open Classes
+
+structure Toast = struct
+  val make : transaction {Placeholder: xbody,
+                          Show: string -> transaction unit} =
+    id <- fresh;
+    return {
+      Placeholder = <xml>
+        <div id={id} class="mdl-js-snackbar mdl-snackbar">
+          <div class="mdl-snackbar__text" />
+          <button class="mdl-snackbar__action"></button>
+        </div>
+      </xml>,
+      Show = MdlFfi.showSnackbar (show id)
+    }
+end
-- 
cgit v1.2.3