@@ -806,7 +806,7 @@ module Make = (Context: Context.T) => {
806806 let ghost = {
807807 open Ghost
808808 {
809- itemId : itemId ,
809+ itemId ,
810810 originalContainer : containerId ,
811811 targetContainer : containerId -> Some ,
812812 targetingOriginalContainer : true ,
@@ -818,9 +818,9 @@ module Make = (Context: Context.T) => {
818818 margins : style -> Geometry .getMargins ,
819819 borders : style -> Geometry .getBorders ,
820820 departurePoint : currentPoint ,
821- currentPoint : currentPoint ,
821+ currentPoint ,
822822 departureRect : currentRect ,
823- currentRect : currentRect ,
823+ currentRect ,
824824 delta : {
825825 x : 0 .,
826826 y : 0 .,
@@ -901,7 +901,7 @@ module Make = (Context: Context.T) => {
901901 containers .current =
902902 containers .current -> Map .map (container => {
903903 let (geometry , scrollable ) = container .getGeometryAndScrollable ()
904- {... container , geometry : geometry -> Some , scrollable : scrollable }
904+ {... container , geometry : geometry -> Some , scrollable }
905905 })
906906
907907 viewport .current = Geometry .getViewport ()-> Some
@@ -943,15 +943,17 @@ module Make = (Context: Context.T) => {
943943 | _ as ids =>
944944 items .current =
945945 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+ },
955957 )
956958 )
957959 }
@@ -1111,8 +1113,8 @@ module Make = (Context: Context.T) => {
11111113
11121114 let nextGhost = {
11131115 ... ghost ,
1114- targetContainer : targetContainer ,
1115- targetingOriginalContainer : targetingOriginalContainer ,
1116+ targetContainer ,
1117+ targetingOriginalContainer ,
11161118 direction : switch nextDirection {
11171119 | Some (direction ) => Some (direction )
11181120 | None => ghost .direction
@@ -1223,30 +1225,35 @@ module Make = (Context: Context.T) => {
12231225 }
12241226
12251227 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+ },
12501257 )
12511258
12521259 scroll .current = nextScroll -> Some
@@ -1289,30 +1296,35 @@ module Make = (Context: Context.T) => {
12891296 }
12901297
12911298 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+ },
13161328 )
13171329
13181330 invalidateLayout .current (ghost )
@@ -1593,10 +1605,10 @@ module Make = (Context: Context.T) => {
15931605 | Collecting (_ , containerId , _ , _ , _ ) => containerId -> Some
15941606 | StandBy => None
15951607 },
1596- registerItem : registerItem ,
1597- registerContainer : registerContainer ,
1598- disposeItem : disposeItem ,
1599- disposeContainer : disposeContainer ,
1608+ registerItem ,
1609+ registerContainer ,
1610+ disposeItem ,
1611+ disposeContainer ,
16001612 getItemShift : itemId => (items .current -> Map .getExn (itemId )).shift ,
16011613 startDragging : collectEntries ,
16021614 }>
0 commit comments