adds Overlays components

Author: matdsoupe

src/Offcanvas.res

@@ -0,0 +1,61 @@
+type placement = [#start | #end | #top | #bottom]
+
+@module("react-bootstrap") @react.component
+external make: (
+  ~\"aria-labelledby": string=?,
+  ~autoFocus: bool=?,
+  ~backdrop: bool=?,
+  ~backdropClassName: string=?,
+  ~container: React.element=?,
+  ~enforceFocus: bool=?,
+  ~keyboard: bool=?,
+  ~onEnter: unit => unit=?,
+  ~onEntering: unit => unit=?,
+  ~onEscapeKeyDown: unit => unit=?,
+  ~onExit: unit => unit=?,
+  ~onExited: unit => unit=?,
+  ~onExiting: unit => unit=?,
+  ~onHide: unit => unit=?,
+  ~onShow: unit => unit=?,
+  ~placement: placement=?,
+  ~restoreFocus: bool=?,
+  ~restoreFocusOptions: {.}=?,
+  ~scrool: bool=?,
+  ~show: bool=?,
+  ~className: string=?,
+  ~children: React.element,
+  ~bsPrefix: string=?,
+) => React.element = "Offcanvas"
+
+module Header = {
+  @module("react-bootstrap") @scope("Offcanvas") @react.component
+  external make: (
+    ~closeButton: bool=?,
+    ~closeLabel: string=?,
+    ~closeVariant: [#white]=?,
+    ~onHide: unit => unit=?,
+    ~className: string=?,
+    ~children: React.element,
+    ~bsPrefix: string=?,
+  ) => React.element = "Header"
+}
+
+module Title = {
+  @module("react-bootstrap") @scope("Offcanvas") @react.component
+  external make: (
+    ~_as: string=?,
+    ~className: string=?,
+    ~children: React.element,
+    ~bsPrefix: string,
+  ) => React.element = "Title"
+}
+
+module Body = {
+  @module("react-bootstrap") @scope("Offcanvas") @react.component
+  external make: (
+    ~_as: string=?,
+    ~className: string=?,
+    ~children: React.element,
+    ~bsPrefix: string,
+  ) => React.element = "Body"
+}

src/Overlay.res

@@ -0,0 +1,22 @@
+open Types
+
+@module("react-bootstrap") @react.component
+external make: (
+  ~container: reactNode=?,
+  ~onEnter: unit => unit=?,
+  ~onEntered: unit => unit=?,
+  ~onEntering: unit => unit=?,
+  ~onExit: unit => unit=?,
+  ~onExited: unit => unit=?,
+  ~onExiting: unit => unit=?,
+  ~onHide: unit => unit=?,
+  ~placement: placement=?,
+  ~popperConfig: {.}=?,
+  ~rootClose: bool=?,
+  ~rootCloseEvent: [#click | #mousedown]=?,
+  ~show: bool=?,
+  ~target: reactNode=?,
+  ~transition: React.element=?,
+  ~className: string=?,
+  ~children: React.element,
+) => React.element = "Overlay"

src/OverlayTrigger.res

@@ -0,0 +1,21 @@
+open Types
+
+type triggers = [#hover | #click | #focus]
+type trigger = One(triggers) | Many(array<triggers>)
+
+@module("react-bootstrap") @react.component
+external make: (
+  ~children: React.element,
+  ~defaultShow: bool=?,
+  ~delay: int=?,
+  ~flip: bool=?,
+  ~onHide: unit => unit=?,
+  ~onToggle: unit => unit=?,
+  ~overlay: React.element=?,
+  ~placement: placement=?,
+  ~popperConfig: {.}=?,
+  ~show: bool=?,
+  ~target: reactNode=?,
+  ~trigger: trigger=?,
+  ~className: string=?,
+) => React.element = "OverlayTrigger"

src/Popover.res

@@ -0,0 +1,36 @@
+open Types
+
+type arrowProps<'a> = {ref: React.ref<'a>, style: {.}}
+
+@module("react-bootstrap") @react.component
+external make: (
+  ~arrowProps: arrowProps<'a>=?,
+  ~body: bool=?,
+  ~id: string,
+  ~placement: placement=?,
+  ~popper: {.}=?,
+  ~show: bool=?,
+  ~className: string=?,
+  ~children: React.element,
+  ~bsPrefix: string=?,
+) => React.element = "Popover"
+
+module Body = {
+  @module("react-bootstrap") @scope("Popover") @react.component
+  external make: (
+    ~_as: string=?,
+    ~className: string=?,
+    ~children: React.element,
+    ~bsPrefix: string,
+  ) => React.element = "Body"
+}
+
+module Header = {
+  @module("react-bootstrap") @scope("Popover") @react.component
+  external make: (
+    ~_as: string=?,
+    ~className: string=?,
+    ~children: React.element,
+    ~bsPrefix: string,
+  ) => React.element = "Header"
+}

src/Tooltip.res

@@ -0,0 +1,15 @@
+open Types
+
+type arrowProps<'a> = {ref: React.ref<'a>, style: {.}}
+
+@module("react-bootstrap") @react.component
+external make: (
+  ~arrowProps: arrowProps<'a>=?,
+  ~id: string,
+  ~placement: placement=?,
+  ~popper: {.}=?,
+  ~show: bool=?,
+  ~className: string=?,
+  ~children: React.element,
+  ~bsPrefix: string=?,
+) => React.element = "Tooltip"

src/Types.res

@@ -18,3 +18,21 @@ type variant = [
   | #dark
   | #light
 ]
+
+type placement = [
+  | #"auto-start"
+  | #auto
+  | #"auto-end"
+  | #"top-start"
+  | #top
+  | #"top-end"
+  | #"right-start"
+  | #right
+  | #"right-end"
+  | #"bottom-start"
+  | #bottom
+  | #"bottom-end"
+  | #"left-start"
+  | #left
+  | #"left-end"
+]