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

Throttle customfield update requests

Browse Source
This commit is contained in:
Eike Kettner
2020-11-23 09:27:05 +01:00
parent 7026852123
commit cdcc8210fe
6 changed files with 104 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/webapp/src/main/elm/Comp/ItemDetail/EditMenu.elm
View File

@ -564,9 +564,6 @@ update flags msg model =
cmd_ =
Cmd.map CustomFieldMsg res.cmd
sub_ =
Sub.map CustomFieldMsg res.subs
change =
case res.result of
NoFieldChange ->
@ -581,7 +578,7 @@ update flags msg model =
FieldCreateNew ->
NoFormChange
in
UpdateResult model_ cmd_ sub_ change
UpdateResult model_ cmd_ Sub.none change
nameThrottleSub : Model -> Sub Msg

6
modules/webapp/src/main/elm/Comp/ItemDetail/Model.elm
View File

@ -13,6 +13,7 @@ module Comp.ItemDetail.Model exposing
)
import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.CustomField exposing (CustomField)
import Api.Model.EquipmentList exposing (EquipmentList)
import Api.Model.FolderItem exposing (FolderItem)
import Api.Model.FolderList exposing (FolderList)
@ -96,6 +97,7 @@ type alias Model =
, keyInputModel : Comp.KeyInput.Model
, customFieldsModel : Comp.CustomFieldMultiInput.Model
, customFieldSavingIcon : Dict String String
, customFieldThrottle : Throttle Msg
}
@ -199,6 +201,7 @@ emptyModel =
, keyInputModel = Comp.KeyInput.init
, customFieldsModel = Comp.CustomFieldMultiInput.initWith []
, customFieldSavingIcon = Dict.empty
, customFieldThrottle = Throttle.create 1
}
@ -285,7 +288,8 @@ type Msg
| UiSettingsUpdated
| SetLinkTarget LinkTarget
| CustomFieldMsg Comp.CustomFieldMultiInput.Msg
| CustomFieldSaveResp String (Result Http.Error BasicResult)
| CustomFieldSaveResp CustomField String (Result Http.Error BasicResult)
| CustomFieldRemoveResp String (Result Http.Error BasicResult)
type SaveNameState

97
modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
View File

