Initial commit. Set up a basic project scaffold.
This commit is contained in:
commit
5b0e9df4f9
BIN
background.jpg
Normal file
BIN
background.jpg
Normal file
Binary file not shown.
After Width: | Height: | Size: 5.8 MiB |
24
elm.json
Normal file
24
elm.json
Normal file
|
@ -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": {}
|
||||||
|
}
|
||||||
|
}
|
27
src/Main.elm
Normal file
27
src/Main.elm
Normal file
|
@ -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
|
||||||
|
}
|
5
src/Start/Model.elm
Normal file
5
src/Start/Model.elm
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
module Start.Model exposing (Flags, Model, Msg)
|
||||||
|
|
||||||
|
type alias Flags = ()
|
||||||
|
type alias Model = ()
|
||||||
|
type alias Msg = ()
|
6
src/Start/View.elm
Normal file
6
src/Start/View.elm
Normal file
|
@ -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!" ]
|
Loading…
Reference in New Issue
Block a user