From 32497bbcec79aee7b508910365c757b1fb5e8207 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=B8ren=20Debois?= Date: Mon, 21 Mar 2016 12:24:00 +0100 Subject: [PATCH] Templates. --- Makefile | 4 ++++ examples/Demo.elm | 14 ++++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/Makefile b/Makefile index ceb8d8c..6e6aa98 100644 --- a/Makefile +++ b/Makefile @@ -3,6 +3,10 @@ PAGES=../elm-mdl-gh-pages elm.js: elm-make examples/Demo.elm --warn --output elm.js +wip-pages : + elm-make examples/Demo.elm --output $(PAGES)/wip.js + (cd $(PAGES); git commit -am "Update."; git push origin gh-pages) + pages : elm-make examples/Demo.elm --output $(PAGES)/elm.js (cd $(PAGES); git commit -am "Update."; git push origin gh-pages) diff --git a/examples/Demo.elm b/examples/Demo.elm index 472bc1a..bd3044b 100644 --- a/examples/Demo.elm +++ b/examples/Demo.elm @@ -17,7 +17,7 @@ import Demo.Buttons import Demo.Grid import Demo.Textfields import Demo.Snackbar -import Demo.Template +--import Demo.Template -- MODEL @@ -34,7 +34,7 @@ type alias Model = , buttons : Demo.Buttons.Model , textfields : Demo.Textfields.Model , snackbar : Demo.Snackbar.Model - , template : Demo.Template.Model + --, template : Demo.Template.Model } @@ -44,7 +44,7 @@ model = , buttons = Demo.Buttons.model , textfields = Demo.Textfields.model , snackbar = Demo.Snackbar.model - , template = Demo.Template.model + --, template = Demo.Template.model } @@ -56,7 +56,7 @@ type Action | ButtonsAction Demo.Buttons.Action | TextfieldAction Demo.Textfields.Action | SnackbarAction Demo.Snackbar.Action - | TemplateAction Demo.Template.Action + --| TemplateAction Demo.Template.Action update : Action -> Model -> (Model, Effects.Effects Action) @@ -66,7 +66,7 @@ update action model = ButtonsAction a -> lift .buttons (\m x->{m|buttons =x}) ButtonsAction Demo.Buttons.update a model TextfieldAction a -> lift' .textfields (\m x->{m|textfields=x}) Demo.Textfields.update a model SnackbarAction a -> lift .snackbar (\m x->{m|snackbar =x}) SnackbarAction Demo.Snackbar.update a model - TemplateAction a -> lift .template (\m x->{m|template =x}) TemplateAction Demo.Template.update a model + --TemplateAction a -> lift .template (\m x->{m|template =x}) TemplateAction Demo.Template.update a model -- VIEW @@ -84,7 +84,7 @@ drawer = [href "https://github.com/debois/elm-mdl"] [text "github"] , Layout.link - [href "http://package.elm-lang.org/packages/debois/elm-mdl/1.0.0/"] + [href "http://package.elm-lang.org/packages/debois/elm-mdl/latest/"] [text "elm-package"] ] ] @@ -114,8 +114,10 @@ tabs = , ("Buttons", \addr model -> [Demo.Buttons.view (Signal.forwardTo addr ButtonsAction) model.buttons]) , ("Grid", \addr model -> Demo.Grid.view) + {- , ("Template", \addr model -> [Demo.Template.view (Signal.forwardTo addr TemplateAction) model.template]) + -} ]