quartz55/discopotty - Change MGOB3WXKVDFPE5PPKWC4EEST2CR4NQ7B2FASVYHO5JNNGXC5NNPAC

Initial commit

Created by quartz55 on February 9, 2019

MGOB3WXKVDFPE5PPKWC4EEST2CR4NQ7B2FASVYHO5JNNGXC5NNPAC

Dependencies

[2] LILEG6KRUBQN7AIFHDK5N3X4JPBOLK2ATIO5JGRU3AEG5CCIWBNAC

In channels

main

Change contents

File addition: .gitignore (----------)

[2.2]

node_modules/
**.bs.js
token.txt
*.exe
*.obj
*.out
*.compile
*.native
*.byte
*.cmo
*.annot
*.cmi
*.cmx
*.cmt
*.cmti
*.cma
*.a
*.cmxa
*.obj
*~
*.annot
*.cmj
*.bak
lib/bs
*.mlast
*.mliast
.vscode
.merlin
.bsb.lock

File addition: README.md (----------)

[2.2]


# Build
```
npm run build
```
# Watch
```
npm run watch
```
# Editor
If you use `vscode`, Press `Windows + Shift + B` it will build automatically

File addition: bsconfig.json (----------)

[2.2]

{
    "name": "discopotty",
    "version": "0.1.0",
    "sources": {
        "dir": "src",
        "subdirs": true
    },
    "package-specs": {
        "module": "commonjs",
        "in-source": true
    },
    "suffix": ".bs.js",
    "bs-dependencies": [
        "@quartz55/relog",
        "bs-fluture",
        "wonka",
        "rationale"
    ],
    "ppx-flags": [
        "let-anything/ppx"
    ],
    "warnings": {
        "error": "+101"
    },
    "refmt": 3
}

File addition: package-lock.json (----------)

[2.2]

