TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Show currently logged in user

Browse Source 
Closes: #329
This commit is contained in:
Eike Kettner
2020-11-26 23:53:31 +01:00
parent c87163052b
commit 7cc290135a
5 changed files with 106 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
modules/webapp/src/main/elm/Page/CollectiveSettings/View.elm
View File

@ -65,7 +65,7 @@ view flags settings model =
viewUsers settings model
Just InsightsTab ->
viewInsights model
viewInsights flags model
Just SettingsTab ->
viewSettings flags settings model
@ -77,14 +77,37 @@ view flags settings model =
]
viewInsights : Model -> List (Html Msg)
viewInsights model =
viewInsights : Flags -> Model -> List (Html Msg)
viewInsights flags model =
let
( coll, user ) =
Maybe.map (\a -> ( a.collective, a.user )) flags.account
|> Maybe.withDefault ( "", "" )
in
[ h1 [ class "ui header" ]
[ i [ class "chart bar outline icon" ] []
, div [ class "content" ]
[ text "Insights"
]
]
, h2 [ class "ui sub header" ]
[ div [ class "ui horizontal list" ]
[ div
[ class "item"
, title "Collective"
]
[ i [ class "users circle icon" ] []
, text coll
]
, div
[ class "item"
, title "User"
]
[ i [ class "user outline icon" ] []
, text user
]
]
]
, div [ class "ui basic blue segment" ]
[ h4 [ class "ui header" ]
[ text "Items"