From c74e09cfaf2c0b6b60cdd6d28aba2b7042327cf2 Mon Sep 17 00:00:00 2001 From: Ryan Fox Date: Fri, 15 Jan 2021 04:48:41 +0000 Subject: [PATCH] Account selector: Username before instance name --- src/View/AccountSelector.elm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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