initial migration from reason-tools

Author: rickyvetter

.gitignore

@@ -0,0 +1,5 @@
+lib/
+node_modules/
+.merlin
+.DS_Store
+npm-debug.log

README.md

@@ -1,2 +1,2 @@
 # bs-discord.js
-BuckleScript bindings for discord.js
+BuckleScript bindings for [discord.js](https://www.npmjs.com/package/discord.js)

bsconfig.json

@@ -0,0 +1,4 @@
+{
+  "name" : "discord",
+  "sources" : ["src"],
+}

package.json

@@ -0,0 +1,27 @@
+{
+  "name": "bs-discord.js",
+  "version": "0.0.1",
+  "description": "BuckleScript bindings for discord.js",
+  "main": "index.js",
+  "scripts": {
+    "test": "echo \"Error: no test specified\" && exit 1"
+  },
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/BuckleTypes/bs-discord.js.git"
+  },
+  "keywords": [
+    "discord",
+    "discord.js",
+    "bucklescript"
+  ],
+  "author": "",
+  "license": "ISC",
+  "bugs": {
+    "url": "https://github.com/BuckleTypes/bs-discord.js/issues"
+  },
+  "homepage": "https://github.com/BuckleTypes/bs-discord.js#readme",
+  "dependencies": {
+    "discord.js": "^11.0.0"
+  }
+}

src/discord.re

@@ -0,0 +1,29 @@
+type client;
+
+type message;
+
+type user;
+
+type channel;
+
+external createClient : unit => client = "Client" [@@bs.module "discord.js"] [@@bs.new];
+
+external login : client => string => unit = "" [@@bs.send];
+
+external onReady : client => _ [@bs.as "ready"] => (unit => unit) => unit = "on" [@@bs.send];
+
+external onMessage : client => _ [@bs.as "message"] => (message => unit) => unit =
+  "on" [@@bs.send];
+
+external getContent : message => string = "content" [@@bs.get];
+
+external getChannel : message => channel = "channel" [@@bs.get];
+
+external getType : channel => string = "type" [@@bs.get];
+
+external getAuthor : message => option user =
+  "author" [@@bs.get] [@@bs.return null_undefined_to_opt];
+
+external isBot : user => bool = "bot" [@@bs.get];
+
+external reply : message => string => unit = "" [@@bs.send];