Various fixes and improvements (#69)

Author: cknitt

package-lock.json

@@ -48,7 +48,7 @@
     "lint-staged": "^10.0.0",
     "npmpub": "^5.0.0",
     "prettier": "^2.0.0",
-    "rescript": "^10.1.2",
+    "rescript": "^11.0.0",
     "rescript-react-native": ">=0.71.1"
   },
   "prettier": {

package.json

@@ -9,9 +9,9 @@ function Make($star) {
   return Interop.adaptNavigatorModule(BottomTabs.createBottomTabNavigator());
 }
 
-var Navigation = {};
+var $$Navigation = {};
 
 exports.TabBarBadge = TabBarBadge;
 exports.Make = Make;
-exports.Navigation = Navigation;
+exports.$$Navigation = $$Navigation;
 /* ./Interop Not a pure module */

src/BottomTabs.bs.js

@@ -46,7 +46,7 @@ type rec options = {
   header?: headerParams => React.element,
   headerShown?: bool,
   // Header props from https://reactnavigation.org/docs/elements#header
-  headerTitle?: Header.headerTitleProps => React.element,
+  headerTitle?: Header.headerTitle,
   headerTitleAlign?: Header.headerTitleAlign,
   headerTitleAllowFontScaling?: bool,
   headerTitleStyle?: Style.t,

src/BottomTabs.res

@@ -5,9 +5,9 @@ var Params = {};
 
 var NavigationEvent = {};
 
-var Navigation = {};
+var $$Navigation = {};
 
 exports.Params = Params;
 exports.NavigationEvent = NavigationEvent;
-exports.Navigation = Navigation;
+exports.$$Navigation = $$Navigation;
 /* No side effect */

src/Core.bs.js

@@ -7,8 +7,11 @@ function Make($star) {
   return Interop.adaptNavigatorModule(Drawer.createDrawerNavigator());
 }
 
-var Navigation = {};
+var $$Navigation = {};
+
+var DrawerItemList = {};
 
 exports.Make = Make;
-exports.Navigation = Navigation;
+exports.$$Navigation = $$Navigation;
+exports.DrawerItemList = DrawerItemList;
 /* ./Interop Not a pure module */

src/Drawer.bs.js

@@ -57,7 +57,7 @@ type rec options = {
   headerShown?: bool,
   header?: headerProps => React.element,
   // Header props from https://reactnavigation.org/docs/elements#header
-  headerTitle?: Header.headerTitleProps => React.element,
+  headerTitle?: Header.headerTitle,
   headerTitleAlign?: Header.headerTitleAlign,
   headerTitleAllowFontScaling?: bool,
   headerTitleStyle?: Style.t,
@@ -167,3 +167,8 @@ external useDrawerStatus: unit => drawerStatus = "useDrawerStatus"
 
 @module("@react-navigation/drawer")
 external getDrawerStatusFromState: navigationState => drawerStatus = "getDrawerStatusFromState"
+
+module DrawerItemList = {
+  @module("@react-navigation/drawer")
+  external make: React.component<contentComponentProps> = "DrawerItemList"
+}

src/Drawer.res

@@ -8,6 +8,11 @@ module Header = {
     children: string,
   }
 
+  @unboxed
+  type headerTitle =
+    | String(string)
+    | Function(headerTitleProps => React.element)
+
   type headerLeftProps = {
     tintColor: option<Color.t>,
     pressColor: option<Color.t>,
@@ -28,7 +33,7 @@ module Header = {
   @react.component @module("@react-navigation/elements")
   external make: (
     ~title: string=?,
-    ~headerTitle: headerTitleProps => React.element=?,
+    ~headerTitle: headerTitle=?,
     ~headerTitleAlign: headerTitleAlign=?,
     ~headerTitleAllowFontScaling: bool=?,
     ~headerTitleStyle: Style.t=?,

src/Elements.res

@@ -9,9 +9,9 @@ function Make($star) {
   return Interop.adaptNavigatorModule(MaterialBottomTabs.createMaterialBottomTabNavigator());
 }
 
-var Navigation = {};
+var $$Navigation = {};
 
 exports.TabBarBadge = TabBarBadge;
 exports.Make = Make;
-exports.Navigation = Navigation;
+exports.$$Navigation = $$Navigation;
 /* ./Interop Not a pure module */

src/MaterialBottomTabs.bs.js

@@ -80,6 +80,9 @@ type navigatorModule
 module Make = () => unpack(createMaterialBottomTabNavigator()->adaptNavigatorModule)
 
 module Navigation = {
+  @send
+  external setOptions: (navigation, options) => unit = "setOptions"
+
   @send external jumpTo: (navigation, string) => unit = "jumpTo"
   @send
   external jumpToWithParams: (navigation, string, 'params) => unit = "jumpTo"