commit 5b0e9df4f904fd80084d0d92059be565fc991220 Author: Danila Fedorin Date: Thu Jun 20 21:04:23 2019 -0700 Initial commit. Set up a basic project scaffold. diff --git a/background.jpg b/background.jpg new file mode 100644 index 0000000..6612758 Binary files /dev/null and b/background.jpg differ diff --git a/elm.json b/elm.json new file mode 100644 index 0000000..b8ff8c9 --- /dev/null +++ b/elm.json @@ -0,0 +1,24 @@ +{ + "type": "application", + "source-directories": [ + "src" + ], + "elm-version": "0.19.0", + "dependencies": { + "direct": { + "elm/browser": "1.0.1", + "elm/core": "1.0.2", + "elm/html": "1.0.0" + }, + "indirect": { + "elm/json": "1.1.3", + "elm/time": "1.0.0", + "elm/url": "1.0.0", + "elm/virtual-dom": "1.0.2" + } + }, + "test-dependencies": { + "direct": {}, + "indirect": {} + } +} \ No newline at end of file diff --git a/src/Main.elm b/src/Main.elm new file mode 100644 index 0000000..45ce93f --- /dev/null +++ b/src/Main.elm @@ -0,0 +1,27 @@ +module Main exposing (main) +import Start.Model exposing (Flags, Model, Msg) +import Start.View exposing (view) +import Browser exposing (Document, document) + +init : Flags -> (Model, Cmd Msg) +init () = ((), Cmd.none) + +view : Model -> Document Msg +view m = + { title = "Start Page" + , body = Start.View.view m + } + +update : Msg -> Model -> (Model, Cmd Msg) +update () () = ((), Cmd.none) + +subscriptions : Model -> Sub Msg +subscriptions () = Sub.none + +main : Program Flags Model Msg +main = document + { init = init + , view = view + , update = update + , subscriptions = subscriptions + } diff --git a/src/Start/Model.elm b/src/Start/Model.elm new file mode 100644 index 0000000..360d66e --- /dev/null +++ b/src/Start/Model.elm @@ -0,0 +1,5 @@ +module Start.Model exposing (Flags, Model, Msg) + +type alias Flags = () +type alias Model = () +type alias Msg = () diff --git a/src/Start/View.elm b/src/Start/View.elm new file mode 100644 index 0000000..f62b84b --- /dev/null +++ b/src/Start/View.elm @@ -0,0 +1,6 @@ +module Start.View exposing (view) +import Start.Model exposing (Model, Msg) +import Html exposing (Html, text) + +view : Model -> List (Html Msg) +view () = [ text "Hello, world!" ]