VictorBezak · February 8, 2020 22:05 · Feb 8, 2020
diff --git a/DjKhaledSimulator.elm b/DjKhaledSimulator.elm
@@ -0,0 +1,103 @@
+module Main exposing (..)
+
+import Html exposing (Html, div, section, button, text)
+import Html.Attributes exposing (style)
+import Html.Events exposing (onClick)
+import Browser exposing (sandbox)
+
+
+-- Type Schemas
+type alias NestedRecord =
+    { shoutout : String, grammyCount : Int }
+
+type alias Model =
+    { djkhaled : NestedRecord }
+
+
+
+-- Model Initialization
+init : Model
+init = 
+    { djkhaled = { shoutout = "WE THE BEST", grammyCount = 0 } }
+
+
+
+-- VIEW
+view : Model -> Html Msg
+view model =
+    div []
+        [ section [ style "font-size" "2em" ] [ text model.djkhaled.shoutout ]
+        , showGrammys model
+        , div [ style "display" "flex" ]
+            [ button [ onClick StartFromTheBottom ] [ text "start from the bottom" ]
+            , button [ onClick GrammyTime, style "margin-left" "12px" ] [ text "GET GRAMMY" ]
+            ]
+        ]
+
+
+
+-- UPDATE
+type Msg
+    = GrammyTime
+    | StartFromTheBottom
+
+update : Msg -> Model -> Model
+update msg model =
+    case msg of
+        GrammyTime ->
+            model
+                |> winGrammy
+
+        StartFromTheBottom ->
+            model
+                |> startFromTheBottom
+
+
+
+showGrammys : Model -> Html a
+showGrammys model =
+    div [ style "margin" "12px 0 24px 48px"] [ text ("Grammy Count: " ++ String.fromInt model.djkhaled.grammyCount) ]
+
+
+
+-- Helper functions to update our nested record
+updateModel : (NestedRecord -> NestedRecord) -> Model -> Model
+updateModel updateFunction model =
+    { model | djkhaled = updateFunction model.djkhaled }
+
+
+
+
+getAnothaOne : NestedRecord -> NestedRecord
+getAnothaOne nestedRecord =
+    { nestedRecord
+        | shoutout = "ANOTHA ONE"
+        , grammyCount = nestedRecord.grammyCount + 1
+        }
+
+loseItAll : NestedRecord -> NestedRecord
+loseItAll nestedRecord =
+    { nestedRecord
+        | shoutout = "WE STILL THE BEST"
+        , grammyCount = 0
+        }
+
+
+
+winGrammy : Model -> Model
+winGrammy =
+    updateModel <| getAnothaOne
+
+startFromTheBottom : Model -> Model
+startFromTheBottom =
+    updateModel <| loseItAll
+
+
+
+main : Program () Model Msg
+main =
+    Browser.sandbox
+        { init = init
+        , view = view
+        , update = update
+        }