Show currently logged in user

Closes: #329
2025-06-23 10:58:26 +00:00 · 2020-11-26 23:53:31 +01:00
parent c87163052b
commit 7cc290135a
5 changed files with 106 additions and 27 deletions
--- a/modules/webapp/src/main/elm/Data/Flags.elm
+++ b/modules/webapp/src/main/elm/Data/Flags.elm
@ -1,6 +1,7 @@
 module Data.Flags exposing
    ( Config
    , Flags
+    , accountString
    , getToken
    , withAccount
    , withoutAccount
@ -42,3 +43,12 @@ withAccount flags acc =
 withoutAccount : Flags -> Flags
 withoutAccount flags =
    { flags | account = Nothing }
+
+
+accountString : AuthResult -> String
+accountString auth =
+    if auth.collective == auth.user then
+        auth.collective
+
+    else
+        auth.collective ++ "/" ++ auth.user