jaredly

CAMLprim value fluid_create_ScrollView(value dims_v) {
  CAMLparam1(dims_v);
  CAMLlocal1(view_v);
  log("Create scroll view\n");

  Unpack_record4_double(dims_v, left, top, width, height);

  NSRect frame = NSMakeRect(left, top, width, height);
  NSScrollView* view = [[NSScrollView alloc] initWithFrame:frame];

jaredly

Part 2

- run a server with "npx http-server -p 3000 -c-1", and open `http://localhost:3000/src/simple` in your browser
- https://github.com/apollographql/reason-apollo -- follow the setup instructions
  - the "apollo http link" url should be "https://serve.onegraph.com/dynamic?app_id=0b33e830-7cde-4b90-ad7e-2a39c57c0e11"
  - get the query from discord

Goal 2: run the query, and render the `response##rss##rss2Feed##title` to the page.

jaredly

WIFI: MSFTGuest -- on the login website, use the "Access code": msevent394hr
go to discord.gg/reasonml
the instructions are in the #reason-dojo channel

Goal: Make a podcast app, using the GraphQL query that's in the channel.

If you have questions, raise your hand!
Also feel free to ask things in the #reason-dojo channel

- clone https://github.com/reasonml-community/reason-react-example

jaredly

type animatable('t) =
  | AtRest('t)
  | BetweenFrames({pre: 't, post: 't, info: animationInfo})

type state = {
  expanded: animatable(bool),
  disabled: animatable(bool)
}

jaredly

# Super often, these are muscle memory
alias g=git
alias gs="git status"
alias gb="git b"
alias gd="git diff"
# See the git aliases section, but this is "git branch" but better
# (sorted by most recent, and other things)
alias gr="git r"

# Used as `gitca "commit message"` and it's done

jaredly

jaredly

module StringContext =
  Context.MakePair({
    type t = string;
    let defaultValue = "Awesome";
  });

let component = ReasonReact.statelessComponent("Tree");

let make = _children => {

jaredly

let recv = (client, maxlen) => {
  let bytes = Bytes.create(maxlen);
  let len = Unix.recv(client, bytes, 0, maxlen, []);
  Bytes.sub_string(bytes, 0, len)
};

let parse_top = top => {
  let parts = Str.split(Str.regexp("[ \t]+"), top);
  switch (parts) {

jaredly

// @flow

import {Component, type Node} from 'react'
import authenticatedApolloClient from '../shared/authenticatedApolloClient';

/**
 * Example usage:
 *
 *  const ScreenWithLoader = (props) => <ApolloWrapper
 *      queryOptions={{

jaredly

let module Styled = {
  let module Create (Config: {
    let name: string;
    let style: ReactNative.Style.style;
  }) => {
    let component = ReasonReact.statelessComponent Config.name;
    let make ::paddingVertical=? => {
      let style = combineStylesSomeHow Config.style paddingVertical; /* <- this is an optional btw */
      View.make ::style