From 409889e492b9ea4ecaeb03bfe7461d9ebdc52192 Mon Sep 17 00:00:00 2001
From: electron-rare <108685187+electron-rare@users.noreply.github.com>
Date: Mon, 4 May 2026 21:15:56 +0200
Subject: [PATCH] Auto-load palette/chords_progressions.scd in
 setupAll/Live/ensureLive

~check.value reported "[chords] [--] non charge (optionnel) :
[progDetroit, progTrance, progDnB, chordsToMelody]" because
palette/chords_progressions.scd was never auto-loaded -- only
referenced manually from examples/12_chord_progressions.scd and
examples/13_world_ethno.scd.

Added ~loadAllBlocks (file is multi-block, TLB:36) at:
- liveSetup (inside ~setupAll)
- ~setupLive
- ~ensureLive (with isNil guard for idempotence)

After this, ~progDetroit/~progTrance/~progDnB/~progHijaz/...
~progCommon/~progEpic/~progBassline/~progPower/~chordsToMelody/
~chordsToHarmony are all available right after CHARGER TOUT.

Tests: e2e_04 SKIPped in run_all.sh due to a pre-existing intermittent
runner issue (passes in isolation: 38 tests 0 failed). Other 9/10 OK.
---
 setup.scd | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/setup.scd b/setup.scd
index f860dd2..4c12911 100644
--- a/setup.scd
+++ b/setup.scd
@@ -505,6 +505,7 @@
         ~loadFirstBlock.(~base ++ "live/loops.scd");
         ~loadFirstBlock.(~base ++ "palette/rhythm/fills.scd");
         ~loadAllBlocks.(~base ++ "palette/rhythm/sequences.scd");
+        ~loadAllBlocks.(~base ++ "palette/chords_progressions.scd");
         ~loadFirstBlock.(~base ++ "control/jump.scd");
 
         // 5 wrappers API live (~kk / ~mm / ~ff / ~cc / ~p) -- 1er bloc
@@ -575,6 +576,7 @@
         ~loadFirstBlock.(~base ++ "live/loops.scd");
         ~loadFirstBlock.(~base ++ "palette/rhythm/fills.scd");
         ~loadAllBlocks.(~base ++ "palette/rhythm/sequences.scd");
+        ~loadAllBlocks.(~base ++ "palette/chords_progressions.scd");
         ~loadFirstBlock.(~base ++ "control/jump.scd");
         // 5 wrappers API live (~kk / ~mm / ~ff / ~cc / ~p)
         ~loadFirstBlock.(~base ++ "live/kicks.scd");
@@ -640,6 +642,11 @@
             ~loadFirstBlock.(~base ++ "control/jump.scd");
             loaded = loaded + 1;
         };
+        if (~progDetroit.isNil or: { ~chordsToMelody.isNil }) {
+            "ensure : chords_progressions.scd".postln;
+            ~loadAllBlocks.(~base ++ "palette/chords_progressions.scd");
+            loaded = loaded + 1;
+        };
         // 5 wrappers API live (chacun expose un dict + des wrappers env)
         if (~kk.isNil) {
             "ensure : live/kicks.scd".postln;