TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-28 09:45:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

Show loader while sending mail

Browse Source
This commit is contained in:
Eike Kettner 2020-01-12 12:31:31 +01:00
parent d057d4de7c
commit 4b4d236ca4
1 changed files with 36 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
modules/webapp/src/main/elm/Comp/ItemDetail.elm
View File

@ -64,6 +64,7 @@ type alias Model =
, dueDatePicker : DatePicker
, itemMail : Comp.ItemMail.Model
, mailOpen : Bool
, mailSending : Bool
, mailSendResult : Maybe BasicResult
, sentMails : Comp.SentMails.Model
, sentMailsOpen : Bool
@ -128,6 +129,7 @@ emptyModel =
, dueDatePicker = Comp.DatePicker.emptyModel
, itemMail = Comp.ItemMail.emptyModel
, mailOpen = False
, mailSending = False
, mailSendResult = Nothing
, sentMails = Comp.SentMails.init
, sentMailsOpen = False
@ -740,7 +742,7 @@ update key flags next msg model =
, conn = sm.conn
}
in
( model
( { model | mailSending = True }
, Cmd.batch
[ Cmd.map ItemMailMsg ic
, Api.sendMail flags mail SendMailResp
@ -748,7 +750,23 @@ update key flags next msg model =
)
ToggleMail ->
( { model | mailOpen = not model.mailOpen }, Cmd.none )
let
newOpen =
not model.mailOpen
sendResult =
if newOpen then
model.mailSendResult
else
Nothing
in
( { model
| mailOpen = newOpen
, mailSendResult = sendResult
}
, Cmd.none
)
SendMailResp (Ok br) ->
let
@ -761,6 +779,7 @@ update key flags next msg model =
in
( { model
| itemMail = mm
, mailSending = False
, mailSendResult = Just br
}
, if br.success then
@ -775,7 +794,10 @@ update key flags next msg model =
errmsg =
Util.Http.errorToString err
in
( { model | mailSendResult = Just (BasicResult False errmsg) }
( { model
| mailSendResult = Just (BasicResult False errmsg)
, mailSending = False
}
, Cmd.none
)
@ -1393,7 +1415,17 @@ renderMailForm model =
, ( "invisible hidden", not model.mailOpen )
]
]
[ h4 [ class "ui header" ]
[ div
[ classList
[ ( "ui dimmer", True )
, ( "active", model.mailSending )
]
]
[ div [ class "ui text loader" ]
[ text "Sending …"
]
]
, h4 [ class "ui header" ]
[ text "Send this item via E-Mail"
]
, Html.map ItemMailMsg (Comp.ItemMail.view model.itemMail)