add interop, defn, random

desktop/sources/scripts/library.js

@@ -265,6 +265,17 @@ function Library (ronin) {
 
   this.TWO_PI = Math.PI * 2
 
+  this.random = (...args) => {
+    if (args.length >= 2) {
+      // (random start end)
+      return args[0] + Math.random() * (args[1] - args[0])
+    } else if (args.length === 1) {
+      // (random max)
+      return Math.random() * args[0]
+    } 
+    return Math.random()
+  }
+
   // Generics
 
   this.echo = (...args) => {
@@ -299,4 +310,8 @@ function Library (ronin) {
   // Livecoding
 
   this.time = Date.now
+
+  // javascript interop
+  this.js = window
+
 }

desktop/sources/scripts/lisp.js

@@ -38,6 +38,17 @@ function Lisp (input, lib) {
       context.scope[input[1].value] = interpret(input[2], context)
       return input[2]
     },
+    defn: function(input, context) {
+      context.scope[input[1].value] = function() {
+        const lambdaArguments = arguments
+        const lambdaScope = input[2].reduce(function (acc, x, i) {
+          acc[x.value] = lambdaArguments[i]
+          return acc
+        }, {})
+
+        return interpret(input[3], new Context(lambdaScope, context))
+      }
+    },
     lambda: function (input, context) {
       return function () {
         const lambdaArguments = arguments