Strudelize Hazel

[disconcision]

This wraps some Strudel functions in order to create audio in Hazel. Right now, it wraps only the Note function, which takes a string corresponding to a Strudel/TidalCycles cycle. This is an eDSL string which can take a space-separated list of notes (a-g), and a variety of other notations. Everything in the string is played over a second, so the more notes the faster it is.

Should be functional now on the build server; see docs/sounds:

The plan is to wrap a few more functions, defunctionalizing to create a simple ADT corresponding to Strudel code. This could be used as a basis for a future more elaborate eDSL using projectors/livelits.

Right now, audio plays whenever the program evaluates to a Note. It can be stopped via a button, and the playing audio restarts every time a valid Strudel program is returned, which is different than the last valid Strudel program for which playing began

[7h3kk1d]

☕

[disconcision]

@7h3kk1d did you look into the below style of binding js fns when doing the ninjakeys thing? claude suggested it but i couldn't get it to work properly. interestingly, different errors on dev and release. in dev, it was trying to access the fns on an object called runtime, eg erroring on calling runtime.play. in release, it had a more specific error about the method not being implemented

/* First, we need to declare the external JavaScript functions */
[@bs.val] external initStrudel: unit => unit = "initStrudel";
[@bs.val] external hush: unit => unit = "hush";

/* For the `note` function, we'll need to create a wrapper */
[@bs.val] external noteRaw: string => 'a = "note";

