Support a basic client-side login flow

I will need to remove some of the baggage like:

- Scrub any copy about restaurants
- delete Restaurant.elm
- Change Owner.elm -> Manager.elm

1 files changed, 39 insertions, 0 deletions

diff --git a/client/src/User.elm b/client/src/User.elm
new file mode 100644
index 000000000000..7139d2028368
--- /dev/null
+++ b/client/src/User.elm
@@ -0,0 +1,39 @@
+module User exposing (render)
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (..)
+import Maybe.Extra
+import RemoteData
+import State
+import Tailwind
+import UI
+import Utils
+
+
+render : State.Model -> Html State.Msg
+render model =
+    div
+        [ class
+            ([ "container"
+             , "mx-auto"
+             , "text-center"
+             ]
+                |> Tailwind.use
+            )
+        ]
+        [ UI.header 2 ("Welcome, " ++ model.username ++ "!")
+        , UI.simpleButton
+            { label = "Logout"
+            , handleClick = State.AttemptLogout
+            }
+        , case model.logoutError of
+            Nothing ->
+                text ""
+
+            Just e ->
+                UI.errorBanner
+                    { title = "Error logging out"
+                    , body = Utils.explainHttpError e
+                    }
+        ]