{
  "name": "discopotty",
  "version": "0.1.0",
  "lockfileVersion": 1,
  "requires": true,
  "dependencies": {
    "@discordjs/uws": {
      "version": "11.149.1",
      "resolved": "https://registry.npmjs.org/@discordjs/uws/-/uws-11.149.1.tgz",
      "integrity": "sha512-TmbwZaeXDSCq0ckmf2q10Fkt1220gu9AZJ/UvtQjsi2jyJDjy0i0OwL4/eb3vc9Cwr0mpC9EbfzltQ2si0qUiQ=="
    },
    "@quartz55/relog": {
      "version": "github:quartz55/relog#3e4527a1f8866ed29daf37888649a6aa211df405",
      "from": "github:quartz55/relog#master",
      "requires": {
        "chalk": "^2.4.2",
        "luxon": "^1.10.0"
      }
    },
    "ansi-styles": {
      "version": "3.2.1",
      "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-3.2.1.tgz",
      "integrity": "sha512-VT0ZI6kZRdTh8YyJw3SMbYm/u+NqfsAxEpWO0Pf9sq8/e94WxxOpPKx9FR1FlyCtOVDNOQ+8ntlqFxiRc+r5qA==",
      "requires": {
        "color-convert": "^1.9.0"
      }
    },
    "async-limiter": {
      "version": "1.0.0",
      "resolved": "https://registry.npmjs.org/async-limiter/-/async-limiter-1.0.0.tgz",
      "integrity": "sha512-jp/uFnooOiO+L211eZOoSyzpOITMXx1rBITauYykG3BRYPu8h0UcxsPNB04RR5vo4Tyz3+ay17tR6JVf9qzYWg=="
    },
    "asynckit": {
      "version": "0.4.0",
      "resolved": "https://registry.npmjs.org/asynckit/-/asynckit-0.4.0.tgz",
      "integrity": "sha1-x57Zf380y48robyXkLzDZkdLS3k="
    },
    "bindings": {
      "version": "1.2.1",
      "resolved": "https://registry.npmjs.org/bindings/-/bindings-1.2.1.tgz",
      "integrity": "sha1-FK1hE4EtLTfXLme0ystLtyZQXxE="
    },
    "bs-fluture": {
      "version": "0.4.1",
      "resolved": "https://registry.npmjs.org/bs-fluture/-/bs-fluture-0.4.1.tgz",
      "integrity": "sha512-+TZQgmKG5cUrQYEwF+d3bOSV978uJ2/pmXeMB8ZGV0USueq6hsE+g7kvzeUABUGkMDXSnL5bWOgK1vRLePQ4kg=="
    },
    "bs-platform": {
      "version": "4.0.18",
      "resolved": "https://registry.npmjs.org/bs-platform/-/bs-platform-4.0.18.tgz",
      "integrity": "sha512-BwzW0iYHvREqUZIgQxJmdJrxexppLvJxYQ4LLexbhCp7uZU5DIZ5ub4ZHpkCkc8fn8bsXWc+Rrejb3csi+BoAQ==",
      "dev": true
    },
    "bs-rebel": {
      "version": "0.2.3",
      "resolved": "https://registry.npmjs.org/bs-rebel/-/bs-rebel-0.2.3.tgz",
      "integrity": "sha512-NTDUSkJ+KkIqmKHUE48luD2YaYh49XaU1zVSSk9lJ6KFNQzlRQnIfR+paNWYyvzxf5+TZ2inVgxBUHdCsZEiYA=="
    },
    "buffer-crc32": {
      "version": "0.2.13",
      "resolved": "https://registry.npmjs.org/buffer-crc32/-/buffer-crc32-0.2.13.tgz",
      "integrity": "sha1-DTM+PwDqxQqhRUq9MO+MKl2ackI="
    },
    "chalk": {
      "version": "2.4.2",
      "resolved": "https://registry.npmjs.org/chalk/-/chalk-2.4.2.tgz",
      "integrity": "sha512-Mti+f9lpJNcwF4tWV8/OrTTtF1gZi+f8FqlyAdouralcFWFQWF2+NgCHShjkCb+IFBLq9buZwE1xckQU4peSuQ==",
      "requires": {
        "ansi-styles": "^3.2.1",
        "escape-string-regexp": "^1.0.5",
        "supports-color": "^5.3.0"
      }
    },
    "color-convert": {
      "version": "1.9.3",
      "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-1.9.3.tgz",
      "integrity": "sha512-QfAUtd+vFdAtFQcC8CCyYt1fYWxSqAiK2cSD6zDB8N3cpsEBAvRxp9zOGg6G/SHHJYAT88/az/IuDGALsNVbGg==",
      "requires": {
        "color-name": "1.1.3"
      }
    },
    "color-name": {
      "version": "1.1.3",
      "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.3.tgz",
      "integrity": "sha1-p9BVi9icQveV3UIyj3QIMcpTvCU="
    },
    "combined-stream": {
      "version": "1.0.7",
      "resolved": "https://registry.npmjs.org/combined-stream/-/combined-stream-1.0.7.tgz",
      "integrity": "sha512-brWl9y6vOB1xYPZcpZde3N9zDByXTosAeMDo4p1wzo6UMOX4vumB+TP1RZ76sfE6Md68Q0NJSrE/gbezd4Ul+w==",
      "requires": {
        "delayed-stream": "~1.0.0"
      }
    },
    "commander": {
      "version": "2.19.0",
      "resolved": "https://registry.npmjs.org/commander/-/commander-2.19.0.tgz",
      "integrity": "sha512-6tvAOO+D6OENvRAh524Dh9jcfKTYDQAqvqezbCW82xj5X0pSrcpxtvRKHLG0yBY6SD7PSDrJaj+0AiOcKVd1Xg=="
    },
    "concurrify": {
      "version": "1.1.1",
      "resolved": "https://registry.npmjs.org/concurrify/-/concurrify-1.1.1.tgz",
      "integrity": "sha512-m2UMqZAJ7Ys4Juu0IaToa/RbVuu5jR8dGVrwUOeQtfJjX0KDimUdPZ20tVrdSuqJwLaFbpI+lWxOmZSYxyCvmQ==",
      "requires": {
        "sanctuary-show": "^1.0.0",
        "sanctuary-type-identifiers": "^2.0.0"
      }
    },
    "debug": {
      "version": "2.6.9",
      "resolved": "https://registry.npmjs.org/debug/-/debug-2.6.9.tgz",
      "integrity": "sha512-bC7ElrdJaJnPbAP+1EotYvqZsb3ecl5wi6Bfi6BJTUcNowp6cvspg0jXznRTKDjm/E7AdgFBVeAPVMNcKGsHMA==",
      "requires": {
        "ms": "2.0.0"
      }
    },
    "delayed-stream": {
      "version": "1.0.0",
      "resolved": "https://registry.npmjs.org/delayed-stream/-/delayed-stream-1.0.0.tgz",
      "integrity": "sha1-3zrhmayt+31ECqrgsp4icrJOxhk="
    },
    "discord.js": {
      "version": "github:discordjs/discord.js#f2ed93c08aba970a94671a0fec819035ad989195",
      "from": "github:discordjs/discord.js#master",
      "requires": {
        "form-data": "^2.3.2",
        "node-fetch": "^2.1.2",
        "pako": "^1.0.0",
        "prism-media": "github:amishshah/prism-media#1e336c9a20dd0928ef3bdc2075ab58d1521fb323",
        "setimmediate": "^1.0.5",
        "tweetnacl": "^1.0.0",
        "ws": "^6.0.0"
      }
    },
    "erlpack": {
      "version": "github:discordapp/erlpack#674ebfd3439ba4b7ce616709821d27630f7cdc61",
      "from": "github:discordapp/erlpack",
      "requires": {
        "bindings": "^1.2.1",
        "nan": "^2.1.0"
      }
    },
    "escape-string-regexp": {
      "version": "1.0.5",
      "resolved": "https://registry.npmjs.org/escape-string-regexp/-/escape-string-regexp-1.0.5.tgz",
      "integrity": "sha1-G2HAViGQqN/2rjuyzwIAyhMLhtQ="
    },
    "fd-slicer": {
      "version": "1.1.0",
      "resolved": "https://registry.npmjs.org/fd-slicer/-/fd-slicer-1.1.0.tgz",
      "integrity": "sha1-JcfInLH5B3+IkbvmHY85Dq4lbx4=",
      "requires": {
        "pend": "~1.2.0"
      }
    },
    "fluture": {
      "version": "10.3.1",
      "resolved": "https://registry.npmjs.org/fluture/-/fluture-10.3.1.tgz",
      "integrity": "sha512-Tl55fVKF0Zzu+O2gjJlMVkxt0LHVjk7OEeA09YqA2bVV8frT6Jcefj5IujDE/SJ6Hyu4Q/6ggUwFAMQ4iXsRmA==",
      "requires": {
        "concurrify": "^1.1.1",
        "sanctuary-show": "^1.0.0",
        "sanctuary-type-identifiers": "^2.0.0"
      }
    },
    "form-data": {
      "version": "2.3.3",
      "resolved": "https://registry.npmjs.org/form-data/-/form-data-2.3.3.tgz",
      "integrity": "sha512-1lLKB2Mu3aGP1Q/2eCOx0fNbRMe7XdwktwOruhfqqd0rIJWwN4Dh+E3hrPSlDCXnSR7UtZ1N38rVXm+6+MEhJQ==",
      "requires": {
        "asynckit": "^0.4.0",
        "combined-stream": "^1.0.6",
        "mime-types": "^2.1.12"
      }
    },
    "has-flag": {
      "version": "3.0.0",
      "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-3.0.0.tgz",
      "integrity": "sha1-tdRU3CGZriJWmfNGfloH87lVuv0="
    },
    "let-anything": {
      "version": "1.0.3",
      "resolved": "https://registry.npmjs.org/let-anything/-/let-anything-1.0.3.tgz",
      "integrity": "sha512-cq3cWtklrAy2B+Fcl/PodvaCRGl2RDP2NjwFogsqRXE7Q1nsEtHpFlL1PmgNRj0+7bSYtt5fEyQmPmHlVTzvNQ==",
      "requires": {
        "bsb-native": "4.0.6"
      },
      "dependencies": {
        "bsb-native": {
          "version": "4.0.6",
          "resolved": "https://registry.npmjs.org/bsb-native/-/bsb-native-4.0.6.tgz",
          "integrity": "sha512-T1MkndnmA4StiKK2UvEftrqANN+h9StlLghBbwmKa833d97D86np+2wmIOw5Rqy6rNW3D076A2G51mooWTUwfQ==",
          "requires": {
            "yauzl": "^2.9.1"
          }
        }
      }
    },
    "luxon": {
      "version": "1.10.0",
      "resolved": "https://registry.npmjs.org/luxon/-/luxon-1.10.0.tgz",
      "integrity": "sha512-ry3GKh//v3isD6oJN5pFWmdh+3GiScwv9q8VgG6fZ2j1guGOol2vVVdo4GBAWCrcq5RHOqSeipqHBnOu/u024Q=="
    },
    "mime-db": {
      "version": "1.37.0",
      "resolved": "https://registry.npmjs.org/mime-db/-/mime-db-1.37.0.tgz",
      "integrity": "sha512-R3C4db6bgQhlIhPU48fUtdVmKnflq+hRdad7IyKhtFj06VPNVdk2RhiYL3UjQIlso8L+YxAtFkobT0VK+S/ybg=="
    },
    "mime-types": {
      "version": "2.1.21",
      "resolved": "https://registry.npmjs.org/mime-types/-/mime-types-2.1.21.tgz",
      "integrity": "sha512-3iL6DbwpyLzjR3xHSFNFeb9Nz/M8WDkX33t1GFQnFOllWk8pOrh/LSrB5OXlnlW5P9LH73X6loW/eogc+F5lJg==",
      "requires": {
        "mime-db": "~1.37.0"
      }
    },
    "ms": {
      "version": "2.0.0",
      "resolved": "https://registry.npmjs.org/ms/-/ms-2.0.0.tgz",
      "integrity": "sha1-VgiurfwAvmwpAd9fmGF4jeDVl8g="
    },
    "nan": {
      "version": "2.12.1",
      "resolved": "https://registry.npmjs.org/nan/-/nan-2.12.1.tgz",
      "integrity": "sha512-JY7V6lRkStKcKTvHO5NVSQRv+RV+FIL5pvDoLiAtSL9pKlC5x9PKQcZDsq7m4FO4d57mkhC6Z+QhAh3Jdk5JFw=="
    },
    "node-addon-api": {
      "version": "1.6.2",
      "resolved": "https://registry.npmjs.org/node-addon-api/-/node-addon-api-1.6.2.tgz",
      "integrity": "sha512-479Bjw9nTE5DdBSZZWprFryHGjUaQC31y1wHo19We/k0BZlrmhqQitWoUL0cD8+scljCbIUL+E58oRDEakdGGA=="
    },
    "node-fetch": {
      "version": "2.3.0",
      "resolved": "https://registry.npmjs.org/node-fetch/-/node-fetch-2.3.0.tgz",
      "integrity": "sha512-MOd8pV3fxENbryESLgVIeaGKrdl+uaYhCSSVkjeOb/31/njTpcis5aWfdqgNlHIrKOLRbMnfPINPOML2CIFeXA=="
    },
    "node-opus": {
      "version": "0.3.1",
      "resolved": "https://registry.npmjs.org/node-opus/-/node-opus-0.3.1.tgz",
      "integrity": "sha512-1Cb8OvHhdDspVfeKMjEgbedJabyE1Ib6OcN2BMEsRCU7FIsciuBpOErcie3y0qTf83nclPAY+kBU3Oj+U+oRlQ==",
      "requires": {
        "bindings": "~1.2.1",
        "commander": "^2.9.0",
        "nan": "^2.10.0",
        "ogg-packet": "^1.0.0"
      }
    },
    "ogg-packet": {
      "version": "1.0.0",
      "resolved": "https://registry.npmjs.org/ogg-packet/-/ogg-packet-1.0.0.tgz",
      "integrity": "sha1-RbiFchrI991c8iOR1CEGrlM6xng=",
      "optional": true,
      "requires": {
        "ref-struct": "*"
      }
    },
    "pako": {
      "version": "1.0.8",
      "resolved": "https://registry.npmjs.org/pako/-/pako-1.0.8.tgz",
      "integrity": "sha512-6i0HVbUfcKaTv+EG8ZTr75az7GFXcLYk9UyLEg7Notv/Ma+z/UG3TCoz6GiNeOrn1E/e63I0X/Hpw18jHOTUnA=="
    },
    "pend": {
      "version": "1.2.0",
      "resolved": "https://registry.npmjs.org/pend/-/pend-1.2.0.tgz",
      "integrity": "sha1-elfrVQpng/kRUzH89GY9XI4AelA="
    },
    "prism-media": {
      "version": "github:amishshah/prism-media#1e336c9a20dd0928ef3bdc2075ab58d1521fb323",
      "from": "github:amishshah/prism-media"
    },
    "rationale": {
      "version": "0.1.10",
      "resolved": "https://registry.npmjs.org/rationale/-/rationale-0.1.10.tgz",
      "integrity": "sha512-WMBpRHHjhY4AA8BtboQsA5voL2dQXhbtX0C/F4HYOGFZDZz5gbUfZVs22Sc4FqyvpJoT/1A+PhcpOvefnKKxJQ=="
    },
    "ref": {
      "version": "1.3.5",
      "resolved": "https://registry.npmjs.org/ref/-/ref-1.3.5.tgz",
      "integrity": "sha512-2cBCniTtxcGUjDpvFfVpw323a83/0RLSGJJY5l5lcomZWhYpU2cuLdsvYqMixvsdLJ9+sTdzEkju8J8ZHDM2nA==",
      "optional": true,
      "requires": {
        "bindings": "1",
        "debug": "2",
        "nan": "2"
      }
    },
    "ref-struct": {
      "version": "1.1.0",
      "resolved": "https://registry.npmjs.org/ref-struct/-/ref-struct-1.1.0.tgz",
      "integrity": "sha1-XV7mWtQc78Olxf60BYcmHkee3BM=",
      "optional": true,
      "requires": {
        "debug": "2",
        "ref": "1"
      }
    },
    "sanctuary-show": {
      "version": "1.0.0",
      "resolved": "https://registry.npmjs.org/sanctuary-show/-/sanctuary-show-1.0.0.tgz",
      "integrity": "sha512-63UqNGr5M6wkzKp6eGc/Gy6JBIV2PbzPd3q88+0F9z0qydAQsCWJ+7e4oor39rEEwj2GkZMDEhqGuiMl9eEnYw=="
    },
    "sanctuary-type-identifiers": {
      "version": "2.0.1",
      "resolved": "https://registry.npmjs.org/sanctuary-type-identifiers/-/sanctuary-type-identifiers-2.0.1.tgz",
      "integrity": "sha1-/FJM9t2Szr/LsN2VCe/xkxWaIO0="
    },
    "setimmediate": {
      "version": "1.0.5",
      "resolved": "https://registry.npmjs.org/setimmediate/-/setimmediate-1.0.5.tgz",
      "integrity": "sha1-KQy7Iy4waULX1+qbg3Mqt4VvgoU="
    },
    "sodium": {
      "version": "3.0.2",
      "resolved": "https://registry.npmjs.org/sodium/-/sodium-3.0.2.tgz",
      "integrity": "sha512-IsTwTJeoNBU97km3XkrbCGC/n/9aUQejgD3QPr2YY2gtbSPru3TI6nhCqgoez9Mv88frF9oVZS/jrXFbd6WXyA==",
      "requires": {
        "node-addon-api": "*"
      }
    },
    "supports-color": {
      "version": "5.5.0",
      "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-5.5.0.tgz",
      "integrity": "sha512-QjVjwdXIt408MIiAqCX4oUKsgU2EqAGzs2Ppkm4aQYbjm+ZEWEcW4SfFNTr4uMNZma0ey4f5lgLrkB0aX0QMow==",
      "requires": {
        "has-flag": "^3.0.0"
      }
    },
    "tweetnacl": {
      "version": "1.0.1",
      "resolved": "https://registry.npmjs.org/tweetnacl/-/tweetnacl-1.0.1.tgz",
      "integrity": "sha512-kcoMoKTPYnoeS50tzoqjPY3Uv9axeuuFAZY9M/9zFnhoVvRfxz9K29IMPD7jGmt2c8SW7i3gT9WqDl2+nV7p4A=="
    },
    "wonka": {
      "version": "1.4.4",
      "resolved": "https://registry.npmjs.org/wonka/-/wonka-1.4.4.tgz",
      "integrity": "sha512-Ogjp2Hc+XhYx8ObUbetEtugAN3FmFKUiKdy3me3XsCfcCVOKIuqEXZDplz/x8/jh2dPyKcVQ8zSi9Li2eeitvw==",
      "requires": {
        "bs-rebel": "^0.2.3"
      }
    },
    "ws": {
      "version": "6.1.3",
      "resolved": "https://registry.npmjs.org/ws/-/ws-6.1.3.tgz",
      "integrity": "sha512-tbSxiT+qJI223AP4iLfQbkbxkwdFcneYinM2+x46Gx2wgvbaOMO36czfdfVUBRTHvzAMRhDd98sA5d/BuWbQdg==",
      "requires": {
        "async-limiter": "~1.0.0"
      }
    },
    "yauzl": {
      "version": "2.10.0",
      "resolved": "https://registry.npmjs.org/yauzl/-/yauzl-2.10.0.tgz",
      "integrity": "sha1-x+sXyT4RLLEIb6bY5R+wZnt5pfk=",
      "requires": {
        "buffer-crc32": "~0.2.3",
        "fd-slicer": "~1.1.0"
      }
    },
    "zlib-sync": {
      "version": "0.1.4",
      "resolved": "https://registry.npmjs.org/zlib-sync/-/zlib-sync-0.1.4.tgz",
      "integrity": "sha512-DRy+RONKzy/J6skNmq8ZBXtVAIoB4qbun+FCChlSlEvF7s9LJ0wzUXjVwl4tQ/jYT8V+LPzCg/sTcRj4E0g0fQ==",
      "requires": {
        "nan": "^2.8.0"
      }
    }
  }
}

