mirror of
https://github.com/fluencelabs/dashboard
synced 2025-04-03 05:11:07 +00:00
53 lines
1.3 KiB
Elm
53 lines
1.3 KiB
Elm
module View exposing (view)
|
|
|
|
{-| Copyright 2020 Fluence Labs Limited
|
|
|
|
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.
|
|
|
|
-}
|
|
|
|
import Browser exposing (Document, UrlRequest(..))
|
|
import Html exposing (Html, div, header)
|
|
import Model exposing (Model, Route(..))
|
|
import Msg exposing (..)
|
|
import Palette exposing (classes)
|
|
import Route exposing (routeView)
|
|
|
|
|
|
view : Model -> Document Msg
|
|
view model =
|
|
{ title = title model, body = [ body model ] }
|
|
|
|
|
|
title : Model -> String
|
|
title _ =
|
|
"Fluence Network Dashboard"
|
|
|
|
|
|
body : Model -> Html Msg
|
|
body model =
|
|
layout <|
|
|
List.concat
|
|
[ [ header [ classes "w-100" ] [ routeView model model.page ] ]
|
|
]
|
|
|
|
|
|
layout : List (Html Msg) -> Html Msg
|
|
layout elms =
|
|
div [ classes "mw8 center w-100" ]
|
|
[ div [ classes "fl w-100 pa2 ph4 bg-near-white" ]
|
|
([]
|
|
++ elms
|
|
)
|
|
]
|