1 files changed, 42 insertions, 0 deletions
diff --git a/material/material.ur b/material/material.ur
new file mode 100644
index 0000000..3787355
--- /dev/null
+++ b/material/material.ur
@@ -0,0 +1,42 @@
+(* Copyright 2015 Google Inc.
+Copyright 2016 Benjamin Barenblat
+
+Licensed under the Apache License, Version 2.0 (the “License”); you may not use
+this file except in compliance with the License.  You may obtain a copy of the
+License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software distributed
+under the License is distributed on an “AS IS” BASIS, WITHOUT WARRANTIES OR
+CONDITIONS OF ANY KIND, either express or implied.  See the License for the
+specific language governing permissions and limitations under the License. *)
+
+(* TODO(bbaren): Support attributes in the arguments. *)
+fun page p = <xml>
+  <head>
+    <link rel="stylesheet" href="/material.css" />
+
+    <meta name="viewport" content="width=device-width, initial-scale=1.0" />
+
+    (* Disable tap highlight on IE. *)
+    <meta name="msapplication-tap-highlight" content="no" />
+
+    (* Color the status bar on mobile devices. *)
+    <meta name="theme-color" content="#9c27b0" />
+
+    {p.Head}
+  </head>
+  <body>{p.Body}</body>
+</xml>
+
+structure AppBar = struct
+  style bar
+  style title
+
+  fun make t = <xml>
+    <header class={bar}>
+      <h1 class={title}>{[t]}</h1>
+    </header>
+  </xml>
+end