File addition: package.json (----------)

[2.2]

{
  "name": "discopotty",
  "version": "0.1.0",
  "scripts": {
    "clean": "bsb -clean-world",
    "build": "bsb -make-world",
    "watch": "bsb -make-world -w"
  },
  "keywords": [
    "BuckleScript"
  ],
  "author": "quartz55",
  "license": "MIT",
  "devDependencies": {
    "bs-platform": "^4.0.18"
  },
  "dependencies": {
    "@discordjs/uws": "^11.149.1",
    "@quartz55/relog": "github:quartz55/relog#master",
    "bs-fluture": "^0.4.1",
    "discord.js": "github:discordjs/discord.js#master",
    "erlpack": "github:discordapp/erlpack",
    "fluture": "^10.3.1",
    "let-anything": "^1.0.3",
    "node-opus": "^0.3.1",
    "rationale": "^0.1.10",
    "sodium": "^3.0.2",
    "wonka": "^1.4.4",
    "zlib-sync": "^0.1.4"
  }
}

File addition: src (d--x------)
[2.2]

File addition: Bot.re (----------)

[0.15988]

module Future = BsFluture;
module Log =
  Relog.Make({
    let namespace = "Bot";
  });
type role =
  | Admin
  | Normie
  | Bot;
let role_of_user = user =>
  switch (user |> Discord.User.bot, user |> Discord.User.username) {
  | (true, _) => Bot
  | (false, "quartz") => Admin
  | _ => Normie
  };
