Add Stack TransitionSpecs, CardStyleInterpolators, HeaderStyleInterpolators & TransitionPresets + mergeOptions to spread them

Author: MoOx

src/Example.bs.js

@@ -8,6 +8,7 @@ var Native = require("@react-navigation/native");
 
 function Example$HomeScreen(Props) {
   Props.navigation;
+  Props.route;
   return React.createElement(ReactNative.Text, {
               children: "Hello Reasonable Person!"
             });
@@ -19,6 +20,7 @@ var HomeScreen = {
 
 function Example$ModalScreen(Props) {
   Props.navigation;
+  Props.route;
   return React.createElement(ReactNative.Text, {
               children: "Hello From Modal"
             });
@@ -36,16 +38,17 @@ var $$Navigator = include.Navigator;
 
 function Example$MainStackScreen(Props) {
   Props.navigation;
+  Props.route;
   return React.createElement($$Navigator.make, {
               children: React.createElement($$Screen.make, {
                     name: "Home",
                     options: (function (props) {
                         var match = props.route.params;
                         return {
                                 title: match !== undefined ? Caml_option.valFromOption(match).name : "Reason",
-                                headerLeft: (function (param) {
+                                headerRight: (function (param) {
                                     return React.createElement(ReactNative.Button, {
-                                                color: "#fff",
+                                                color: "#f00",
                                                 onPress: (function (param) {
                                                     props.navigation.navigate("MyModal");
                                                     return /* () */0;
@@ -66,15 +69,12 @@ var MainStackScreen_HeaderTitle = include.HeaderTitle;
 
 var MainStackScreen_Header = include.Header;
 
-var MainStackScreen_TransitionSpec = include.TransitionSpec;
-
 var MainStackScreen_stack = include.stack;
 
 var MainStackScreen = {
   Navigation: MainStackScreen_Navigation,
   HeaderTitle: MainStackScreen_HeaderTitle,
   Header: MainStackScreen_Header,
-  TransitionSpec: MainStackScreen_TransitionSpec,
   stack: MainStackScreen_stack,
   Screen: $$Screen,
   Navigator: $$Navigator,
@@ -87,7 +87,7 @@ var $$Screen$1 = include$1.Screen;
 
 var $$Navigator$1 = include$1.Navigator;
 
-function make(param) {
+function Example$RootStackScreen(Props) {
   return React.createElement(Native.NavigationNativeContainer, {
               children: React.createElement($$Navigator$1.make, {
                     mode: "modal",
@@ -109,19 +109,16 @@ var RootStackScreen_HeaderTitle = include$1.HeaderTitle;
 
 var RootStackScreen_Header = include$1.Header;
 
-var RootStackScreen_TransitionSpec = include$1.TransitionSpec;
-
 var RootStackScreen_stack = include$1.stack;
 
 var RootStackScreen = {
   Navigation: RootStackScreen_Navigation,
   HeaderTitle: RootStackScreen_HeaderTitle,
   Header: RootStackScreen_Header,
-  TransitionSpec: RootStackScreen_TransitionSpec,
   stack: RootStackScreen_stack,
   Screen: $$Screen$1,
   Navigator: $$Navigator$1,
-  make: make
+  make: Example$RootStackScreen
 };
 
 exports.HomeScreen = HomeScreen;

src/Example.re

@@ -25,14 +25,14 @@ module MainStackScreen = {
         component=HomeScreen.make
         options={props =>
           options(
-            ~headerLeft=
+            ~headerRight=
               _ =>
                 <Button
                   onPress={_ =>
                     props##navigation->Navigation.navigate("MyModal")
                   }
                   title="Info"
-                  color="#fff"
+                  color="#f00"
                 />,
             ~title=
               switch (props##route##params) {
@@ -50,6 +50,7 @@ module RootStackScreen = {
   include Stack.Make({
     type params = unit;
   });
+  [@react.component]
   let make = () =>
     <Native.NavigationNativeContainer>
       <Navigator mode=`modal headerMode=`none>

src/Stack.bs.js

@@ -4,6 +4,8 @@ var Interop = require("./Interop");
 var Core$ReactNavigation = require("./Core.bs.js");
 var Stack = require("@react-navigation/stack");
 
+var TransitionSpec = { };
+
 function StackNavigationScreenProp(M) {
   var include = Core$ReactNavigation.NavigationScreenProp(M);
   return {
@@ -47,7 +49,6 @@ function Make(M) {
     render: render$1,
     null: $$null
   };
-  var TransitionSpec = { };
   var stack = Stack.createStackNavigator();
   var make = stack.Screen;
   var $$Screen = {
@@ -61,13 +62,25 @@ function Make(M) {
           Navigation: Navigation,
           HeaderTitle: HeaderTitle,
           Header: Header,
-          TransitionSpec: TransitionSpec,
           stack: stack,
           Screen: $$Screen,
           Navigator: $$Navigator
         };
 }
 
+var TransitionSpecs = { };
+
+var CardStyleInterpolators = { };
+
+var HeaderStyleInterpolators = { };
+
+var TransitionPresets = { };
+
+exports.TransitionSpec = TransitionSpec;
 exports.StackNavigationScreenProp = StackNavigationScreenProp;
 exports.Make = Make;
+exports.TransitionSpecs = TransitionSpecs;
+exports.CardStyleInterpolators = CardStyleInterpolators;
+exports.HeaderStyleInterpolators = HeaderStyleInterpolators;
+exports.TransitionPresets = TransitionPresets;
 /* ./Interop Not a pure module */