@@ -806,7 +806,7 @@ module Make = (Context: Context.T) => {
806
806
let ghost = {
807
807
open Ghost
808
808
{
809
- itemId : itemId ,
809
+ itemId ,
810
810
originalContainer : containerId ,
811
811
targetContainer : containerId -> Some ,
812
812
targetingOriginalContainer : true ,
@@ -818,9 +818,9 @@ module Make = (Context: Context.T) => {
818
818
margins : style -> Geometry .getMargins ,
819
819
borders : style -> Geometry .getBorders ,
820
820
departurePoint : currentPoint ,
821
- currentPoint : currentPoint ,
821
+ currentPoint ,
822
822
departureRect : currentRect ,
823
- currentRect : currentRect ,
823
+ currentRect ,
824
824
delta : {
825
825
x : 0 .,
826
826
y : 0 .,
@@ -901,7 +901,7 @@ module Make = (Context: Context.T) => {
901
901
containers .current =
902
902
containers .current -> Map .map (container => {
903
903
let (geometry , scrollable ) = container .getGeometryAndScrollable ()
904
- {... container , geometry : geometry -> Some , scrollable : scrollable }
904
+ {... container , geometry : geometry -> Some , scrollable }
905
905
})
906
906
907
907
viewport .current = Geometry .getViewport ()-> Some
@@ -943,15 +943,17 @@ module Make = (Context: Context.T) => {
943
943
| _ as ids =>
944
944
items .current =
945
945
ids -> List .reduceU (items .current , (. map , id ) =>
946
- map -> Map .updateU (id , (. item ) =>
947
- switch item {
948
- | Some (item ) =>
949
- Some ({
950
- open ItemBag
951
- {... item , animating : false }
952
- })
953
- | None => None
954
- }
946
+ map -> Map .updateU (
947
+ id ,
948
+ (. item ) =>
949
+ switch item {
950
+ | Some (item ) =>
951
+ Some ({
952
+ open ItemBag
953
+ {... item , animating : false }
954
+ })
955
+ | None => None
956
+ },
955
957
)
956
958
)
957
959
}
@@ -1111,8 +1113,8 @@ module Make = (Context: Context.T) => {
1111
1113
1112
1114
let nextGhost = {
1113
1115
... ghost ,
1114
- targetContainer : targetContainer ,
1115
- targetingOriginalContainer : targetingOriginalContainer ,
1116
+ targetContainer ,
1117
+ targetingOriginalContainer ,
1116
1118
direction : switch nextDirection {
1117
1119
| Some (direction ) => Some (direction )
1118
1120
| None => ghost .direction
@@ -1223,30 +1225,35 @@ module Make = (Context: Context.T) => {
1223
1225
}
1224
1226
1225
1227
containers .current =
1226
- containers .current -> Map .map (container =>
1227
- switch container .scrollable {
1228
- | Some (scrollable ) => {
1229
- ... container ,
1230
- geometry : container .geometry -> Option .map (geometry => {
1231
- ... geometry ,
1232
- rect : geometry .rect -> Geometry .shiftViewportRect (delta ),
1233
- }),
1234
- scrollable : Some ({
1235
- ... scrollable ,
1236
- geometry : {
1237
- ... scrollable .geometry ,
1238
- rect : scrollable .geometry .rect -> Geometry .shiftViewportRect (delta ),
1239
- },
1240
- }),
1241
- }
1242
- | None => {
1243
- ... container ,
1244
- geometry : container .geometry -> Option .map (geometry => {
1245
- ... geometry ,
1246
- rect : geometry .rect -> Geometry .shiftViewportRect (delta ),
1247
- }),
1248
- }
1249
- }
1228
+ containers .current -> Map .map (
1229
+ container =>
1230
+ switch container .scrollable {
1231
+ | Some (scrollable ) => {
1232
+ ... container ,
1233
+ geometry : container .geometry -> Option .map (
1234
+ geometry => {
1235
+ ... geometry ,
1236
+ rect : geometry .rect -> Geometry .shiftViewportRect (delta ),
1237
+ },
1238
+ ),
1239
+ scrollable : Some ({
1240
+ ... scrollable ,
1241
+ geometry : {
1242
+ ... scrollable .geometry ,
1243
+ rect : scrollable .geometry .rect -> Geometry .shiftViewportRect (delta ),
1244
+ },
1245
+ }),
1246
+ }
1247
+ | None => {
1248
+ ... container ,
1249
+ geometry : container .geometry -> Option .map (
1250
+ geometry => {
1251
+ ... geometry ,
1252
+ rect : geometry .rect -> Geometry .shiftViewportRect (delta ),
1253
+ },
1254
+ ),
1255
+ }
1256
+ },
1250
1257
)
1251
1258
1252
1259
scroll .current = nextScroll -> Some
@@ -1289,30 +1296,35 @@ module Make = (Context: Context.T) => {
1289
1296
}
1290
1297
1291
1298
containers .current =
1292
- containers .current -> Map .map (container =>
1293
- switch container .scrollable {
1294
- | Some (scrollable ') if scrollable '.element === scrollable .element => {
1295
- ... container ,
1296
- geometry : container .geometry -> Option .map (geometry => {
1297
- ... geometry ,
1298
- rect : geometry .rect -> Geometry .shiftRects (delta ),
1299
- }),
1300
- scrollable : Some ({... scrollable , scroll : nextScroll }),
1301
- }
1302
- | Some (scrollable ')
1303
- if Geometry .contains (
1304
- ~parent = scrollable .geometry .rect .page ,
1305
- ~child = scrollable '.geometry .rect .page ,
1306
- ) => {
1307
- ... container ,
1308
- geometry : container .geometry -> Option .map (geometry => {
1309
- ... geometry ,
1310
- rect : geometry .rect -> Geometry .shiftRects (delta ),
1311
- }),
1312
- }
1313
- | Some (_ )
1314
- | None => container
1315
- }
1299
+ containers .current -> Map .map (
1300
+ container =>
1301
+ switch container .scrollable {
1302
+ | Some (scrollable ') if scrollable '.element === scrollable .element => {
1303
+ ... container ,
1304
+ geometry : container .geometry -> Option .map (
1305
+ geometry => {
1306
+ ... geometry ,
1307
+ rect : geometry .rect -> Geometry .shiftRects (delta ),
1308
+ },
1309
+ ),
1310
+ scrollable : Some ({... scrollable , scroll : nextScroll }),
1311
+ }
1312
+ | Some (scrollable ')
1313
+ if Geometry .contains (
1314
+ ~parent = scrollable .geometry .rect .page ,
1315
+ ~child = scrollable '.geometry .rect .page ,
1316
+ ) => {
1317
+ ... container ,
1318
+ geometry : container .geometry -> Option .map (
1319
+ geometry => {
1320
+ ... geometry ,
1321
+ rect : geometry .rect -> Geometry .shiftRects (delta ),
1322
+ },
1323
+ ),
1324
+ }
1325
+ | Some (_ )
1326
+ | None => container
1327
+ },
1316
1328
)
1317
1329
1318
1330
invalidateLayout .current (ghost )
@@ -1593,10 +1605,10 @@ module Make = (Context: Context.T) => {
1593
1605
| Collecting (_ , containerId , _ , _ , _ ) => containerId -> Some
1594
1606
| StandBy => None
1595
1607
},
1596
- registerItem : registerItem ,
1597
- registerContainer : registerContainer ,
1598
- disposeItem : disposeItem ,
1599
- disposeContainer : disposeContainer ,
1608
+ registerItem ,
1609
+ registerContainer ,
1610
+ disposeItem ,
1611
+ disposeContainer ,
1600
1612
getItemShift : itemId => (items .current -> Map .getExn (itemId )).shift ,
1601
1613
startDragging : collectEntries ,
1602
1614
}>
0 commit comments