let parse_message = msg =>
  switch (msg |> Discord.Message.author |> role_of_user) {
  | Bot => None
  | _ => None
  };
let log_msg = msg => {
  Discord.(
    Log.debug(m => {
      let author = msg |> Message.author;
      let channel = msg |> Message.channel;
      let content = msg |> Message.content;
      let channelName =
        switch (channel |> Channel.classify) {
        | Channel.DM(_) => "DM"
        | Channel.Group(_) => "Group DM"
        | Channel.Text(textChannel) =>
          (textChannel |> TextChannel.guild |> Guild.name)
          ++ " #"
          ++ TextChannel.name(textChannel)
        | Channel.Voice(_) => "Voice"
        };
      m(
        "Message: @[%s:@]@[@@%s#%s>@]@[%s@]",
        channelName,
        author |> Discord.User.username,
        "admin",
        content,
      );
    })
  );
};
let handle_message = msg => {
  log_msg(msg);
};
[@bs.module "fs"] [@bs.val]
external read_file_sync: (string, Js.t({..})) => string = "readFileSync";
let get_token = () => {
  Some(
    read_file_sync("./token.txt", {"encoding": "utf8"}) |> Js.String.trim,
  );
};
let main = () => {
  Relog.setReporter(
    Relog.format_reporter(~level=Relog.Level.Debug, ~color=true, ()),
  );
  module Client = Discord.Client;
  let client = Client.make();
  let events = client |> Client.listen |> Wonka.share;
  events
  |> Wonka.forEach((. evt) =>
       switch (evt) {
       | Client.Ready =>
         let user =
           client
           |> Client.user
           |> Rationale.Option.toExn("Bot has no user assigned");
         Log.info(m => m("Bot is ready"));
       | Client.Message(msg) => handle_message(msg)
       }
     );
  let token =
    get_token() |> Rationale.Option.toExn("Couldn't find token.txt file");
  let%Future _ = client |> Discord.Client.login(token);
  Future.resolve();
};
main() |> Future.fork(_ => (), _ => ());

