about summary refs log blame commit diff
path: root/users/wpcarro/assessments/tt/client/src/Admin.elm
blob: d95609ee15e4a726d08c0457982cc456ab42fb29 (plain) (tree)
1
2
3
4
5
6
7
8

                              

             


                                    
                        






                 




















































                                                               



























                                                                                                                                                                                       

                                        
                          
                              
                                                                    







                                                                
















                                                                                               












                                                                                
                                                                            
















                                      
                                
                


                                                   

                 













                                                                           
                                
                             



                                      


                              
                                
         
module Admin exposing (render)

import Common
import Date
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Maybe.Extra as ME
import RemoteData
import State
import Tailwind
import UI
import Utils


roleToggle : State.Model -> State.Role -> Html State.Msg
roleToggle model role =
    div [ [ "px-1", "inline" ] |> Tailwind.use |> class ]
        [ UI.toggleButton
            { toggled = model.inviteRole == Just role
            , label = State.roleToString role
            , handleEnable = State.UpdateInviteRole (Just role)
            , handleDisable = State.UpdateInviteRole Nothing
            }
        ]


inviteUser : State.Model -> Html State.Msg
inviteUser model =
    div [ [ "pb-6" ] |> Tailwind.use |> class ]
        [ UI.header 3 "Invite a user"
        , UI.textField
            { handleInput = State.UpdateInviteEmail
            , inputId = "invite-email"
            , inputValue = model.inviteEmail
            , pholder = "Email..."
            }
        , div [ [ "pt-4" ] |> Tailwind.use |> class ]
            [ roleToggle model State.User
            , roleToggle model State.Manager
            , roleToggle model State.Admin
            ]
        , UI.baseButton
            { enabled =
                List.all
                    identity
                    [ String.length model.inviteEmail > 0
                    , ME.isJust model.inviteRole
                    ]
            , extraClasses = [ "my-4" ]
            , label =
                case model.inviteResponseStatus of
                    RemoteData.Loading ->
                        "Sending..."

                    _ ->
                        "Send invitation"
            , handleClick =
                case model.inviteRole of
                    Nothing ->
                        State.DoNothing

                    Just role ->
                        State.AttemptInviteUser role
            }
        ]


allTrips : State.Model -> Html State.Msg
allTrips model =
    case model.trips of
        RemoteData.NotAsked ->
            UI.absentData { handleFetch = State.AttemptGetTrips }

        RemoteData.Loading ->
            UI.paragraph "Loading..."

        RemoteData.Failure e ->
            UI.paragraph ("Error: " ++ Utils.explainHttpError e)

        RemoteData.Success xs ->
            ul []
                (xs
                    |> List.map
                        (\trip ->
                            li []
                                [ UI.paragraph (Date.toIsoString trip.startDate ++ " - " ++ Date.toIsoString trip.endDate ++ ", " ++ trip.username ++ " is going " ++ trip.destination)
                                , UI.textButton
                                    { label = "delete"
                                    , handleClick = State.AttemptDeleteTrip trip
                                    }
                                ]
                        )
                )


allUsers : State.Model -> Html State.Msg
allUsers model =
    case model.accounts of
        RemoteData.NotAsked ->
            UI.absentData { handleFetch = State.AttemptGetAccounts }

        RemoteData.Loading ->
            UI.paragraph "Loading..."

        RemoteData.Failure e ->
            UI.paragraph ("Error: " ++ Utils.explainHttpError e)

        RemoteData.Success xs ->
            ul []
                (xs
                    |> List.map
                        (\account ->
                            li []
                                [ UI.paragraph
                                    (account.username
                                        ++ " - "
                                        ++ State.roleToString account.role
                                    )
                                , UI.textButton
                                    { label = "delete"
                                    , handleClick = State.AttemptDeleteAccount account.username
                                    }
                                ]
                        )
                )


users : List String -> Html State.Msg
users xs =
    ul []
        (xs
            |> List.map
                (\x ->
                    li [ [ "py-4", "flex" ] |> Tailwind.use |> class ]
                        [ p [ [ "flex-1" ] |> Tailwind.use |> class ] [ text x ]
                        , div [ [ "flex-1" ] |> Tailwind.use |> class ]
                            [ UI.simpleButton
                                { label = "Delete"
                                , handleClick = State.AttemptDeleteAccount x
                                }
                            ]
                        ]
                )
        )


render : State.Model -> Html State.Msg
render model =
    div
        [ [ "container"
          , "mx-auto"
          , "text-center"
          ]
            |> Tailwind.use
            |> class
        ]
        [ UI.header 2 "Welcome!"
        , div []
            [ UI.textButton
                { label = "Logout"
                , handleClick = State.AttemptLogout
                }
            ]
        , div [ [ "py-3" ] |> Tailwind.use |> class ]
            [ case model.adminTab of
                State.Accounts ->
                    UI.textButton
                        { label = "Switch to trips"
                        , handleClick = State.UpdateAdminTab State.Trips
                        }

                State.Trips ->
                    UI.textButton
                        { label = "Switch to accounts"
                        , handleClick = State.UpdateAdminTab State.Accounts
                        }
            ]
        , case model.adminTab of
            State.Accounts ->
                div []
                    [ inviteUser model
                    , allUsers model
                    ]

            State.Trips ->
                allTrips model
        , Common.allErrors model
        ]