Add proof-of-concept frontend in elm

Does get all, search, delete, update for users
Written in elm because elm is not javascript
This could use a lot of work.

Author: timothyhollabaugh

frontend/elm.json

@@ -0,0 +1,30 @@
+{
+    "type": "application",
+    "source-directories": [
+        "src"
+    ],
+    "elm-version": "0.19.0",
+    "dependencies": {
+        "direct": {
+            "NoRedInk/elm-json-decode-pipeline": "1.0.0",
+            "cuducos/elm-format-number": "6.0.2",
+            "elm/browser": "1.0.1",
+            "elm/core": "1.0.2",
+            "elm/html": "1.0.0",
+            "elm/http": "2.0.0",
+            "elm/json": "1.1.2",
+            "elm/url": "1.0.0"
+        },
+        "indirect": {
+            "elm/bytes": "1.0.7",
+            "elm/file": "1.0.1",
+            "elm/time": "1.0.0",
+            "elm/virtual-dom": "1.0.2",
+            "myrho/elm-round": "1.0.4"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}

frontend/src/Main.elm

@@ -0,0 +1,63 @@
+module Main exposing (Model(..), Msg(..), Page(..), init, main, subscriptions, update, view)
+
+import Browser
+import FormatNumber exposing (format)
+import FormatNumber.Locales exposing (usLocale)
+import Html exposing (Attribute, Html, div, h1, span, text, ul)
+import Http
+import Json.Decode as Decode exposing (Decoder, field, int, list, nullable, string)
+import Json.Decode.Pipeline exposing (required)
+import User
+
+
+main =
+    Browser.element
+        { init = init
+        , update = update
+        , subscriptions = subscriptions
+        , view = view
+        }
+
+
+type Model
+    = User User.UserModel
+
+
+type Msg
+    = GotUserMsg User.UserMsg
+
+
+init : () -> ( Model, Cmd Msg )
+init i =
+    let
+        ( userModel, userCmd ) =
+            User.init i
+    in
+    ( User userModel, Cmd.map GotUserMsg userCmd )
+
+
+type Page
+    = Users
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case ( msg, model ) of
+        ( GotUserMsg user_msg, User user_model ) ->
+            let
+                ( userModel, userCmd ) =
+                    User.update user_msg user_model
+            in
+            ( User userModel, Cmd.map GotUserMsg userCmd )
+
+
+subscriptions : Model -> Sub Msg
+subscriptions model =
+    Sub.none
+
+
+view : Model -> Html Msg
+view model =
+    case model of
+        User user_model ->
+            Html.map GotUserMsg (User.view user_model)