Starting with mail settings

This commit is contained in:
Eike Kettner
2020-01-05 00:12:23 +01:00
parent 9020d9aa3b
commit 2e3454c7a1
12 changed files with 519 additions and 4 deletions

View File

@ -0,0 +1,49 @@
module Comp.EmailSettingsTable exposing
( Model
, Msg
, emptyModel
, update
, view
)
import Api.Model.EmailSettings exposing (EmailSettings)
import Html exposing (..)
import Html.Attributes exposing (..)
type alias Model =
{ emailSettings : List EmailSettings
}
emptyModel : Model
emptyModel =
init []
init : List EmailSettings -> Model
init ems =
{ emailSettings = ems
}
type Msg
= Select EmailSettings
update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
( model, Cmd.none )
view : Model -> Html Msg
view model =
table [ class "ui table" ]
[ thead []
[ th [] [ text "Name" ]
, th [] [ text "Host/Port" ]
, th [] [ text "From" ]
]
, tbody []
[]
]