Experimenting with a Reason API for Emotion

Emotion.re

open BsReactNative;

[@bs.deriving abstract]
type style = {
  [@bs.optional]
  color: string,
  [@bs.optional]
  fontSize: float,
  [@bs.optional]
  margin: float,
  [@bs.optional]
  fontWeight: string,
  [@bs.optional]
  flex: float,
};

module type TextComponent = {include Text.TextComponent;};

module type Styled = {let style: style;};

module Text = (Styled: Styled) : TextComponent => {
  [@bs.module "@emotion/native"] [@bs.scope "default"]
  external component: style => ReasonReact.reactClass = "Text";

  include Text.CreateComponent({
    let view = component(Styled.style);
  });
};

Title.re

include Emotion.Text({
  let style =
    Emotion.style(
      ~color=Colors.white,
      ~fontSize=20.0,
      ~margin=8.0,
      ~fontWeight="700",
      ~flex=1.0,
      (),
    );
});