Merge pull request #40 from tidalcycles/compose

Compose

packages/core/package-lock.json

@@ -6,12 +6,11 @@
 	"packages": {
 		"": {
 			"name": "@strudel.cycles/core",
-			"version": "0.0.1",
+			"version": "0.0.3",
 			"license": "GPL-3.0-or-later",
 			"dependencies": {
 				"bjork": "^0.0.1",
-				"fraction.js": "^4.2.0",
-				"ramda": "^0.28.0"
+				"fraction.js": "^4.2.0"
 			},
 			"devDependencies": {
 				"mocha": "^9.2.2"
@@ -733,15 +732,6 @@
 				"url": "https://github.com/sponsors/jonschlinkert"
 			}
 		},
-		"node_modules/ramda": {
-			"version": "0.28.0",
-			"resolved": "https://registry.npmjs.org/ramda/-/ramda-0.28.0.tgz",
-			"integrity": "sha512-9QnLuG/kPVgWvMQ4aODhsBUFKOUmnbUnsSXACv+NCQZcHbeb+v8Lodp8OVxtRULN1/xOyYLLaL6npE6dMq5QTA==",
-			"funding": {
-				"type": "opencollective",
-				"url": "https://opencollective.com/ramda"
-			}
-		},
 		"node_modules/randombytes": {
 			"version": "2.1.0",
 			"resolved": "https://registry.npmjs.org/randombytes/-/randombytes-2.1.0.tgz",
@@ -1485,11 +1475,6 @@
 			"integrity": "sha512-JU3teHTNjmE2VCGFzuY8EXzCDVwEqB2a8fsIvwaStHhAWJEeVd1o1QD80CU6+ZdEXXSLbSsuLwJjkCBWqRQUVA==",
 			"dev": true
 		},
-		"ramda": {
-			"version": "0.28.0",
-			"resolved": "https://registry.npmjs.org/ramda/-/ramda-0.28.0.tgz",
-			"integrity": "sha512-9QnLuG/kPVgWvMQ4aODhsBUFKOUmnbUnsSXACv+NCQZcHbeb+v8Lodp8OVxtRULN1/xOyYLLaL6npE6dMq5QTA=="
-		},
 		"randombytes": {
 			"version": "2.1.0",
 			"resolved": "https://registry.npmjs.org/randombytes/-/randombytes-2.1.0.tgz",

packages/core/package.json

@@ -26,8 +26,7 @@
   "homepage": "https://strudel.tidalcycles.org",
   "dependencies": {
     "bjork": "^0.0.1",
-    "fraction.js": "^4.2.0",
-    "ramda": "^0.28.0"
+    "fraction.js": "^4.2.0"
   },
   "devDependencies": {
     "mocha": "^9.2.2"

packages/core/strudel.mjs

@@ -1,6 +1,5 @@
 import Fraction from './fraction.mjs';
-import { compose } from 'ramda'; // will remove this as soon as compose is implemented here
-import { isNote, toMidi } from './util.mjs';
+import { isNote, toMidi, compose } from './util.mjs';
 
 // Removes 'None' values from given list
 const removeUndefineds = (xs) => xs.filter((x) => x != undefined);

packages/core/test/util.test.mjs

@@ -1,5 +1,5 @@
 import { strict as assert } from 'assert';
-import { isNote, tokenizeNote, toMidi, mod } from '../util.mjs';
+import { isNote, tokenizeNote, toMidi, mod, compose } from '../util.mjs';
 
 describe('isNote', () => {
   it('should recognize notes without accidentals', () => {
@@ -83,3 +83,16 @@ describe('mod', () => {
     assert.equal(mod(-3, 2), 1);
   });
 });
+
+describe('compose', () => {
+  const add1 = (a) => a + 1;
+  it('should compose', () => {
+    assert.equal(compose(add1, add1)(0), 2);
+    assert.equal(compose(add1)(0), 1);
+  });
+  const addS = (s) => (a) => a + s;
+  it('should compose left to right', () => {
+    assert.equal(compose(addS('a'), addS('b'))(''), 'ab');
+    assert.equal(compose(addS('a'), addS('b'))('x'), 'xab');
+  });
+});

packages/core/util.mjs

@@ -42,3 +42,14 @@ export const getPlayableNoteValue = (event) => {
 
 // rotate array by n steps (to the left)
 export const rotate = (arr, n) => arr.slice(n).concat(arr.slice(0, n));
+
+export const pipe = (...funcs) => {
+  return funcs.reduce(
+    (f, g) =>
+      (...args) =>
+        f(g(...args)),
+    (x) => x,
+  );
+};
+
+export const compose = (...funcs) => pipe(...funcs.reverse());

packages/core/value.mjs

@@ -1,4 +1,4 @@
-import { curry } from 'ramda';
+import { curry } from './strudel.mjs';
 
 function unionWithObj(a, b, func) {
   const common = Object.keys(a).filter((k) => Object.keys(b).includes(k));

packages/eval/package-lock.json

@@ -6,7 +6,7 @@
 	"packages": {
 		"": {
 			"name": "@strudel.cycles/eval",
-			"version": "0.0.1",
+			"version": "0.0.3",
 			"license": "GPL-3.0-or-later",
 			"dependencies": {
 				"estraverse": "^5.3.0",

packages/midi/package-lock.json

@@ -6,7 +6,7 @@
 	"packages": {
 		"": {
 			"name": "@strudel.cycles/midi",
-			"version": "0.0.1",
+			"version": "0.0.4",
 			"license": "GPL-3.0-or-later",
 			"dependencies": {
 				"tone": "^14.7.77",

packages/tone/package-lock.json

@@ -6,7 +6,7 @@
 	"packages": {
 		"": {
 			"name": "@strudel.cycles/tone",
-			"version": "0.0.1",
+			"version": "0.0.4",
 			"license": "GPL-3.0-or-later",
 			"dependencies": {
 				"@tonejs/piano": "^0.2.1",