Initial commit. Start basic Elm application.

This commit is contained in:
Danila Fedorin 2018-12-07 23:03:16 -08:00
commit 0066c6476b
2 changed files with 82 additions and 0 deletions

24
elm.json Normal file
View 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",
"elm/url": "1.0.0"
},
"indirect": {
"elm/json": "1.1.2",
"elm/time": "1.0.0",
"elm/virtual-dom": "1.0.2"
}
},
"test-dependencies": {
"direct": {},
"indirect": {}
}
}

58
src/Main.elm Normal file
View File

@ -0,0 +1,58 @@
import Browser exposing (application)
import Browser.Navigation as Nav
import Url exposing (Url)
import Html exposing (div)
type alias Flags =
{ token : Maybe String
}
type alias Model =
{ key : Nav.Key
, token : Maybe String
}
type Msg =
None
| TryUrl Browser.UrlRequest
| ChangeUrl Url
init : Flags -> Url -> Nav.Key -> (Model, Cmd Msg)
init flags url key =
let
model =
{ key = key
, token = flags.token
}
cmd = case flags.token of
Just _ -> Cmd.none
Nothing -> Cmd.none
in
(model, cmd)
view : Model -> Browser.Document Msg
view m =
{ title = "Scylla"
, body = []
}
update : Msg -> Model -> (Model, Cmd Msg)
update msg model = (model, Cmd.none)
subscriptions : Model -> Sub Msg
subscriptions m = Sub.none
onUrlRequest : Browser.UrlRequest -> Msg
onUrlRequest = TryUrl
onUrlChange : Url -> Msg
onUrlChange = ChangeUrl
main = application
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
, onUrlRequest = onUrlRequest
, onUrlChange = onUrlChange
}