module View.AccountSelector exposing (accountSelectorView) import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) import Mastodon.Helper exposing (..) import Mastodon.Model exposing (..) import String.Extra exposing (replace) import Types exposing (..) import View.Auth exposing (authForm) import View.Common exposing (..) import View.Timeline exposing (contextualTimelineMenu) type alias CurrentUser = Maybe Account accountIdentityView : CurrentUser -> Client -> Html Msg accountIdentityView currentUser client = case client.account of Just account -> let ( isCurrentUser, entryClass ) = case currentUser of Just currentUser -> if sameAccount account currentUser then ( True, "active" ) else ( False, "" ) Nothing -> ( False, "" ) in li [ class <| "list-group-item account-selector-item " ++ entryClass ] [ accountAvatar "" account , span [] [ strong [] [ text <| if account.display_name /= "" then account.display_name else account.username ] , br [] [] , account.url |> replace "https://" "@" |> replace "/@" "@" |> text ] , button [ class "btn btn-danger" , onClick <| AskConfirm """ Are you sure you want to unregister this account with Tooty? Note that you'll probably want to revoke the application in the official Web client on the related instance. """ (LogoutClient client) NoOp ] [ text "Logout" ] , if isCurrentUser then text "" else button [ class "btn btn-primary" , onClick <| SwitchClient client ] [ text "Use" ] ] Nothing -> text "" accountSelectorView : Model -> Html Msg accountSelectorView model = div [ class "col-md-3 column" ] [ div [ class "panel panel-default" ] [ closeablePanelheading "account-selector" "user" "Account selector" (SetView LocalTimelineView) , contextualTimelineMenu model.currentView , ul [ class "list-group " ] <| List.map (accountIdentityView model.currentUser) model.clients , div [ class "panel-body" ] [ h3 [] [ text "Add an account" ] , authForm model ] ] ]