diff --git a/src/Design.res b/src/Design.res deleted file mode 100644 index e86ef1d13..000000000 --- a/src/Design.res +++ /dev/null @@ -1,27 +0,0 @@ -// NOTE: This file will later be important to document our -// design tokens etc. - -module ColorSquare = { - @react.component - let make = (~className="") => { -
- } -} - -@react.component -let default = () => { - let fireColorSquares = [ - "bg-fire-90", - "bg-fire-70", - "bg-fire-50", - "bg-fire-30", - "bg-fire-10", - ]->Array.map(bgColorClass => { - - }) - -
-

{React.string("Main Palette")}

-
{React.array(fireColorSquares)}
-
-} diff --git a/src/Design.resi b/src/Design.resi deleted file mode 100644 index 47fa1ac2e..000000000 --- a/src/Design.resi +++ /dev/null @@ -1,2 +0,0 @@ -@react.component -let default: unit => React.element diff --git a/src/bindings/GitHubSlugger.res b/src/bindings/GitHubSlugger.res deleted file mode 100644 index 8faf4c6cb..000000000 --- a/src/bindings/GitHubSlugger.res +++ /dev/null @@ -1 +0,0 @@ -@module("github-slugger") external slug: string => string = "slug" diff --git a/src/bindings/Worker.res b/src/bindings/Worker.res deleted file mode 100644 index 16da7dec0..000000000 --- a/src/bindings/Worker.res +++ /dev/null @@ -1,31 +0,0 @@ -type worker - -@new external make: string => worker = "Worker" - -module type Config = { - type fromApp - type fromWorker - let make: unit => worker -} - -module Make = (Config: Config) => { - include Config - - module App = { - @send external postMessage: (worker, fromApp) => unit = "postMessage" - @set - external onMessage: (worker, {"data": fromWorker} => unit) => unit = "onmessage" - @set - external onError: (worker, 'a => unit) => unit = "onerror" - @send external terminate: worker => unit = "terminate" - } - - module Worker = { - type self - @val external postMessage: fromWorker => unit = "postMessage" - @set - external onMessage: (self, {"data": fromApp} => unit) => unit = "onmessage" - @val external self: self = "self" - @val external importScripts: string => unit = "importScripts" - } -} diff --git a/src/bindings/Worker.resi b/src/bindings/Worker.resi deleted file mode 100644 index 12b1858d2..000000000 --- a/src/bindings/Worker.resi +++ /dev/null @@ -1,29 +0,0 @@ -type worker - -let make: string => worker - -module type Config = { - type fromApp - type fromWorker - let make: unit => worker -} - -module Make: (Config: Config) => -{ - include Config - - module App: { - let postMessage: (worker, fromApp) => unit - let onMessage: (worker, {"data": fromWorker} => unit) => unit - let onError: (worker, 'a => unit) => unit - let terminate: worker => unit - } - - module Worker: { - type self - let postMessage: fromWorker => unit - let onMessage: (self, {"data": fromApp} => unit) => unit - let self: self - let importScripts: string => unit - } -} diff --git a/src/common/XmlHttpRequest.res b/src/common/XmlHttpRequest.res deleted file mode 100644 index 9025f9281..000000000 --- a/src/common/XmlHttpRequest.res +++ /dev/null @@ -1,260 +0,0 @@ -// FULL XMLHttpRequest SPEC -// https://developer.mozilla.org/en-US/docs/Web/API/XMLHttpRequest/Using_XMLHttpRequest - -// ORIGINAL SOURCE OF THIS MODIFIED MODULE: -// https://github.com/stefanduberg/bs-xmlhttprequest/blob/master/src/XmlHttpRequest.re - -module Upload = { - type t - - @set - external onAbort: (t, Dom.progressEvent => unit) => unit = "onabort" - - @set - external onError: (t, Dom.progressEvent => unit) => unit = "onerror" - - @set external onLoad: (t, Dom.progressEvent => unit) => unit = "onload" - - @set - external onLoadEnd: (t, Dom.progressEvent => unit) => unit = "onloadend" - - @set - external onLoadStart: (t, Dom.progressEvent => unit) => unit = "onloadstart" - - @set - external onProgress: (t, Dom.progressEvent => unit) => unit = "onprogress" - - @set - external onTimeout: (t, Dom.progressEvent => unit) => unit = "ontimeout" - - @send - external addEventListener: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | #timeout(Dom.progressEvent => unit) - ], - ) => unit = "addEventListener" - - @send - external addEventListenerWithOptions: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | #timeout(Dom.progressEvent => unit) - ], - {"capture": bool, "once": bool, "passive": bool}, - ) => unit = "addEventListener" - - @send - external removeEventListener: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | #timeout(Dom.progressEvent => unit) - ], - ) => unit = "removeEventListener" - - @send - external removeEventListenerWithOptions: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | #timeout(Dom.progressEvent => unit) - ], - {"capture": bool, "passive": bool}, - ) => unit = "removeEventListener" -} - -type t - -type readyState = - | Unsent - | Opened - | HeadersReceived - | Loading - | Done - | Unknown - -let decodeReadyState = x => - switch x { - | 0 => Unsent - | 1 => Opened - | 2 => HeadersReceived - | 3 => Loading - | 4 => Done - | _ => Unknown - } - -@new external make: unit => t = "XMLHttpRequest" - -// The original readyState representation -@get external readyStateNum: t => int = "readyState" - -let readyState = (xhr: t) => decodeReadyState(readyStateNum(xhr)) - -@get -external responseArrayBuffer: t => Nullable.t = "response" - -// Response property with different encodings -@get -external responseDocument: t => Nullable.t = "response" -@get external responseJson: t => Nullable.t = "response" -@get external responseText: t => Nullable.t = "responseText" -@get external responseType: t => string = "responseType" -@get external responseUrl: t => Nullable.t = "responseUrl" -@get -external responseXml: t => Nullable.t = "responseXml" - -@set -external setResponseType: ( - t, - @string [@as("arraybuffer") #arrayBuffer | #document | #json | #text], -) => string = "responseType" - -@get external status: t => int = "status" - -@get external statusText: t => string = "statusText" - -@get external timeout: t => int = "timeout" - -@get external upload: t => Upload.t = "upload" - -@set external setTimeout: (t, int) => int = "timeout" - -@get external withCredentials: t => bool = "withCredentials" - -@set external setWithCredentials: (t, bool) => bool = "withCredentials" - -@send external abort: t => unit = "abort" - -@send -external getAllResponseHeaders: t => Nullable.t = "getAllResponseHeaders" - -@send -external getResponseHeader: (t, string) => Nullable.t = "getResponseHeader" - -@send external open_: (t, ~method: string, ~url: string) => unit = "open" - -@send external overrideMimeType: (t, string) => unit = "overrideMimeType" - -@send external send: t => unit = "send" - -@send -external sendArrayBuffer: (t, ArrayBuffer.t) => unit = "send" - -@send external sendDocument: (t, Dom.document) => unit = "send" - -@send external sendString: (t, string) => unit = "send" - -@send -external setRequestHeader: (t, string, string) => unit = "setRequestHeader" - -@set -external onReadyStateChange: (t, Dom.event => unit) => unit = "onreadystatechange" - -@set external onAbort: (t, Dom.progressEvent => unit) => unit = "onabort" -@set external onError: (t, Dom.progressEvent => unit) => unit = "onerror" -@set external onLoad: (t, Dom.progressEvent => unit) => unit = "onload" - -@set -external onLoadEnd: (t, Dom.progressEvent => unit) => unit = "onloadend" - -@set -external onLoadStart: (t, Dom.progressEvent => unit) => unit = "onloadstart" - -@set -external onProgress: (t, Dom.progressEvent => unit) => unit = "onprogress" - -@set -external onTimeout: (t, Dom.progressEvent => unit) => unit = "ontimeout" - -@send -external addEventListener: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | @as("readystatechange") #readyStateChange(Dom.event => unit) - | #timeout(Dom.progressEvent => unit) - ], -) => unit = "addEventListener" - -@send -external addEventListenerWithOptions: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | @as("readystatechange") #readyStateChange(Dom.event => unit) - | #timeout(Dom.progressEvent => unit) - ], - {"capture": bool, "once": bool, "passive": bool}, -) => unit = "addEventListener" - -@send -external removeEventListener: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | @as("readystatechange") #readyStateChange(Dom.event => unit) - | #timeout(Dom.progressEvent => unit) - ], -) => unit = "removeEventListener" - -@send -external removeEventListenerWithOptions: ( - t, - @string - [ - | #abort(Dom.progressEvent => unit) - | #error(Dom.progressEvent => unit) - | #load(Dom.progressEvent => unit) - | @as("loadend") #loadEnd(Dom.progressEvent => unit) - | @as("loadstart") #loadStart(Dom.progressEvent => unit) - | #progress(Dom.progressEvent => unit) - | @as("readystatechange") #readyStateChange(Dom.event => unit) - | #timeout(Dom.progressEvent => unit) - ], - {"capture": bool, "passive": bool}, -) => unit = "removeEventListener"