@ -2,10 +2,12 @@ module Comp.ItemDetail.Update exposing (update)
import Api
import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.CustomField exposing (CustomField)
import Api.Model.CustomFieldValue exposing (CustomFieldValue)
import Api.Model.DirectionValue exposing (DirectionValue)
import Api.Model.IdName exposing (IdName)
import Api.Model.ItemDetail exposing (ItemDetail)
import Api.Model.ItemFieldValue exposing (ItemFieldValue)
import Api.Model.MoveAttachment exposing (MoveAttachment)
import Api.Model.OptionalDate exposing (OptionalDate)
import Api.Model.OptionalId exposing (OptionalId)
@ -1232,10 +1234,16 @@ update key flags inav settings msg model =
UpdateThrottle ->
let
( newThrottle, cmd ) =
( newSaveName, cmd1 ) =
Throttle.update model.nameSaveThrottle
( newCustomField, cmd2 ) =
Throttle.update model.customFieldThrottle
in
withSub ( { model | nameSaveThrottle = newThrottle }, cmd )
withSub
( { model | nameSaveThrottle = newSaveName, customFieldThrottle = newCustomField }
, Cmd.batch [ cmd1, cmd2 ]
)
KeyInputMsg lm ->
let
@ -1303,7 +1311,7 @@ update key flags inav settings msg model =
loadingIcon =
"refresh loading icon"
( action, icons ) =
( action_, icons ) =
case result.result of
NoFieldChange ->
( Cmd.none, model.customFieldSavingIcon )
@ -1312,7 +1320,7 @@ update key flags inav settings msg model =
( Api.deleteCustomValue flags
model.item.id
field.id
(CustomFieldSaveResp field.id)
(CustomFieldRemoveResp field.id)
, Dict.insert field.id loadingIcon model.customFieldSavingIcon
)
@ -1320,16 +1328,13 @@ update key flags inav settings msg model =
( Api.putCustomValue flags
model.item.id
(CustomFieldValue field.id value)
(CustomFieldSaveResp field.id)
(CustomFieldSaveResp field value)
, Dict.insert field.id loadingIcon model.customFieldSavingIcon
)
FieldCreateNew ->
( Cmd.none, model.customFieldSavingIcon )
sub_ =
Sub.map CustomFieldMsg result.subs
modalEdit =
if result.result == FieldCreateNew then
Just (Comp.DetailEdit.initCustomField model.item.id)
@ -1337,20 +1342,41 @@ update key flags inav settings msg model =
else
Nothing
( throttle, action ) =
if action_ == Cmd.none then
( model.customFieldThrottle, action_ )
else
Throttle.try action_ model.customFieldThrottle
model_ =
{ model
| customFieldsModel = result.model
, customFieldThrottle = throttle
, modalEdit = modalEdit
, customFieldSavingIcon = icons
}
in
{ model = model_
, cmd = Cmd.batch [ cmd_, action ]
, sub = sub_
, linkTarget = Comp.LinkTarget.LinkNone
}
withSub ( model_, Cmd.batch [ cmd_, action ] )
CustomFieldSaveResp fieldId (Ok res) ->
CustomFieldSaveResp cf fv (Ok res) ->
let
model_ =
{ model | customFieldSavingIcon = Dict.remove cf.id model.customFieldSavingIcon }
in
if res.success then
resultModelCmd
( { model_ | item = setCustomField model.item cf fv }
, Cmd.none
)
else
resultModel model_
CustomFieldSaveResp cf _ (Err _) ->
resultModel { model | customFieldSavingIcon = Dict.remove cf.id model.customFieldSavingIcon }
CustomFieldRemoveResp fieldId (Ok res) ->
let
model_ =
{ model | customFieldSavingIcon = Dict.remove fieldId model.customFieldSavingIcon }
@ -1364,7 +1390,7 @@ update key flags inav settings msg model =
else
resultModel model_
CustomFieldSaveResp fieldId (Err _) ->
CustomFieldRemoveResp fieldId (Err _) ->
resultModel { model | customFieldSavingIcon = Dict.remove fieldId model.customFieldSavingIcon }
@ -1506,9 +1532,14 @@ withSub ( m, c ) =
{ model = m
, cmd = c
, sub =
Throttle.ifNeeded
(Time.every 400 (\_ -> UpdateThrottle))
m.nameSaveThrottle
Sub.batch
[ Throttle.ifNeeded
(Time.every 200 (\_ -> UpdateThrottle))
m.nameSaveThrottle
, Throttle.ifNeeded
(Time.every 200 (\_ -> UpdateThrottle))
m.customFieldThrottle
]
, linkTarget = Comp.LinkTarget.LinkNone
}
@ -1564,3 +1595,33 @@ resetHiddenFields settings flags item tagger =
setItemName : ItemDetail -> String -> ItemDetail
setItemName item name =
{ item | name = name }
{-| Sets the field value of the given id into the item detail.
-}
setCustomField : ItemDetail -> CustomField -> String -> ItemDetail
setCustomField item cf fv =
let
change ifv =
if ifv.id == cf.id then
( { ifv | value = fv }, True )
else
( ifv, False )
( fields, isChanged ) =
List.map change item.customfields
|> List.foldl
(\( e, isChange ) ->
\( list, flag ) -> ( e :: list, isChange || flag )
)
( [], False )
in
if isChanged then
{ item | customfields = fields }
else
{ item
| customfields =
ItemFieldValue cf.id cf.name cf.label cf.ftype fv :: item.customfields
}

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

@ -183,11 +183,7 @@ renderDetailMenu settings inav model =
actionInputDatePicker : DatePicker.Settings
actionInputDatePicker =
let
ds =
Comp.DatePicker.defaultSettings
in
{ ds | containerClassList = [ ( "ui action input", True ) ] }
Comp.DatePicker.defaultSettings
renderIdInfo : Model -> List (Html msg)