mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-04-05 10:59:33 +00:00
425 lines
12 KiB
Elm
425 lines
12 KiB
Elm
{-
|
|
Copyright 2020 Docspell Contributors
|
|
|
|
SPDX-License-Identifier: GPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
module Comp.UserManage exposing
|
|
( Model
|
|
, Msg(..)
|
|
, emptyModel
|
|
, update
|
|
, view2
|
|
)
|
|
|
|
import Api
|
|
import Api.Model.BasicResult exposing (BasicResult)
|
|
import Api.Model.DeleteUserData exposing (DeleteUserData)
|
|
import Api.Model.User
|
|
import Api.Model.UserList exposing (UserList)
|
|
import Comp.Basic as B
|
|
import Comp.MenuBar as MB
|
|
import Comp.UserForm
|
|
import Comp.UserTable
|
|
import Data.Flags exposing (Flags)
|
|
import Data.UiSettings exposing (UiSettings)
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (onClick, onSubmit)
|
|
import Http
|
|
import Messages.Comp.UserManage exposing (Texts)
|
|
import Styles as S
|
|
import Util.Maybe
|
|
|
|
|
|
type alias Model =
|
|
{ tableModel : Comp.UserTable.Model
|
|
, formModel : Comp.UserForm.Model
|
|
, viewMode : ViewMode
|
|
, formError : FormError
|
|
, loading : Bool
|
|
, deleteConfirm : DimmerMode
|
|
}
|
|
|
|
|
|
type DimmerMode
|
|
= DimmerOff
|
|
| DimmerLoading
|
|
| DimmerUserData DeleteUserData
|
|
|
|
|
|
type ViewMode
|
|
= Table
|
|
| Form
|
|
|
|
|
|
type FormError
|
|
= FormErrorNone
|
|
| FormErrorSubmit String
|
|
| FormErrorHttp Http.Error
|
|
| FormErrorInvalid
|
|
| FormErrorCurrentUser
|
|
|
|
|
|
emptyModel : Model
|
|
emptyModel =
|
|
{ tableModel = Comp.UserTable.emptyModel
|
|
, formModel = Comp.UserForm.emptyModel
|
|
, viewMode = Table
|
|
, formError = FormErrorNone
|
|
, loading = False
|
|
, deleteConfirm = DimmerOff
|
|
}
|
|
|
|
|
|
type Msg
|
|
= TableMsg Comp.UserTable.Msg
|
|
| FormMsg Comp.UserForm.Msg
|
|
| LoadUsers
|
|
| UserResp (Result Http.Error UserList)
|
|
| SetViewMode ViewMode
|
|
| InitNewUser
|
|
| Submit
|
|
| SubmitResp (Result Http.Error BasicResult)
|
|
| RequestDelete
|
|
| GetDeleteDataResp (Result Http.Error DeleteUserData)
|
|
| DeleteUserNow String
|
|
| CancelDelete
|
|
|
|
|
|
update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
|
|
update flags msg model =
|
|
case msg of
|
|
TableMsg m ->
|
|
let
|
|
( tm, tc ) =
|
|
Comp.UserTable.update flags m model.tableModel
|
|
|
|
( m2, c2 ) =
|
|
( { model
|
|
| tableModel = tm
|
|
, viewMode = Maybe.map (\_ -> Form) tm.selected |> Maybe.withDefault Table
|
|
, formError =
|
|
if Util.Maybe.nonEmpty tm.selected then
|
|
FormErrorNone
|
|
|
|
else
|
|
model.formError
|
|
}
|
|
, Cmd.map TableMsg tc
|
|
)
|
|
|
|
( m3, c3 ) =
|
|
case tm.selected of
|
|
Just user ->
|
|
update flags (FormMsg (Comp.UserForm.SetUser user)) m2
|
|
|
|
Nothing ->
|
|
( m2, Cmd.none )
|
|
in
|
|
( m3, Cmd.batch [ c2, c3 ] )
|
|
|
|
FormMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.UserForm.update flags m model.formModel
|
|
in
|
|
( { model | formModel = m2 }, Cmd.map FormMsg c2 )
|
|
|
|
LoadUsers ->
|
|
( { model | loading = True }, Api.getUsers flags UserResp )
|
|
|
|
UserResp (Ok users) ->
|
|
let
|
|
m2 =
|
|
{ model | viewMode = Table, loading = False }
|
|
in
|
|
update flags (TableMsg (Comp.UserTable.SetUsers users.items)) m2
|
|
|
|
UserResp (Err _) ->
|
|
( { model | loading = False }, Cmd.none )
|
|
|
|
SetViewMode m ->
|
|
let
|
|
m2 =
|
|
{ model | viewMode = m }
|
|
in
|
|
case m of
|
|
Table ->
|
|
update flags (TableMsg Comp.UserTable.Deselect) m2
|
|
|
|
Form ->
|
|
( m2, Cmd.none )
|
|
|
|
InitNewUser ->
|
|
let
|
|
nm =
|
|
{ model | viewMode = Form, formError = FormErrorNone }
|
|
|
|
user =
|
|
Api.Model.User.empty
|
|
in
|
|
update flags (FormMsg (Comp.UserForm.SetUser user)) nm
|
|
|
|
Submit ->
|
|
let
|
|
user =
|
|
Comp.UserForm.getUser model.formModel
|
|
|
|
valid =
|
|
Comp.UserForm.isValid model.formModel
|
|
|
|
cmd =
|
|
if Comp.UserForm.isNewUser model.formModel then
|
|
Api.postNewUser flags user SubmitResp
|
|
|
|
else
|
|
Api.putUser flags user SubmitResp
|
|
in
|
|
if valid then
|
|
( { model | loading = True }, cmd )
|
|
|
|
else
|
|
( { model | formError = FormErrorInvalid }, Cmd.none )
|
|
|
|
SubmitResp (Ok res) ->
|
|
if res.success then
|
|
let
|
|
( m2, c2 ) =
|
|
update flags (SetViewMode Table) model
|
|
|
|
( m3, c3 ) =
|
|
update flags LoadUsers m2
|
|
in
|
|
( { m3 | loading = False, deleteConfirm = DimmerOff }, Cmd.batch [ c2, c3 ] )
|
|
|
|
else
|
|
( { model
|
|
| formError = FormErrorSubmit res.message
|
|
, loading = False
|
|
, deleteConfirm = DimmerOff
|
|
}
|
|
, Cmd.none
|
|
)
|
|
|
|
SubmitResp (Err err) ->
|
|
( { model
|
|
| formError = FormErrorHttp err
|
|
, loading = False
|
|
, deleteConfirm = DimmerOff
|
|
}
|
|
, Cmd.none
|
|
)
|
|
|
|
RequestDelete ->
|
|
let
|
|
login =
|
|
Maybe.map .user flags.account
|
|
|> Maybe.withDefault ""
|
|
in
|
|
if model.formModel.user.login == login then
|
|
( { model | formError = FormErrorCurrentUser }, Cmd.none )
|
|
|
|
else
|
|
( { model | deleteConfirm = DimmerLoading }
|
|
, Api.getDeleteUserData flags model.formModel.user.login GetDeleteDataResp
|
|
)
|
|
|
|
GetDeleteDataResp (Ok data) ->
|
|
( { model | deleteConfirm = DimmerUserData data }, Cmd.none )
|
|
|
|
GetDeleteDataResp (Err err) ->
|
|
( { model
|
|
| formError = FormErrorHttp err
|
|
, loading = False
|
|
}
|
|
, Cmd.none
|
|
)
|
|
|
|
CancelDelete ->
|
|
( { model | deleteConfirm = DimmerOff }, Cmd.none )
|
|
|
|
DeleteUserNow login ->
|
|
( { model | deleteConfirm = DimmerLoading }, Api.deleteUser flags login SubmitResp )
|
|
|
|
|
|
|
|
--- View
|
|
|
|
|
|
view2 : Texts -> UiSettings -> Model -> Html Msg
|
|
view2 texts settings model =
|
|
if model.viewMode == Table then
|
|
viewTable2 texts model
|
|
|
|
else
|
|
viewForm2 texts settings model
|
|
|
|
|
|
viewTable2 : Texts -> Model -> Html Msg
|
|
viewTable2 texts model =
|
|
div [ class "flex flex-col" ]
|
|
[ MB.view
|
|
{ start = []
|
|
, end =
|
|
[ MB.PrimaryButton
|
|
{ tagger = InitNewUser
|
|
, title = texts.addNewUser
|
|
, icon = Just "fa fa-plus"
|
|
, label = texts.newUser
|
|
}
|
|
]
|
|
, rootClasses = "mb-4"
|
|
}
|
|
, Html.map TableMsg (Comp.UserTable.view2 texts.userTable model.tableModel)
|
|
, B.loadingDimmer
|
|
{ active = model.loading
|
|
, label = texts.basics.loading
|
|
}
|
|
]
|
|
|
|
|
|
renderDeleteConfirm : Texts -> UiSettings -> Model -> Html Msg
|
|
renderDeleteConfirm texts settings model =
|
|
case model.deleteConfirm of
|
|
DimmerOff ->
|
|
span [ class "hidden" ] []
|
|
|
|
DimmerLoading ->
|
|
B.loadingDimmer
|
|
{ label = "Loading..."
|
|
, active = True
|
|
}
|
|
|
|
DimmerUserData data ->
|
|
let
|
|
empty =
|
|
List.isEmpty data.folders && data.sentMails == 0
|
|
|
|
folderNames =
|
|
String.join ", " data.folders
|
|
in
|
|
B.contentDimmer True <|
|
|
div [ class "flex flex-col" ] <|
|
|
(if empty then
|
|
[ div []
|
|
[ text texts.reallyDeleteUser
|
|
]
|
|
]
|
|
|
|
else
|
|
[ div []
|
|
[ text texts.reallyDeleteUser
|
|
, text " "
|
|
, text "The following data will be deleted:"
|
|
]
|
|
, ul [ class "list-inside list-disc" ]
|
|
[ li [ classList [ ( "hidden", List.isEmpty data.folders ) ] ]
|
|
[ text "Folders: "
|
|
, text folderNames
|
|
]
|
|
, li [ classList [ ( "hidden", data.sentMails == 0 ) ] ]
|
|
[ text (String.fromInt data.sentMails)
|
|
, text " sent mails"
|
|
]
|
|
]
|
|
]
|
|
)
|
|
++ [ div [ class "mt-4 flex flex-row items-center" ]
|
|
[ B.deleteButton
|
|
{ label = texts.basics.yes
|
|
, icon = "fa fa-check"
|
|
, disabled = False
|
|
, handler = onClick (DeleteUserNow model.formModel.user.login)
|
|
, attrs = [ href "#" ]
|
|
}
|
|
, B.secondaryButton
|
|
{ label = texts.basics.no
|
|
, icon = "fa fa-times"
|
|
, disabled = False
|
|
, handler = onClick CancelDelete
|
|
, attrs = [ href "#", class "ml-2" ]
|
|
}
|
|
]
|
|
]
|
|
|
|
|
|
viewForm2 : Texts -> UiSettings -> Model -> Html Msg
|
|
viewForm2 texts settings model =
|
|
let
|
|
newUser =
|
|
Comp.UserForm.isNewUser model.formModel
|
|
in
|
|
Html.form
|
|
[ class "flex flex-col md:relative"
|
|
, onSubmit Submit
|
|
]
|
|
[ renderDeleteConfirm texts settings model
|
|
, if newUser then
|
|
h3 [ class S.header2 ]
|
|
[ text texts.createNewUser
|
|
]
|
|
|
|
else
|
|
h3 [ class S.header2 ]
|
|
[ text model.formModel.user.login
|
|
]
|
|
, MB.view
|
|
{ start =
|
|
[ MB.PrimaryButton
|
|
{ tagger = Submit
|
|
, title = texts.basics.submitThisForm
|
|
, icon = Just "fa fa-save"
|
|
, label = texts.basics.submit
|
|
}
|
|
, MB.SecondaryButton
|
|
{ tagger = SetViewMode Table
|
|
, title = texts.basics.backToList
|
|
, icon = Just "fa fa-arrow-left"
|
|
, label = texts.basics.cancel
|
|
}
|
|
]
|
|
, end =
|
|
if not newUser then
|
|
[ MB.DeleteButton
|
|
{ tagger = RequestDelete
|
|
, title = texts.deleteThisUser
|
|
, icon = Just "fa fa-trash"
|
|
, label = texts.basics.delete
|
|
}
|
|
]
|
|
|
|
else
|
|
[]
|
|
, rootClasses = "mb-4"
|
|
}
|
|
, Html.map FormMsg (Comp.UserForm.view2 texts.userForm settings model.formModel)
|
|
, div
|
|
[ classList
|
|
[ ( "hidden", model.formError == FormErrorNone )
|
|
]
|
|
, class S.errorMessage
|
|
]
|
|
[ case model.formError of
|
|
FormErrorNone ->
|
|
text ""
|
|
|
|
FormErrorSubmit err ->
|
|
text err
|
|
|
|
FormErrorHttp err ->
|
|
text (texts.httpError err)
|
|
|
|
FormErrorInvalid ->
|
|
text texts.pleaseCorrectErrors
|
|
|
|
FormErrorCurrentUser ->
|
|
text texts.notDeleteCurrentUser
|
|
]
|
|
, B.loadingDimmer
|
|
{ active = model.loading
|
|
, label = texts.basics.loading
|
|
}
|
|
]
|