summaryrefslogtreecommitdiff
path: root/mdl/mdl.ur
diff options
context:
space:
mode:
Diffstat (limited to 'mdl/mdl.ur')
-rw-r--r--mdl/mdl.ur49
1 files changed, 0 insertions, 49 deletions
diff --git a/mdl/mdl.ur b/mdl/mdl.ur
deleted file mode 100644
index 90f03a1..0000000
--- a/mdl/mdl.ur
+++ /dev/null
@@ -1,49 +0,0 @@
-(* 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. *)
-
-structure Classes = MdlClasses
-open Classes
-
-val upgradeAllRegistered = MdlFfi.upgradeAllRegistered
-
-structure Textbox = struct
- fun make (placeholder : string) : transaction {Source : source string,
- Xml : xbody} =
- contents <- source "";
- id <- fresh;
- return {
- Source = contents,
- Xml = <xml>
- <div class="mdl-textfield mdl-js-textfield">
- <ctextbox class="mdl-textfield__input" id={id} source={contents} />
- <label class="mdl-textfield__label" for={id}>{[placeholder]}</label>
- </div>
- </xml>
- }
-end
-
-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