Skip to content

Instantly share code, notes, and snippets.


Jared Forsyth jaredly

View GitHub Profile
jaredly /
Last active Jan 1, 2021
ReasonReact Context API Example
module StringContext =
type t = string;
let defaultValue = "Awesome";
let component = ReasonReact.statelessComponent("Tree");
let make = _children => {
View codemirror.cljs
(defn code-mirror
"Create a code-mirror editor. The parameters:
value-atom (reagent atom)
when this changes, the editor will update to reflect it.
:style (reagent style map)
will be applied to the container element
options passed into the CodeMirror constructor
:on-cm-init (fn [cm] -> nil)
View all unison

All the docs probably


.> view base..

  (base..) : (b ->{𝕖} c) -> (a ->{𝕖} b) -> a ->{𝕖} c
  (base..) f g x = f (g x)
jaredly / neovim.svg
Created Feb 25, 2014
A few concepts for a NeoVim logo
View neovim.svg
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
jaredly /
Created Jan 2, 2018
Simple Static File Server in Reason/OCaml
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 /
Created Jul 30, 2019
Reason Macros example
// Reason Macros!
// Use templates to write your code for you.
let%macro add5 = (input: ident, log: string) => {
if%eval (env("node_environment") != "production") {
eval__input + 5
View gist:a5e0102c060b7a1b40525d41f87843a8
let module Styled = {
let module Create (Config: {
let name: string;
let style:;
}) => {
let component = ReasonReact.statelessComponent;
let make ::paddingVertical=? => {
let style = combineStylesSomeHow paddingVertical; /* <- this is an optional btw */
View.make ::style
View current.m
CAMLprim value fluid_create_ScrollView(value dims_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];
View gist:15aeeff4c4bb46b01abfdeef19191b14
Part 2
- run a server with "npx http-server -p 3000 -c-1", and open `http://localhost:3000/src/simple` in your browser
- -- follow the setup instructions
- the "apollo http link" url should be ""
- get the query from discord
Goal 2: run the query, and render the `response##rss##rss2Feed##title` to the page.
View gist:7cc7b8c76513017b799a23168952f08f
WIFI: MSFTGuest -- on the login website, use the "Access code": msevent394hr
go to
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
You can’t perform that action at this time.