Account selector: Username before instance name

src/View/AccountSelector.elm

@@ -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