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

Use powersearch input element in share form

Browse Source
This commit is contained in:
eikek
2021-10-07 23:51:09 +02:00
parent fe77f7245a
commit 40aa2d4102
7 changed files with 136 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
modules/webapp/src/main/elm/Page/CollectiveSettings/Update.elm
View File

@@ -16,7 +16,7 @@ import Data.Flags exposing (Flags)
import Page.CollectiveSettings.Data exposing (..)
update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
update : Flags -> Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
update flags msg model =
case msg of
SetTab t ->
@@ -45,21 +45,21 @@ update flags msg model =
( m2, c2 ) =
Comp.SourceManage.update flags m model.sourceModel
in
( { model | sourceModel = m2 }, Cmd.map SourceMsg c2 )
( { model | sourceModel = m2 }, Cmd.map SourceMsg c2, Sub.none )
ShareMsg lm ->
let
( sm, sc ) =
( sm, sc, ss ) =
Comp.ShareManage.update flags lm model.shareModel
in
( { model | shareModel = sm }, Cmd.map ShareMsg sc )
( { model | shareModel = sm }, Cmd.map ShareMsg sc, Sub.map ShareMsg ss )
UserMsg m ->
let
( m2, c2 ) =
Comp.UserManage.update flags m model.userModel
in
( { model | userModel = m2 }, Cmd.map UserMsg c2 )
( { model | userModel = m2 }, Cmd.map UserMsg c2, Sub.none )
SettingsFormMsg m ->
let
@@ -76,6 +76,7 @@ update flags msg model =
in
( { model | settingsModel = m2, formState = InitialState }
, Cmd.batch [ cmd, Cmd.map SettingsFormMsg c2 ]
, Sub.none
)
Init ->
@@ -84,13 +85,14 @@ update flags msg model =
[ Api.getInsights flags GetInsightsResp
, Api.getCollectiveSettings flags CollectiveSettingsResp
]
, Sub.none
)
GetInsightsResp (Ok data) ->
( { model | insights = data }, Cmd.none )
( { model | insights = data }, Cmd.none, Sub.none )
GetInsightsResp (Err _) ->
( model, Cmd.none )
( model, Cmd.none, Sub.none )
CollectiveSettingsResp (Ok data) ->
let
@@ -99,10 +101,11 @@ update flags msg model =
in
( { model | settingsModel = cm }
, Cmd.map SettingsFormMsg cc
, Sub.none
)
CollectiveSettingsResp (Err _) ->
( model, Cmd.none )
( model, Cmd.none, Sub.none )
SubmitResp (Ok res) ->
( { model
@@ -114,7 +117,8 @@ update flags msg model =
SubmitFailed res.message
}
, Cmd.none
, Sub.none
)
SubmitResp (Err err) ->
( { model | formState = SubmitError err }, Cmd.none )
( { model | formState = SubmitError err }, Cmd.none, Sub.none )