4d8757ad7c
- Favorite timeline model and commands. - 4th column navigation bar. - Use of SetView for account selector. - Move timeline views to their own view module. - Handle favorite timeline updates. - Integrate contextual menu in account selector view.
93 lines
3.4 KiB
Elm
93 lines
3.4 KiB
Elm
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" CloseAccountSelector
|
|
, 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
|
|
]
|
|
]
|
|
]
|