Build tools in Elm

.gitignore

@@ -7,3 +7,4 @@ instance/**/*.js
 run_with_credentials.sh
 file
 users.db
+bootstrap.js

bootstrapper/Bootstrapper.elm

@@ -0,0 +1,22 @@
+module Bootstrapper where
+{-|
+This is a very naughty module indeed.
+
+Swap out the two arguments to bootstrap with the name of your module
+and the name of the output file.
+
+That output file will then be ran whenever you call this script.
+
+This script is also self-bootstrapping, simply run node on it and it will
+handle the rest.
+
+-}
+import Native.Bootstrapper
+
+bootstrap : String -> String -> ()
+bootstrap =
+    Native.Bootstrapper.bootstrap
+
+port run : ()
+port run =
+    bootstrap "instance/server/Main" "instance/server/main.js"

bootstrapper/Native/Bootstrapper.js

@@ -0,0 +1,55 @@
+
+var bootstrap = function(fs, exec, compiler){
+    var compile = function(file, outFile, onClose){
+        compiler.compile([file + '.elm'], {
+            output: outFile,
+            yes: true
+        }).on('close', onClose);
+    };
+
+    return function(filename, output){
+        console.log("here");
+        compile(filename, output, function(){
+            var dirIndex = filename.lastIndexOf('/');
+            var lastFileName = filename.substr(dirIndex + 1);
+
+            fs.appendFileSync(output, "\nElm.worker(Elm." + lastFileName + ");")
+            var child = exec('node ' + output);
+
+            child.stdout.on('data', console.log);
+            child.stderr.on('data', console.error);
+            child.on('close', function(code) {
+                console.log('closing code: ' + code);
+            });
+        });
+    };
+};
+
+var make = function make(localRuntime) {
+    localRuntime.Native = localRuntime.Native || {};
+    localRuntime.Native.Bootstrapper = localRuntime.Native.Bootstrapper || {};
+
+    if (localRuntime.Native.Bootstrapper.values) {
+        return localRuntime.Native.Bootstrapper.values;
+    }
+    var fs = require('fs');
+    var exec = require('child_process').exec;
+    var compiler = require('node-elm-compiler');
+
+
+    return {
+        bootstrap: F2(bootstrap(fs, exec, compiler))
+    };
+};
+
+Elm.Native.Bootstrapper = {};
+Elm.Native.Bootstrapper.make = make;
+
+if (typeof window === "undefined") {
+    window = global;
+}
+
+setTimeout(function() {
+    console.log("starting elm..");
+    Elm.worker(Elm.Bootstrapper);
+}, 1000);

bootstrapper/elm-package.json

@@ -0,0 +1,15 @@
+{
+    "version": "1.0.0",
+    "summary": "helpful summary of your project, less than 80 characters",
+    "repository": "https://github.com/user/project.git",
+    "license": "BSD3",
+    "source-directories": [
+        "."
+    ],
+    "exposed-modules": [],
+    "native-modules": true,
+    "dependencies": {
+        "elm-lang/core": "3.0.0 <= v < 4.0.0"
+    },
+    "elm-version": "0.16.0 <= v < 0.17.0"
+}