Account selector: Username before instance name

This commit is contained in:
Ryan Fox 2021-01-15 04:48:41 +00:00
parent 0fd0441093
commit c74e09cfaf
Signed by: flewkey
GPG Key ID: 94F56ADFD848851E

View File

@ -3,8 +3,10 @@ module View.AccountSelector exposing (accountSelectorView)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import List exposing (head)
import Mastodon.Helper exposing (..)
import Mastodon.Model exposing (..)
import String exposing (split)
import String.Extra exposing (replace)
import Types exposing (..)
import View.Auth exposing (authForm)
@ -43,9 +45,11 @@ accountIdentityView currentUser client =
account.username
]
, br [] []
, account.url
, "@" ++ account.username ++ account.url
|> replace "https://" "@"
|> replace "/@" "@"
|> split "/"
|> head
|> Maybe.withDefault ""
|> text
]
, button