add dog info

Nondv · May 23, 2019 · c652dcd · c652dcd
1 parent f5f76ab
commit c652dcd
Showing 1 changed file with 37 additions and 2 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -1,7 +1,7 @@
 module Main exposing (main)
 
 import Browser
-import Html exposing (Attribute, Html, br, button, div, input, text, textarea)
+import Html exposing (Attribute, Html, br, button, div, h3, input, text, textarea)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onClick, onInput)
 
@@ -22,6 +22,9 @@ type alias Model =
     { name : String
     , surname : String
     , bio : String
+    , dogName : String
+    , breed : String
+    , dogBio : String
     }
 
 
@@ -30,6 +33,9 @@ init =
     { name = ""
     , surname = ""
     , bio = ""
+    , dogName = ""
+    , breed = ""
+    , dogBio = ""
     }
 
 
@@ -40,13 +46,22 @@ init =
 view : Model -> Html Msg
 view model =
     div []
-        [ input [ placeholder "Name", value model.name, onInput ChangeName ] []
+        [ h3 [] [ text "Hooman" ]
+        , input [ placeholder "Name", value model.name, onInput ChangeName ] []
         , br [] []
         , input [ placeholder "Surname", value model.surname, onInput ChangeSurname ] []
         , br [] []
         , textarea [ placeholder "Bio", onInput ChangeBio, value model.bio ] []
         , br [] []
         , button [ onClick Save ] [ text "Save" ]
+        , h3 [] [ text "Doggo" ]
+        , input [ placeholder "Name", value model.dogName, onInput ChangeDogName ] []
+        , br [] []
+        , input [ placeholder "Breed", value model.breed, onInput ChangeBreed ] []
+        , br [] []
+        , textarea [ placeholder "Bio", onInput ChangeDogBio, value model.dogBio ] []
+        , br [] []
+        , button [ onClick SaveDog ] [ text "Save" ]
         ]
 
 
@@ -59,6 +74,10 @@ type Msg
     | ChangeSurname String
     | ChangeBio String
     | Save
+    | ChangeDogName String
+    | ChangeBreed String
+    | ChangeDogBio String
+    | SaveDog
 
 
 update : Msg -> Model -> Model
@@ -79,3 +98,19 @@ update msg model =
                 , surname = model.surname ++ "!"
                 , bio = model.bio ++ "!"
             }
+
+        ChangeDogName newName ->
+            { model | dogName = newName }
+
+        ChangeBreed newBreed ->
+            { model | breed = newBreed }
+
+        ChangeDogBio newBio ->
+            { model | dogBio = newBio }
+
+        SaveDog ->
+            { model
+                | dogName = model.dogName ++ " Woof!"
+                , breed = model.breed ++ " Woof!"
+                , dogBio = model.dogBio ++ " Woof!"
+            }