File addition: Command.re (----------)

[0.15988]

module L =
  Relog.Make({
    let namespace = "Command";
  });
module Info = {
  type pos_kind = {
    start: int,
    len: option(int),
  };
  let pos = (~start, ~len) => {start, len};
  let pos_start = p => p.start;
  let pos_len = p => p.len;
  type arg = {
    id: int,
    absent: unit,
    pos: pos_kind,
  };
  module Arg = {
    type t = arg;
    let compare = (a0, a1) => compare(a0.id, a1.id);
  };
  module Args = Set.Make(Arg);
  type args = Args.t;
  type term_info = {name: string};
  type term = {
    info: term_info,
    args,
  };
  let term_add_args = (args, t) => {...t, args: Args.union(args, t.args)};
  type eval = {
    term,
    main: term,
    choices: list(term),
  };
  let eval = (~term, ~main, ~choices) => {term, main, choices};
};
module Arg = {
  type parser('a) = string => Belt.Result.t('a, string);
  type conv('a) = parser('a);
  let conv = parse => parse;
  let (&) = (f, x) => f(x);
  let pos = (k, parse, v, a) => {
    ();
  };
  let value = a => a;
};
module Runner = {
  type t;
  let parse_str = (~prefix="~", input) => {
    let sub_str = (s0, s1) => {
      let len = String.length(s1);
      String.sub(s0, len, String.length(s0) - len);
    };
    switch (Js.String.(startsWith(prefix, prefix) && trim(input) != prefix)) {
    | false => None
    | true =>
      let cmd = sub_str(input, prefix);
      switch (String.index(cmd, ' ')) {
      | (-1) => Some((cmd, []))
      | first_space =>
        let re = [%bs.re {|/(?:"(.+?)" |'(.+?)' |(.+?) )/|}];
        let rec p' = (args, to_parse) => {
          switch (Js.Re.exec(to_parse, re)) {
          | None => args |> List.rev
          | Some(res) =>
            let res =
              res |> Js.Re.captures |> Array.map(Js.Nullable.toOption);
            switch (res) {
            | [|Some(m), _, _, Some(arg)|]
            | [|Some(m), Some(arg), _, _|]
            | [|Some(m), _, Some(arg), _|] =>
              let to_parse = sub_str(to_parse, m);
              p'([arg, ...args], to_parse);
            | _ => failwith("Wat?")
            };
          };
        };
        let args =
          p'(
            [],
            String.sub(
              cmd,
              first_space + 1,
              String.length(cmd) - first_space - 1,
            )
            ++ " ",
          );
        Some((String.sub(cmd, 0, first_space), args));
      };
    };
  };
};
module Term = {
  type parser('a) =
    (Info.eval, Runner.t) =>
    ('a, [ | `Parse(string) | `Error(bool, string) | `Help(string)]);
  type t('a) = (Info.args, parser('a));
  let const = v => (Info.Args.empty, (_, _) => Belt.Result.Ok(v));
  let eval = (~raw, (al, f), ti) => {
    let term = Info.term_add_args(ti, al);
    let ei = Info.eval(~term, ~main=term, ~choices=[]);
    let (cmd, args) = Runner.parse_str(raw) |> Belt.Option.getExn;
    ();
  };
};

File addition: Discord (d--x------)
[0.15988]

File addition: Discord.re (----------)

[0.21109]

module Future = BsFluture;
include Discord_types;
module Collection = Discord_collection;
module Client = Discord_client;
module User = Discord_user;
module Channel = Discord_channel;
module TextChannel = Discord_textchannel;
module Guild = Discord_guild;
module Message = Discord_message;

File addition: Discord_channel.re (----------)

[0.21109]

module Future = BsFluture;
open Discord_types;
type t = channel;
type classifiedChannel =
  | DM(dmChannel)
  | Group(groupDMChannel)
  | Text(textChannel)
  | Voice(voiceChannel);
[@bs.get] external client: t => client = "";
[@bs.get] external created_at: t => Js.Date.t = "createdAt";
[@bs.get] external created_ts: t => float = "createdTimestamp";
[@bs.get] external id: t => snowflake = "";
/* type: 'dm' | 'group' | 'text' | 'voice', */
[@bs.get] external channel_type: t => string = "type";
[@bs.send] external delete: t => Js.Promise.t(t) = "";
let classify = t =>
  switch (t |> channel_type) {
  | "dm" => DM(Obj.magic(t))
  | "group" => Group(Obj.magic(t))
  | "text" => Text(Obj.magic(t))
  | "voice" => Voice(Obj.magic(t))
  | x => failwith("Unknown channelType " ++ x)
  };

File addition: Discord_client.re (----------)

[0.21109]

module Future = BsFluture;
open Discord_types;
type t = client;
[@bs.module "discord.js"] [@bs.new] external make: unit => t = "Client";
[@bs.send.pipe: t] external login: string => Js.Promise.t(string) = "";
let login = (token, t) => Future.tryP(() => t |> login(token));
[@bs.get] [@bs.return nullable] external user: t => option(user) = "";
[@bs.get]
external voice_conns: t => collection(snowflake, voice_conn) =
  "voiceConnections";
[@bs.get]
external broadcasts: t => collection(snowflake, voice_boradcast) = "";
/* Events  */
[@bs.send.pipe: t] external _on: (string, 'cb) => t = "on";
[@bs.send.pipe: t] external _off: (string, 'handler) => t = "off";
type event =
  | Ready
  | Message(message);
let listen = t => {
  Wonka.Types.(
    Wonka.make((. {next, complete}: observerT(event)) => {
      let h_ready = () => next(Ready);
      let h_msg = msg => next(Message(msg));
      t |> _on("ready", h_ready) |> _on("message", h_msg) |> ignore;
      (.) => {
        t |> _off("ready", h_ready) |> _off("message", h_msg) |> ignore;
      };
    })
  );
};

File addition: Discord_collection.re (----------)

[0.21109]

open Discord_types;
module Collection = {
  type t('k, 'v) = collection('k, 'v);
};

File addition: Discord_guild.re (----------)

[0.21109]

open Discord_types;
type t = guild;
[@bs.get] external name: t => string = "";

File addition: Discord_message.re (----------)

[0.21109]

open Discord_types;
type t = message;
[@bs.get] external author: t => user = "";
[@bs.get] external channel: t => channel = "";
[@bs.get] external content: t => string = "";
[@bs.get] external id: t => snowflake = "";

File addition: Discord_textchannel.re (----------)

[0.21109]

open Discord_types;
type t = textChannel;
[@bs.get] external guild: t => guild = "";
[@bs.get] external name: t => string = "";

File addition: Discord_types.re (----------)

[0.21109]

type snowflake;
type collection('k, 'v);
type message;
type guild;
type client;
type client_user;
type channel;
type user;
type voice_conn;
type voice_boradcast;
type dmChannel;
type groupDMChannel;
type textChannel;
type voiceChannel;

File addition: Discord_user.re (----------)

[0.21109]

open Discord_types;
type t = user;
[@bs.get] external bot: t => bool = "";
[@bs.get] external username: t => string = "";

Initial commit

Dependencies

In channels

Change contents

File addition: .gitignore (----------)

File addition: README.md (----------)

File addition: bsconfig.json (----------)

File addition: package-lock.json (----------)

File addition: package.json (----------)

File addition: src (d--x------)

File addition: Bot.re (----------)

File addition: Command.re (----------)

File addition: Discord (d--x------)

File addition: Discord.re (----------)

File addition: Discord_channel.re (----------)

File addition: Discord_client.re (----------)

File addition: Discord_collection.re (----------)

File addition: Discord_guild.re (----------)

File addition: Discord_message.re (----------)

File addition: Discord_textchannel.re (----------)

File addition: Discord_types.re (----------)

File addition: Discord_user.re (----------)