diff options
Diffstat (limited to 'mdl/mdl.ur')
-rw-r--r-- | mdl/mdl.ur | 49 |
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 |