diff --git a/src/View/AccountSelector.elm b/src/View/AccountSelector.elm index 73e5ced..0e6dd59 100644 --- a/src/View/AccountSelector.elm +++ b/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