/* For `jux` and `rev`, we'll create bindings */
[@bs.send] external jux: ('a, 'a => 'a) => 'a = "jux";
[@bs.val] external rev: 'a => 'a = "rev";

/* For `play`, we'll create a binding */
[@bs.send] external play: 'a => unit = "play";

[7h3kk1d]

@7h3kk1d did you look into the below style of binding js fns when doing the ninjakeys thing? claude suggested it but i couldn't get it to work properly. interestingly, different errors on dev and release. in dev, it was trying to access the fns on an object called runtime, eg erroring on calling runtime.play. in release, it had a more specific error about the method not being implemented

/* First, we need to declare the external JavaScript functions */
[@bs.val] external initStrudel: unit => unit = "initStrudel";
[@bs.val] external hush: unit => unit = "hush";

/* For the `note` function, we'll need to create a wrapper */
[@bs.val] external noteRaw: string => 'a = "note";

/* For `jux` and `rev`, we'll create bindings */
[@bs.send] external jux: ('a, 'a => 'a) => 'a = "jux";
[@bs.val] external rev: 'a => 'a = "rev";

/* For `play`, we'll create a binding */
[@bs.send] external play: 'a => unit = "play";

I don't think I tried the bucklescript annotation. There was another syntax that I couldn't use because my function was called open which is a keyword in ocaml. Let me find it.

[7h3kk1d]

Suggested change

	let initStrudel: unit => unit =
	() => {
	let initStrudelFn = Js.Unsafe.js_expr("window.initStrudel");
	Js.Unsafe.fun_call(initStrudelFn, [||]);
	};
	let hush: unit => unit =
	() => {
	let hushFn = Js.Unsafe.js_expr("window.hush");
	Js.Unsafe.fun_call(hushFn, [||]);
	};
	let note: string => Js.Unsafe.any =
	pattern => {
	let noteFn = Js.Unsafe.js_expr("window.note");
	Js.Unsafe.fun_call(noteFn, [|Js.Unsafe.inject(Js.string(pattern))|]);
	};
	let rev: Js.Unsafe.any => Js.Unsafe.any =
	pattern => {
	let revFn = Js.Unsafe.js_expr("window.rev");
	Js.Unsafe.fun_call(revFn, [|Js.Unsafe.inject(pattern)|]);
	};
	let jux: (Js.Unsafe.any, Js.Unsafe.any => Js.Unsafe.any) => Js.Unsafe.any =
	(pattern, f) => {
	Js.Unsafe.meth_call(pattern, "jux", [|Js.Unsafe.inject(f)|]);
	};
	let play: Js.Unsafe.any => unit =
	pattern => {
	Js.Unsafe.meth_call(pattern, "play", [||]);
	};
	/* Wrapper function to chain methods */
	let playNote: string => unit =
	pattern => {
	let n = note(pattern);
	let j = jux(n, rev);
	play(j);
	};
	/* Example usage function */
	let exampleUse: unit => unit =
	() => {
	initStrudel();
	playNote("<c a f e>(3,8)");
	};
	/* Function to stop the music */
	let stopMusic: unit => unit = () => hush();
	/* Function to initialize Strudel when the DOM is loaded */
	let initOnLoad: unit => unit =
	() => {
	let addEventListenerFn = Js.Unsafe.js_expr("window.addEventListener");
	Js.Unsafe.fun_call(
	addEventListenerFn,
	[|
	Js.Unsafe.inject(Js.string("DOMContentLoaded")),
	Js.Unsafe.inject(Js.wrap_callback(_ => initStrudel())),
	|],
	);
	};
	let initStrudel: unit => unit =
	() => Js.Unsafe.coerce(Dom_html.window)##initStrudel();
	let hush: unit => unit =
	() => {
	Js.Unsafe.coerce(Dom_html.window)##hush();
	};
	let note: string => Js.Unsafe.any =
	pattern => {
	Js.Unsafe.coerce(Dom_html.window)##note(Js.string(pattern));
	};
	let rev: Js.Unsafe.any => Js.Unsafe.any =
	pattern => {
	Js.Unsafe.coerce(Dom_html.window)##rev(pattern);
	};
	let jux: (Js.Unsafe.any, Js.Unsafe.any => Js.Unsafe.any) => Js.Unsafe.any =
	(pattern, f) => {
	Js.Unsafe.coerce(pattern)##jux(f);
	};
	let play: Js.Unsafe.any => unit =
	pattern => {
	Js.Unsafe.coerce(pattern)##play();
	};
	/* Wrapper function to chain methods */
	let playNote: string => unit =
	pattern => {
	let n = note(pattern);
	let j = jux(n, rev);
	play(j);
	};
	/* Example usage function */
	let exampleUse: unit => unit =
	() => {
	initStrudel();
	playNote("<c a f e>(3,8)");
	};
	/* Function to stop the music */
	let stopMusic: unit => unit = () => hush();
	/* Function to initialize Strudel when the DOM is loaded */
	let initOnLoad: unit => Dom_events.listener =
	() => {
	Dom_events.listen(
	Dom_html.window,
	Dom_events.Typ.domContentLoaded,
	(_: Js.t(Dom_html.window), _: Js.t(Dom_html.event)) => {
	initStrudel();
	false; // I don't think this does anything.
	},
	);
	};

[7h3kk1d]

The false being returned on the Dom_events.listen looks like it would be used for stop propagation but I looked through the js_of_ocaml implementation and I don't see where this is happening.

[7h3kk1d]

I take it back https://github.com/ocsigen/js_of_ocaml/blob/ea51f5e6e1c54a13eb917d081c51175814b8b58b/lib/js_of_ocaml/dom_events.ml#L32 the newest version calls full_handler which does prevent_default so probably set that to true

[codecov]

Codecov Report

❌ Patch coverage is 11.46366% with 865 lines in your changes missing coverage. Please review.
✅ Project coverage is 48.94%. Comparing base (cadbb74) to head (c9847e4).
⚠️ Report is 1 commits behind head on dev.

Files with missing lines	Patch %	Lines
src/haz3lcore/SoundUtil.re	0.00%	211 Missing ⚠️
...c/haz3lcore/projectors/implementations/KnobProj.re	4.54%	105 Missing ⚠️
.../haz3lcore/projectors/implementations/XYPadProj.re	4.76%	100 Missing ⚠️
src/util/Strudel.re	0.00%	89 Missing ⚠️
...lcore/projectors/implementations/RhythmGridProj.re	9.89%	82 Missing ⚠️
...lcore/projectors/implementations/NotePickerProj.re	24.00%	76 Missing ⚠️
...haz3lcore/projectors/implementations/PlayerProj.re	3.22%	60 Missing ⚠️
src/haz3lcore/ProbePerform.re	0.00%	40 Missing ⚠️
...core/projectors/implementations/ScalePickerProj.re	27.27%	32 Missing ⚠️
...ore/projectors/implementations/SamplePickerProj.re	35.71%	27 Missing ⚠️
... and 8 more

Additional details and impacted files

@@            Coverage Diff             @@
##              dev    #1395      +/-   ##
==========================================
- Coverage   50.37%   48.94%   -1.43%     
==========================================
  Files         230      239       +9     
  Lines       25365    26329     +964     
==========================================
+ Hits        12777    12888     +111     
- Misses      12588    13441     +853     

Files with missing lines	Coverage Δ
src/haz3lcore/projectors/ProjectorInit.re	79.31% <100.00%> (+6.58%)	⬆️
src/language/builtins/BuiltinsADT.re	98.59% <100.00%> (+0.28%)	⬆️
src/web/app/common/RefractorView.re	0.00% <ø> (ø)
src/web/init/Init.re	57.14% <ø> (ø)
src/haz3lcore/zipper/action/Action.re	0.00% <0.00%> (ø)
src/language/ProjectorKind.re	92.98% <95.45%> (+4.09%)	⬆️
src/web/app/editors/result/EvalResult.re	1.27% <0.00%> (ø)
src/haz3lcore/projectors/ProjectorBase.re	5.88% <0.00%> (-0.12%)	⬇️
src/web/Keyboard.re	0.00% <0.00%> (ø)
src/util/ProjectorShape.re	21.05% <0.00%> (-5.62%)	⬇️
... and 12 more

... and 11 files with indirect coverage changes

🚀 New features to boost your workflow:

• ❄️ Test Analytics: Detect flaky tests, report on failures, and find test suite problems.
• 📦 JS Bundle Analysis: Save yourself from yourself by tracking and limiting bundle sizes in JS merges.