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

Improve share email form

Browse Source
This commit is contained in:
eikek
2021-10-24 00:37:53 +02:00
parent eaccb60732
commit f5bb85c61e
6 changed files with 74 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
modules/webapp/src/main/elm/Comp/ShareMail.elm
View File

@ -120,7 +120,11 @@ update texts flags msg model =
(texts.bodyTemplate url)
nm =
{ model | share = share }
{ model
| share = share
, mailModel = Comp.ItemMail.clearRecipients model.mailModel
, formState = FormStateNone
}
in
update texts flags (MailMsg lm) nm
@ -128,7 +132,7 @@ update texts flags msg model =
if res.success then
( { model
| formState = FormStateSent
, mailModel = Comp.ItemMail.clear model.mailModel
, mailModel = Comp.ItemMail.clearRecipients model.mailModel
, sending = False
}
, Cmd.none
@ -176,7 +180,7 @@ view texts flags settings model =
FormStateSent ->
div [ class S.successMessage ]
[ text "Mail sent."
[ text texts.mailSent
]
, Html.map MailMsg
(Comp.ItemMail.view texts.itemMail settings cfg model.mailModel)