Account selector: Username before instance name
This commit is contained in:
parent
0fd0441093
commit
c74e09cfaf
|
@ -3,8 +3,10 @@ module View.AccountSelector exposing (accountSelectorView)
|
||||||
import Html exposing (..)
|
import Html exposing (..)
|
||||||
import Html.Attributes exposing (..)
|
import Html.Attributes exposing (..)
|
||||||
import Html.Events exposing (..)
|
import Html.Events exposing (..)
|
||||||
|
import List exposing (head)
|
||||||
import Mastodon.Helper exposing (..)
|
import Mastodon.Helper exposing (..)
|
||||||
import Mastodon.Model exposing (..)
|
import Mastodon.Model exposing (..)
|
||||||
|
import String exposing (split)
|
||||||
import String.Extra exposing (replace)
|
import String.Extra exposing (replace)
|
||||||
import Types exposing (..)
|
import Types exposing (..)
|
||||||
import View.Auth exposing (authForm)
|
import View.Auth exposing (authForm)
|
||||||
|
@ -43,9 +45,11 @@ accountIdentityView currentUser client =
|
||||||
account.username
|
account.username
|
||||||
]
|
]
|
||||||
, br [] []
|
, br [] []
|
||||||
, account.url
|
, "@" ++ account.username ++ account.url
|
||||||
|> replace "https://" "@"
|
|> replace "https://" "@"
|
||||||
|> replace "/@" "@"
|
|> split "/"
|
||||||
|
|> head
|
||||||
|
|> Maybe.withDefault ""
|
||||||
|> text
|
|> text
|
||||||
]
|
]
|
||||||
, button
|
, button
|
||||||
|
|
Loading…
Reference in New Issue