TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 10:58:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Using elm-format for all files

Browse Source
This commit is contained in:
Eike Kettner
2019-12-29 21:55:12 +01:00
parent 546f1a6ee3
commit 2001cca88b
84 changed files with 7668 additions and 5079 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
modules/webapp/src/main/elm/Comp/EquipmentForm.elm
View File

@ -1,62 +1,74 @@
module Comp.EquipmentForm exposing ( Model
, emptyModel
, Msg(..)
, view
, update
, isValid
, getEquipment)
module Comp.EquipmentForm exposing
( Model
, Msg(..)
, emptyModel
, getEquipment
, isValid
, update
, view
)
import Api.Model.Equipment exposing (Equipment)
import Data.Flags exposing (Flags)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput)
import Data.Flags exposing (Flags)
import Api.Model.Equipment exposing (Equipment)
type alias Model =
{ equipment: Equipment
, name: String
{ equipment : Equipment
, name : String
}
emptyModel: Model
emptyModel : Model
emptyModel =
{ equipment = Api.Model.Equipment.empty
, name = ""
}
isValid: Model -> Bool
isValid : Model -> Bool
isValid model =
model.name /= ""
getEquipment: Model -> Equipment
getEquipment : Model -> Equipment
getEquipment model =
Equipment model.equipment.id model.name model.equipment.created
type Msg
= SetName String
| SetEquipment Equipment
update: Flags -> Msg -> Model -> (Model, Cmd Msg)
update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
update flags msg model =
case msg of
SetEquipment t ->
({model | equipment = t, name = t.name }, Cmd.none)
( { model | equipment = t, name = t.name }, Cmd.none )
SetName n ->
({model | name = n}, Cmd.none)
( { model | name = n }, Cmd.none )
view: Model -> Html Msg
view : Model -> Html Msg
view model =
div [class "ui form"]
[div [classList [("field", True)
,("error", not (isValid model))
]
]
[label [][text "Name*"]
,input [type_ "text"
,onInput SetName
,placeholder "Name"
,value model.name
][]
]
div [ class "ui form" ]
[ div
[ classList
[ ( "field", True )
, ( "error", not (isValid model) )
]
]
[ label [] [ text "Name*" ]
, input
[ type_ "text"
, onInput SetName
, placeholder "Name"
, value model.name
]
[]
]
]