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

Expose clicks on item cards

Browse Source
This commit is contained in:
Eike Kettner
2020-11-14 01:40:17 +01:00
parent b0bd7e417f
commit b1d0ae0cc8
2 changed files with 92 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
modules/webapp/src/main/elm/Comp/ItemCardList.elm
View File

@ -75,6 +75,7 @@ type alias UpdateResult =
, cmd : Cmd Msg
, dragModel : DD.Model
, selection : ItemSelection
, linkTarget : Comp.ItemCard.LinkTarget
}
@ -91,18 +92,30 @@ updateDrag dm _ msg model =
newModel =
{ model | results = list }
in
UpdateResult newModel Cmd.none dm Data.ItemSelection.Inactive
UpdateResult newModel
Cmd.none
dm
Data.ItemSelection.Inactive
Comp.ItemCard.LinkNone
AddResults list ->
if list.groups == [] then
UpdateResult model Cmd.none dm Data.ItemSelection.Inactive
UpdateResult model
Cmd.none
dm
Data.ItemSelection.Inactive
Comp.ItemCard.LinkNone
else
let
newModel =
{ model | results = Data.Items.concat model.results list }
in
UpdateResult newModel Cmd.none dm Data.ItemSelection.Inactive
UpdateResult newModel
Cmd.none
dm
Data.ItemSelection.Inactive
Comp.ItemCard.LinkNone
ItemCardMsg item lm ->
let
@ -120,6 +133,7 @@ updateDrag dm _ msg model =
Cmd.none
result.dragModel
result.selection
result.linkTarget