Updating flatlist implementation of inline bs-react-native

Author: arnarthor

src/components/flatListRe.re

@@ -90,6 +90,7 @@ let make
  renderItem::(renderItem: renderItem 'item)
  keyExtractor::(keyExtractor: 'item => int => string)
  itemSeparatorComponent::(itemSeparatorComponent: option (separatorComponent 'item))=?
+ ::bounces=?
  ::listFooterComponent=?
  ::listHeaderComponent=?
  ::columnWrapperStyle=?
@@ -103,14 +104,22 @@ let make
  ::onEndReachedThreshold=?
  ::onRefresh=?
  ::onViewableItemsChanged=?
+ ::overScrollMode=?
+ ::pagingEnabled=?
  ::refreshing=?
  ::removeClippedSubviews=?
+ ::scrollEnabled=?
+ ::showsHorizontalScrollIndicator=?
+ ::showsVerticalScrollIndicator=?
+ ::windowSize=?
+ ::maxToRenderPerBatch=?
  ::viewabilityConfig=? =>
  ReasonReact.wrapJsForReason
  reactClass::view
  props::
  Js.Undefined.(
  {
+ "bounces": from_opt (UtilsRN.optBoolToOptJsBoolean bounces),
  "ItemSeparatorComponent": from_opt itemSeparatorComponent,
  "ListFooterComponent": from_opt listFooterComponent,
  "ListHeaderComponent": from_opt listHeaderComponent,
@@ -131,9 +140,30 @@ let make
  "onEndReachedThreshold": from_opt onEndReachedThreshold,
  "onRefresh": from_opt onRefresh,
  "onViewableItemsChanged": from_opt onViewableItemsChanged,
+ "overScrollMode":
+ from_opt (
+ UtilsRN.option_map
+ (
+ fun x =>
+ switch x {
+ | `auto => "auto"
+ | `always => "always"
+ | `never => "never"
+ }
+ )
+ overScrollMode
+ ),
+ "pagingEnabled": from_opt (UtilsRN.optBoolToOptJsBoolean pagingEnabled),
  "refreshing": from_opt (UtilsRN.optBoolToOptJsBoolean refreshing),
  "renderItem": renderItem,
  "removeClippedSubviews": from_opt (UtilsRN.optBoolToOptJsBoolean removeClippedSubviews),
+ "scrollEnabled": from_opt (UtilsRN.optBoolToOptJsBoolean scrollEnabled),
+ "showsHorizontalScrollIndicator":
+ from_opt (UtilsRN.optBoolToOptJsBoolean showsHorizontalScrollIndicator),
+ "showsVerticalScrollIndicator":
+ from_opt (UtilsRN.optBoolToOptJsBoolean showsVerticalScrollIndicator),
+ "windowSize": from_opt windowSize,
+ "maxToRenderPerBatch": from_opt maxToRenderPerBatch,
  "viewabilityConfig": from_opt viewabilityConfig
  }
  );

src/components/flatListRe.rei

@@ -45,6 +45,7 @@ let make:
  renderItem::renderItem 'item =>
  keyExtractor::('item => int => string) =>
  itemSeparatorComponent::separatorComponent 'item? =>
+ bounces::bool? =>
  listFooterComponent::ReasonReact.reactElement? =>
  listHeaderComponent::ReasonReact.reactElement? =>
  columnWrapperStyle::StyleRe.t? =>
@@ -83,8 +84,15 @@ let make:
  }
  )
  }? =>
+ overScrollMode::[ | `auto | `always | `never]? =>
+ pagingEnabled::bool? =>
  refreshing::bool? =>
  removeClippedSubviews::bool? =>
+ scrollEnabled::bool? =>
+ showsHorizontalScrollIndicator::bool? =>
+ showsVerticalScrollIndicator::bool? =>
+ windowSize::int? =>
+ maxToRenderPerBatch::int? =>
  viewabilityConfig::Js.t {.}? =>
  array ReasonReact.reactElement =>
  ReasonReact.component ReasonReact.stateless ReasonReact.noRetainedProps unit;