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

Add mail form when creating shares

Browse Source
This commit is contained in:
eikek
2021-10-08 10:15:19 +02:00
parent 337293128d
commit 16ccddab9f
22 changed files with 535 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/webapp/src/main/elm/Page/CollectiveSettings/Data.elm
View File

@ -52,7 +52,7 @@ init flags =
Comp.CollectiveSettingsForm.init flags Api.Model.CollectiveSettings.empty
( shm, shc ) =
Comp.ShareManage.init
Comp.ShareManage.init flags
in
( { currentTab = Just InsightsTab
, sourceModel = sm

8
modules/webapp/src/main/elm/Page/CollectiveSettings/View2.elm
View File

@ -118,7 +118,7 @@ viewContent texts flags settings model =
viewSources texts flags settings model
Just ShareTab ->
viewShares texts flags model
viewShares texts settings flags model
Nothing ->
[]
@ -245,8 +245,8 @@ viewSources texts flags settings model =
]
viewShares : Texts -> Flags -> Model -> List (Html Msg)
viewShares texts flags model =
viewShares : Texts -> UiSettings -> Flags -> Model -> List (Html Msg)
viewShares texts settings flags model =
[ h1
[ class S.header1
, class "inline-flex items-center"
@ -256,7 +256,7 @@ viewShares texts flags model =
[ text texts.shares
]
]
, Html.map ShareMsg (Comp.ShareManage.view texts.shareManage flags model.shareModel)
, Html.map ShareMsg (Comp.ShareManage.view texts.shareManage settings flags model.shareModel)
]

6
modules/webapp/src/main/elm/Page/Home/Data.elm
View File

@ -87,14 +87,14 @@ type alias SelectViewModel =
}
initSelectViewModel : SelectViewModel
initSelectViewModel =
initSelectViewModel : Flags -> SelectViewModel
initSelectViewModel flags =
{ ids = Set.empty
, action = NoneAction
, confirmModal = Nothing
, editModel = Comp.ItemDetail.MultiEditMenu.init
, mergeModel = Comp.ItemMerge.init []
, publishModel = Tuple.first Comp.PublishItems.init
, publishModel = Tuple.first (Comp.PublishItems.init flags)
, saveNameState = SaveSuccess
, saveCustomFieldState = Set.empty
}

10
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -252,10 +252,10 @@ update mId key flags settings msg model =
( nextView, cmd ) =
case model.viewMode of
SimpleView ->
( SelectView initSelectViewModel, loadEditModel flags )
( SelectView <| initSelectViewModel flags, loadEditModel flags )
SearchView ->
( SelectView initSelectViewModel, loadEditModel flags )
( SelectView <| initSelectViewModel flags, loadEditModel flags )
SelectView _ ->
( SearchView, Cmd.none )
@ -633,7 +633,7 @@ update mId key flags settings msg model =
if svm.action == PublishSelected then
let
( mm, mc ) =
Comp.PublishItems.init
Comp.PublishItems.init flags
in
noSub
( { model
@ -653,7 +653,7 @@ update mId key flags settings msg model =
else
let
( mm, mc ) =
Comp.PublishItems.initQuery
Comp.PublishItems.initQuery flags
(Q.ItemIdIn (Set.toList svm.ids))
in
noSub
@ -877,7 +877,7 @@ update mId key flags settings msg model =
Just q ->
let
( pm, pc ) =
Comp.PublishItems.initQuery q
Comp.PublishItems.initQuery flags q
in
noSub ( { model | viewMode = PublishView pm }, Cmd.map PublishViewMsg pc )

16
modules/webapp/src/main/elm/Page/Home/View2.elm
View File

@ -80,7 +80,7 @@ mainView texts flags settings model =
PublishSelected ->
Just
[ div [ class "sm:relative mb-2" ]
(itemPublishView texts flags svm)
(itemPublishView texts settings flags svm)
]
_ ->
@ -89,7 +89,7 @@ mainView texts flags settings model =
PublishView pm ->
Just
[ div [ class "sm:relative mb-2" ]
(publishResults texts flags model pm)
(publishResults texts settings flags model pm)
]
SimpleView ->
@ -106,10 +106,10 @@ mainView texts flags settings model =
itemCardList texts flags settings model
itemPublishView : Texts -> Flags -> SelectViewModel -> List (Html Msg)
itemPublishView texts flags svm =
itemPublishView : Texts -> UiSettings -> Flags -> SelectViewModel -> List (Html Msg)
itemPublishView texts settings flags svm =
[ Html.map PublishItemsMsg
(Comp.PublishItems.view texts.publishItems flags svm.publishModel)
(Comp.PublishItems.view texts.publishItems settings flags svm.publishModel)
]
@ -120,10 +120,10 @@ itemMergeView texts settings svm =
]
publishResults : Texts -> Flags -> Model -> Comp.PublishItems.Model -> List (Html Msg)
publishResults texts flags model pm =
publishResults : Texts -> UiSettings -> Flags -> Model -> Comp.PublishItems.Model -> List (Html Msg)
publishResults texts settings flags model pm =
[ Html.map PublishViewMsg
(Comp.PublishItems.view texts.publishItems flags pm)
(Comp.PublishItems.view texts.publishItems settings flags pm)
]

7
modules/webapp/src/main/elm/Page/ShareDetail/Data.elm
View File

@ -1,3 +1,10 @@
{-
Copyright 2020 Eike K. & Contributors
SPDX-License-Identifier: AGPL-3.0-or-later
-}
module Page.ShareDetail.Data exposing (Model, Msg(..), PageError(..), ViewMode(..), init)
import Api

7
modules/webapp/src/main/elm/Page/ShareDetail/Update.elm
View File

@ -1,3 +1,10 @@
{-
Copyright 2020 Eike K. & Contributors
SPDX-License-Identifier: AGPL-3.0-or-later
-}
module Page.ShareDetail.Update exposing (update)
import Api

7
modules/webapp/src/main/elm/Page/ShareDetail/View.elm
View File

@ -1,3 +1,10 @@
{-
Copyright 2020 Eike K. & Contributors
SPDX-License-Identifier: AGPL-3.0-or-later
-}
module Page.ShareDetail.View exposing (viewContent, viewSidebar)
import Api