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

Extract tag dropdown into a separate component

Browse Source
This commit is contained in:
eikek
2022-01-15 13:26:32 +01:00
parent 829fb2af87
commit ab2b18e192
16 changed files with 335 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,6 +57,7 @@ import Comp.MarkdownInput
import Comp.OrgForm
import Comp.PersonForm
import Comp.SentMails
import Comp.TagDropdown
import Data.CustomFieldChange exposing (CustomFieldChange(..))
import Data.Direction
import Data.EquipmentOrder
@ -124,7 +125,7 @@ update key flags inav settings msg model =
flags
inav
settings
(TagDropdownMsg (Comp.Dropdown.SetSelection item.tags))
(TagDropdownMsg (Comp.TagDropdown.setSelected item.tags))
model
res2 =
@ -348,13 +349,13 @@ update key flags inav settings msg model =
TagDropdownMsg m ->
let
( m2, c2 ) =
Comp.Dropdown.update m model.tagModel
Comp.TagDropdown.update m model.tagModel
newModel =
{ model | tagModel = m2 }
save =
if isDropdownChangeMsg m then
if Comp.TagDropdown.isChangeMsg m then
saveTags flags newModel
else
@ -615,10 +616,13 @@ update key flags inav settings msg model =
GetTagsResp (Ok tags) ->
let
tagList =
Comp.Dropdown.SetOptions tags.items
tagModel =
Comp.TagDropdown.initWith tags.items model.item.tags
newModel =
{ model | allTags = tags.items, tagModel = tagModel }
in
update key flags inav settings (TagDropdownMsg tagList) { model | allTags = tags.items }
resultModel newModel
GetTagsResp (Err _) ->
resultModel model
@ -1645,7 +1649,7 @@ saveTags : Flags -> Model -> Cmd Msg
saveTags flags model =
let
tags =
Comp.Dropdown.getSelected model.tagModel
Comp.TagDropdown.getSelected model.tagModel
|> Util.List.distinct
|> List.map (\t -> t.id)
|> StringList