Using elm-format for all files

modules/webapp/src/main/elm/Comp/OrgForm.elm

@@ -1,28 +1,32 @@
-module Comp.OrgForm exposing ( Model
-                             , emptyModel
-                             , Msg(..)
-                             , view
-                             , update
-                             , isValid
-                             , getOrg)
+module Comp.OrgForm exposing
+    ( Model
+    , Msg(..)
+    , emptyModel
+    , getOrg
+    , isValid
+    , update
+    , view
+    )
 
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (onInput)
-import Data.Flags exposing (Flags)
 import Api.Model.Organization exposing (Organization)
 import Comp.AddressForm
 import Comp.ContactField
+import Data.Flags exposing (Flags)
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (onInput)
+
 
 type alias Model =
-    { org: Organization
-    , name: String
-    , addressModel: Comp.AddressForm.Model
-    , contactModel: Comp.ContactField.Model
-    , notes: Maybe String
+    { org : Organization
+    , name : String
+    , addressModel : Comp.AddressForm.Model
+    , contactModel : Comp.ContactField.Model
+    , notes : Maybe String
     }
 
-emptyModel: Model
+
+emptyModel : Model
 emptyModel =
     { org = Api.Model.Organization.empty
     , name = ""
@@ -31,20 +35,25 @@ emptyModel =
     , notes = Nothing
     }
 
-isValid: Model -> Bool
+
+isValid : Model -> Bool
 isValid model =
     model.name /= ""
 
-getOrg: Model -> Organization
+
+getOrg : Model -> Organization
 getOrg model =
     let
-        o = model.org
+        o =
+            model.org
     in
-        { o | name = model.name
-            , address = Comp.AddressForm.getAddress model.addressModel
-            , contacts = Comp.ContactField.getContacts model.contactModel
-            , notes = model.notes
-        }
+    { o
+        | name = model.name
+        , address = Comp.AddressForm.getAddress model.addressModel
+        , contacts = Comp.ContactField.getContacts model.contactModel
+        , notes = model.notes
+    }
+
 
 type Msg
     = SetName String
@@ -53,61 +62,80 @@ type Msg
     | ContactMsg Comp.ContactField.Msg
     | SetNotes String
 
-update: Flags -> Msg -> Model -> (Model, Cmd Msg)
+
+update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
 update flags msg model =
     case msg of
         SetOrg t ->
             let
-                (m1, c1) = update flags (AddressMsg (Comp.AddressForm.SetAddress t.address)) model
-                (m2, c2) = update flags (ContactMsg (Comp.ContactField.SetItems t.contacts)) m1
+                ( m1, c1 ) =
+                    update flags (AddressMsg (Comp.AddressForm.SetAddress t.address)) model
+
+                ( m2, c2 ) =
+                    update flags (ContactMsg (Comp.ContactField.SetItems t.contacts)) m1
             in
-                ({m2 | org = t, name = t.name, notes = t.notes }, Cmd.none)
+            ( { m2 | org = t, name = t.name, notes = t.notes }, Cmd.batch [ c1, c2 ] )
 
         AddressMsg am ->
             let
-                (m1, c1) = Comp.AddressForm.update am model.addressModel
+                ( m1, c1 ) =
+                    Comp.AddressForm.update am model.addressModel
             in
-                ({model | addressModel = m1}, Cmd.map AddressMsg c1)
+            ( { model | addressModel = m1 }, Cmd.map AddressMsg c1 )
 
         ContactMsg m ->
             let
-                (m1, c1) = Comp.ContactField.update m model.contactModel
+                ( m1, c1 ) =
+                    Comp.ContactField.update m model.contactModel
             in
-                ({model | contactModel = m1}, Cmd.map ContactMsg c1)
+            ( { model | contactModel = m1 }, Cmd.map ContactMsg c1 )
 
         SetName n ->
-            ({model | name = n}, Cmd.none)
+            ( { model | name = n }, Cmd.none )
 
         SetNotes str ->
-            ({model | notes = if str == "" then Nothing else Just str}, Cmd.none)
+            ( { model
+                | notes =
+                    if str == "" then
+                        Nothing
+
+                    else
+                        Just str
+              }
+            , 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
-                    ][]
-             ]
-        ,h3 [class "ui dividing header"]
-            [text "Address"
+    div [ class "ui form" ]
+        [ div
+            [ classList
+                [ ( "field", True )
+                , ( "error", not (isValid model) )
+                ]
             ]
-        ,Html.map AddressMsg (Comp.AddressForm.view model.addressModel)
-        ,h3 [class "ui dividing header"]
-            [text "Contacts"
+            [ label [] [ text "Name*" ]
+            , input
+                [ type_ "text"
+                , onInput SetName
+                , placeholder "Name"
+                , value model.name
+                ]
+                []
             ]
-        ,Html.map ContactMsg (Comp.ContactField.view model.contactModel)
-        ,h3 [class "ui dividing header"]
-            [text "Notes"
+        , h3 [ class "ui dividing header" ]
+            [ text "Address"
             ]
-        ,div [class "field"]
-            [textarea [onInput SetNotes][Maybe.withDefault "" model.notes |> text ]
+        , Html.map AddressMsg (Comp.AddressForm.view model.addressModel)
+        , h3 [ class "ui dividing header" ]
+            [ text "Contacts"
+            ]
+        , Html.map ContactMsg (Comp.ContactField.view model.contactModel)
+        , h3 [ class "ui dividing header" ]
+            [ text "Notes"
+            ]
+        , div [ class "field" ]
+            [ textarea [ onInput SetNotes ] [ Maybe.withDefault "" model.notes |> text ]
             ]
         ]