{"audio_adapter.lua":"-- audio_adapter.lua\n-- Platform-agnostic audio abstraction layer\n--\n-- This module provides a unified interface for audio across different platforms.\n-- Platform-specific implementations should conform to this interface.\n\nlocal AudioAdapter = {}\n\nlocal function createNullSynth()\n local function noop()\n end\n\n return {\n setVolume = noop,\n setADSR = noop,\n playNote = noop,\n playLoop = noop,\n stop = noop\n }\nend\n\n--[[\n Creates a new audio adapter instance\n\n @param implementation table - Platform-specific implementation with the following methods:\n - init() - Initialize audio system\n - getVolume() - Get master volume\n - setVolume(volume) - Set master volume\n - synthNew(...) - Create a new synth instance\n - sampleNew(...) - Create a new sample buffer\n - micStartListening() - Start microphone input\n - micRecordToSample(buffer, callback) - Record microphone input to a sample\n - micStopListening() - Stop microphone input\n - micStopRecording() - Stop recording\n - micListInputDevices() - List available microphone input devices\n - micSetInputDevice(index) - Select microphone input device\n\n @return table - Audio adapter instance\n]]\nfunction AudioAdapter.new(implementation)\n local self = {\n impl = implementation\n }\n\n -- Initialize the platform-specific implementation\n if self.impl.init then\n self.impl.init()\n end\n\n -- Wave constants\n self.kWaveSine = self.impl.kWaveSine\n self.kWaveTriangle = self.impl.kWaveTriangle\n self.kWaveSquare = self.impl.kWaveSquare\n self.kWaveSawtooth = self.impl.kWaveSawtooth\n self.kWaveWarm = self.impl.kWaveWarm or self.impl.kWaveTriangle or self.impl.kWaveSine\n self.kWaveVocal = self.impl.kWaveVocal or self.kWaveWarm\n self.kWaveFlute = self.impl.kWaveFlute or self.impl.kWaveSine or self.kWaveVocal\n\n --[[\n Get the master volume\n @return number - Current volume (0-1)\n ]]\n function self.getVolume()\n if self.impl.getVolume then\n return self.impl.getVolume()\n end\n return 1\n end\n\n --[[\n Set the master volume\n @param volume number - Volume level (0-1)\n ]]\n function self.setVolume(volume)\n if self.impl.setVolume then\n self.impl.setVolume(volume)\n end\n end\n\n -- Synth factory\n self.synth = {\n new = function(...)\n if self.impl.synthNew then\n local synth = self.impl.synthNew(...)\n if synth then\n return synth\n end\n end\n return createNullSynth()\n end\n }\n\n -- Sample factory\n self.sample = {\n new = function(...)\n if self.impl.sampleNew then\n return self.impl.sampleNew(...)\n end\n return nil\n end\n }\n\n -- Microphone input controls\n self.micinput = {\n startListening = function(...)\n if self.impl.micStartListening then\n return self.impl.micStartListening(...)\n end\n return false\n end,\n recordToSample = function(...)\n if self.impl.micRecordToSample then\n return self.impl.micRecordToSample(...)\n end\n return false\n end,\n stopListening = function(...)\n if self.impl.micStopListening then\n return self.impl.micStopListening(...)\n end\n end,\n stopRecording = function(...)\n if self.impl.micStopRecording then\n return self.impl.micStopRecording(...)\n end\n end,\n listInputDevices = function(...)\n if self.impl.micListInputDevices then\n return self.impl.micListInputDevices(...)\n end\n return {}\n end,\n setInputDevice = function(...)\n if self.impl.micSetInputDevice then\n return self.impl.micSetInputDevice(...)\n end\n return false\n end,\n }\n\n return self\nend\n\nreturn AudioAdapter\n","audio_export.lua":"local AudioExport = {}\n\nlocal SAMPLE_RATE = 44100\nlocal TWO_PI = 2 * math.pi\n\nlocal function int16LE(n)\n n = math.floor(n)\n if n < 0 then\n n = n + 65536\n end\n return string.char(n % 256, math.floor(n / 256) % 256)\nend\n\nlocal function int32LE(n)\n n = math.floor(n)\n if n < 0 then\n n = n + 4294967296\n end\n return string.char(\n n % 256,\n math.floor(n / 256) % 256,\n math.floor(n / 65536) % 256,\n math.floor(n / 16777216) % 256\n )\nend\n\nlocal function buildWavFromSamples(samples)\n local pcm = {}\n for i = 1, #samples do\n local sample = math.max(-32767, math.min(32767, math.floor(samples[i] * 32767)))\n pcm[i] = int16LE(sample)\n end\n\n local pcmData = table.concat(pcm)\n local dataSize = #pcmData\n return \"RIFF\" .. int32LE(36 + dataSize) .. \"WAVEfmt \" .. int32LE(16) ..\n int16LE(1) .. int16LE(1) .. int32LE(SAMPLE_RATE) ..\n int32LE(SAMPLE_RATE * 2) .. int16LE(2) .. int16LE(16) ..\n \"data\" .. int32LE(dataSize) .. pcmData\nend\n\nlocal function sineWave(phase)\n return math.sin(phase)\nend\n\nlocal function triangleWave(phase)\n local t = (phase / TWO_PI) % 1.0\n if t < 0.25 then\n return 4 * t\n elseif t < 0.75 then\n return 2 - 4 * t\n end\n return -4 + 4 * t\nend\n\nlocal function sawtoothWave(phase)\n return (math.sin(phase)\n + math.sin(phase * 2) * 0.5\n + math.sin(phase * 3) * 0.333\n + math.sin(phase * 4) * 0.25\n + math.sin(phase * 5) * 0.2\n + math.sin(phase * 6) * 0.167) * 0.5\nend\n\nlocal function warmWave(phase)\n return (math.sin(phase) * 0.70\n + math.sin(phase * 2) * 0.20\n + math.sin(phase * 3) * 0.075\n + math.sin(phase * 4) * 0.025) * 0.92\nend\n\nlocal function vocalWave(phase)\n return (math.sin(phase) * 0.50\n + math.sin(phase * 2) * 0.27\n + math.sin(phase * 3) * 0.16\n + math.sin(phase * 4) * 0.075\n + math.sin(phase * 5) * 0.03\n + math.sin(phase * 6) * 0.012) * 0.74\nend\n\nlocal function fluteWave(phase)\n return (math.sin(phase) * 0.82\n + math.sin(phase * 2) * 0.13\n + math.sin(phase * 3) * 0.035\n + math.sin(phase * 4) * 0.015) * 0.88\nend\n\nlocal function softClip(sample)\n return sample / (1.0 + math.abs(sample))\nend\n\nlocal WAVE_GENERATORS = {\n sine = sineWave,\n triangle = triangleWave,\n sawtooth = sawtoothWave,\n warm = warmWave,\n vocal = vocalWave,\n flute = fluteWave,\n}\n\nlocal function renderVoice(samples, startSample, durationSeconds, freq, amplitude, waveType, adsr)\n if amplitude <= 0 or durationSeconds <= 0 or not freq or freq <= 0 then\n return\n end\n\n local wave = WAVE_GENERATORS[waveType] or triangleWave\n local totalDuration = math.max(durationSeconds, 0.35) + adsr.r\n local totalSamples = math.max(1, math.floor(totalDuration * SAMPLE_RATE))\n local phaseInc = TWO_PI * freq / SAMPLE_RATE\n local phase = 0\n local phase2 = 0\n local phaseInc2 = TWO_PI * (freq * 1.00115) / SAMPLE_RATE\n local phase3 = math.pi * 0.37\n local phaseInc3 = TWO_PI * (freq * 0.99885) / SAMPLE_RATE\n local previousSample = 0\n local fadeSamples = math.max(1, math.floor(SAMPLE_RATE * 0.01))\n local isFlute = waveType == \"flute\"\n local vibPhase = 0\n local vibInc = TWO_PI * 5.0 / SAMPLE_RATE\n local vibDepth = 0.0038\n\n for i = 0, totalSamples - 1 do\n local t = i / SAMPLE_RATE\n local env\n if t < adsr.a then\n env = t / adsr.a\n elseif t < adsr.a + adsr.d then\n local dt = (t - adsr.a) / adsr.d\n local curve = (1.0 - dt) * (1.0 - dt)\n env = adsr.s + (1.0 - adsr.s) * curve\n elseif t < durationSeconds then\n env = adsr.s\n else\n local rt = math.min(1, (t - durationSeconds) / adsr.r)\n env = adsr.s * (1.0 - rt) * (1.0 - rt)\n end\n\n local remaining = totalSamples - i\n if remaining <= fadeSamples then\n env = env * (remaining / fadeSamples)\n end\n\n local sampleIndex = startSample + i + 1\n local osc\n if isFlute then\n local vibAmt = math.min(1.0, math.max(0.0, (t - adsr.a) / 0.22))\n local vib = vibAmt * vibDepth * math.sin(vibPhase)\n local tremolo = 1.0 + 0.018 * math.sin(vibPhase * 0.79)\n local breath = (math.random() - 0.5) * 0.018 * math.min(1.0, env * 1.8)\n osc = (wave(phase) * 0.82 + wave(phase2) * 0.12 + wave(phase3) * 0.06) * tremolo + breath\n phase = phase + phaseInc * (1.0 + vib)\n phase2 = phase2 + phaseInc2 * (1.0 + vib)\n phase3 = phase3 + phaseInc3 * (1.0 + vib)\n vibPhase = vibPhase + vibInc\n else\n osc = wave(phase) * 0.62 + wave(phase2) * 0.25 + wave(phase3) * 0.13\n phase = phase + phaseInc\n phase2 = phase2 + phaseInc2\n phase3 = phase3 + phaseInc3\n end\n local shaped = osc * amplitude * env\n shaped = previousSample * 0.18 + shaped * 0.82\n previousSample = shaped\n samples[sampleIndex] = (samples[sampleIndex] or 0) + softClip(shaped)\n end\nend\n\nlocal function getVelocity(stepIndex)\n if stepIndex % 4 == 1 then\n return 1.0\n elseif stepIndex % 4 == 3 then\n return 0.85\n end\n return 0.9\nend\n\nlocal function getStepLayers(isMacDesktop)\n local secondaryVolume = isMacDesktop and 0 or 0.18\n local chordSecondaryVolume = isMacDesktop and 0 or 0.12\n\n return {\n single = {\n { wave = \"flute\", volume = 0.68, adsr = { a = 0.045, d = 0.12, s = 0.78, r = 0.34 } },\n { wave = \"sine\", volume = secondaryVolume, adsr = { a = 0.05, d = 0.12, s = 0.52, r = 0.34 } }\n },\n chord = {\n { wave = \"flute\", volume = 0.68, adsr = { a = 0.045, d = 0.12, s = 0.78, r = 0.34 } },\n { wave = \"flute\", volume = 0.2, adsr = { a = 0.05, d = 0.14, s = 0.68, r = 0.34 } },\n { wave = \"flute\", volume = 0.2, adsr = { a = 0.05, d = 0.14, s = 0.68, r = 0.34 } },\n { wave = \"sine\", volume = secondaryVolume, adsr = { a = 0.05, d = 0.12, s = 0.52, r = 0.34 } },\n { wave = \"sine\", volume = chordSecondaryVolume, adsr = { a = 0.055, d = 0.14, s = 0.48, r = 0.36 } },\n { wave = \"sine\", volume = chordSecondaryVolume, adsr = { a = 0.055, d = 0.14, s = 0.48, r = 0.36 } }\n }\n }\nend\n\nlocal function renderTone(samples, startSeconds, noteIndex, octave, durationSeconds, velocity, layers, noteFreqs)\n local baseFreq = noteFreqs[noteIndex]\n if not baseFreq then\n return\n end\n\n local octaveMultiplier = 2 ^ ((octave or 4) - 4)\n local freq = baseFreq * octaveMultiplier\n local startSample = math.max(0, math.floor(startSeconds * SAMPLE_RATE))\n\n for _, layer in ipairs(layers) do\n if layer then\n renderVoice(\n samples,\n startSample,\n durationSeconds,\n freq,\n layer.volume * velocity,\n layer.wave,\n layer.adsr\n )\n end\n end\nend\n\nfunction AudioExport.renderActiveSequenceWav(options)\n local state = assert(options.state, \"state is required\")\n local core = assert(options.core, \"core is required\")\n local noteFreqs = assert(options.noteFreqs, \"noteFreqs is required\")\n local transposeNoteForKey = assert(options.transposeNoteForKey, \"transposeNoteForKey is required\")\n local sequenceIndex = options.sequenceIndex or state.activeSequenceIndex or 1\n local sequence = state.sequences and state.sequences[sequenceIndex]\n local sequenceLength = (state.sequenceLengths and state.sequenceLengths[sequenceIndex]) or 0\n\n if not sequence or sequenceLength <= 0 then\n return false, \"active sequence is empty\"\n end\n\n local stepDurationSeconds = (state.stepDuration or 500) / 1000\n local currentTime = 0\n local layers = getStepLayers(options.isMacDesktop == true)\n local masterVolume = math.max(0, math.min(1, tonumber(state.masterVolume) or 1))\n local octaveTranspose = 0\n if state.sequenceOctaveTranspose then\n octaveTranspose = state.sequenceOctaveTranspose[sequenceIndex] or 0\n end\n\n local samples = {}\n\n if state.playKeyBeforeSteps then\n local keyOctave = math.max(2, math.min(7, (state.keyOctave or 4) + octaveTranspose))\n local keyNote, transposedKeyOctave = transposeNoteForKey(state.keyNote or 0, keyOctave)\n renderTone(samples, 0, keyNote, transposedKeyOctave, math.max(0.05, stepDurationSeconds * 0.9), 1.0 * masterVolume, layers.single, noteFreqs)\n currentTime = ((state.keyLeadInBeats or 1) * stepDurationSeconds) + stepDurationSeconds\n end\n\n local stepIndex = 1\n while stepIndex <= sequenceLength do\n local stepData = sequence[stepIndex]\n local stepLength = 1\n if stepData then\n stepLength = core.getStepLength(stepData)\n end\n local gate = (stepData and stepData.gate) or 0.9\n local noteDurationSeconds = math.max(0.05, stepDurationSeconds * stepLength * gate)\n local velocity = getVelocity(stepIndex) * masterVolume\n\n if stepData and not stepData.muted then\n if core.isChord(stepData) then\n for noteLayerIndex, noteData in ipairs(stepData.notes or {}) do\n if noteLayerIndex > 3 then\n break\n end\n if noteData and noteData.note ~= nil and noteData.note ~= 13 and noteFreqs[noteData.note] ~= nil then\n local transposedNote, transposedOctave = transposeNoteForKey(noteData.note, noteData.octave)\n transposedOctave = math.max(2, math.min(7, (transposedOctave or 4) + octaveTranspose))\n renderTone(\n samples,\n currentTime,\n transposedNote,\n transposedOctave,\n noteDurationSeconds,\n velocity,\n { layers.chord[noteLayerIndex], layers.chord[noteLayerIndex + 3] },\n noteFreqs\n )\n end\n end\n elseif stepData.note ~= nil and stepData.note ~= 13 and noteFreqs[stepData.note] ~= nil then\n local transposedNote, transposedOctave = transposeNoteForKey(stepData.note, stepData.octave)\n transposedOctave = math.max(2, math.min(7, (transposedOctave or 4) + octaveTranspose))\n renderTone(samples, currentTime, transposedNote, transposedOctave, noteDurationSeconds, velocity, layers.single, noteFreqs)\n end\n end\n\n currentTime = currentTime + (stepDurationSeconds * stepLength)\n stepIndex = stepIndex + math.max(1, math.ceil(stepLength))\n end\n\n local totalSamples = math.max(1, math.ceil((currentTime + 0.6) * SAMPLE_RATE))\n local normalized = {}\n local peak = 0\n for i = 1, totalSamples do\n local value = samples[i] or 0\n if math.abs(value) > peak then\n peak = math.abs(value)\n end\n normalized[i] = value\n end\n\n local scale = peak > 0.98 and (0.98 / peak) or 1\n for i = 1, totalSamples do\n normalized[i] = normalized[i] * scale\n end\n\n return true, buildWavFromSamples(normalized)\nend\n\nreturn AudioExport\n","clipboard.lua":"-- clipboard.lua — cross-platform clipboard read/write\n-- Backends: pbcopy/pbpaste (macOS), wl-copy/wl-paste (Linux/Wayland),\n-- xclip or xsel (Linux/X11), clip+powershell (Windows), memory fallback.\n-- Detection runs once (lazy) and caches the result.\n\nlocal M = {}\n\nlocal _backend = nil -- detected lazily\nlocal _memClip = \"\" -- in-process fallback (always updated on write)\n\nlocal function probe(cmd)\n local fh = io.popen(cmd .. \" 2>/dev/null\", \"r\")\n if not fh then return false end\n local out = fh:read(\"*l\") or \"\"\n fh:close()\n return out ~= \"\"\nend\n\nlocal function detectBackend()\n -- Playdate: no system clipboard\n if _G.playdate then\n return {type = \"memory\"}\n end\n\n -- Web: use browser Clipboard API via input bridge\n if rawget(_G, \"SOLFEGE_PLATFORM\") == \"web\" then\n return {type = \"web\"}\n end\n\n -- Detect OS via uname (cached after this)\n local os_name = \"\"\n local fh = io.popen(\"uname 2>/dev/null\", \"r\")\n if fh then\n os_name = (fh:read(\"*l\") or \"\"):lower()\n fh:close()\n end\n\n if os_name:find(\"darwin\") then\n return {type = \"pbcopy\"}\n\n elseif os_name:find(\"linux\") then\n -- Prefer Wayland wl-clipboard if WAYLAND_DISPLAY is set\n local wayland = os.getenv(\"WAYLAND_DISPLAY\") or \"\"\n if wayland ~= \"\" and probe(\"command -v wl-copy\") then\n return {type = \"wl\", write = \"wl-copy\", read = \"wl-paste --no-newline\"}\n end\n if probe(\"command -v xclip\") then\n return {type = \"xclip\",\n write = \"xclip -selection clipboard\",\n read = \"xclip -selection clipboard -o\"}\n end\n if probe(\"command -v xsel\") then\n return {type = \"xsel\",\n write = \"xsel --clipboard --input\",\n read = \"xsel --clipboard --output\"}\n end\n return {type = \"memory\"}\n\n else\n -- Windows (MINGW / MSYS / CYGWIN or unknown)\n if probe(\"where clip 2>NUL || command -v clip\") then\n return {type = \"win\"}\n end\n return {type = \"memory\"}\n end\nend\n\nlocal function getBackend()\n if not _backend then\n _backend = detectBackend()\n end\n return _backend\nend\n\nfunction M.write(text)\n text = text or \"\"\n _memClip = text -- always update in-memory copy as fallback\n\n local b = getBackend()\n if b.type == \"memory\" then return end\n\n if b.type == \"web\" then\n local bridge = rawget(_G, \"WebHost\") and _G.WebHost.input or nil\n if bridge and bridge.copyToClipboard then\n bridge.copyToClipboard(text)\n end\n return\n end\n\n local ok, fh\n if b.type == \"pbcopy\" then\n fh = io.popen(\"pbcopy\", \"w\")\n elseif b.type == \"wl\" or b.type == \"xclip\" or b.type == \"xsel\" then\n fh = io.popen(b.write, \"w\")\n elseif b.type == \"win\" then\n fh = io.popen(\"clip\", \"w\")\n end\n if fh then\n fh:write(text)\n ok = fh:close()\n end\n if not ok then\n -- External tool failed; _memClip already updated, so in-app paste still works.\n end\nend\n\nfunction M.read()\n local b = getBackend()\n if b.type == \"memory\" then return _memClip end\n\n local fh, text\n if b.type == \"pbcopy\" then\n fh = io.popen(\"pbpaste\", \"r\")\n elseif b.type == \"wl\" or b.type == \"xclip\" or b.type == \"xsel\" then\n fh = io.popen(b.read, \"r\")\n elseif b.type == \"win\" then\n fh = io.popen(\"powershell -NoProfile -Command \\\"Get-Clipboard\\\"\", \"r\")\n end\n if fh then\n text = fh:read(\"*a\") or \"\"\n fh:close()\n -- Strip trailing newline(s) added by some tools\n text = text:gsub(\"\\r\\n$\", \"\"):gsub(\"\\n$\", \"\")\n return text\n end\n return _memClip -- fallback if read fails\nend\n\n-- For testing: force a specific backend without probing the OS.\nfunction M._setBackendForTest(b)\n _backend = b\n _memClip = \"\"\nend\n\nreturn M\n","cmd_chat.lua":"local cmdChat = {}\n\nlocal _state, _core, _tl, _actions\n\nlocal NOTE_NAMES = {\n c=0, [\"c#\"]=1, db=1, d=2, [\"d#\"]=3, eb=3, e=4, f=5,\n [\"f#\"]=6, gb=6, g=7, [\"g#\"]=8, ab=8, a=9, [\"a#\"]=10, bb=10, b=11\n}\nlocal NOTE_DISPLAY = {\"C\",\"C#\",\"D\",\"D#\",\"E\",\"F\",\"F#\",\"G\",\"G#\",\"A\",\"A#\",\"B\"}\n\nlocal SOLFEGE_NAME_TO_NOTE = {\n [\"do\"] = true, [\"di\"] = true, [\"ra\"] = true,\n [\"re\"] = true, [\"ri\"] = true, [\"me\"] = true,\n [\"mi\"] = true,\n [\"fa\"] = true, [\"fi\"] = true, [\"se\"] = true,\n [\"sol\"] = true, [\"si\"] = true, [\"le\"] = true,\n [\"la\"] = true, [\"li\"] = true, [\"te\"] = true,\n [\"ti\"] = true,\n [\"do'\"] = true,\n [\"rest\"] = true, [\"r\"] = true, [\"--\"] = true,\n}\n\nlocal SOLFEGE_NOTE_INDEX = {\n [\"do\"] = 0, [\"di\"] = 1, [\"ra\"] = 1,\n [\"re\"] = 2, [\"ri\"] = 3, [\"me\"] = 3,\n [\"mi\"] = 4,\n [\"fa\"] = 5, [\"fi\"] = 6, [\"se\"] = 6,\n [\"sol\"] = 7, [\"si\"] = 8, [\"le\"] = 8,\n [\"la\"] = 9, [\"li\"] = 10, [\"te\"] = 10,\n [\"ti\"] = 11,\n [\"do'\"] = 12,\n}\n\nlocal SCALE_PHRASES = {\n major = \"do re mi fa sol la ti do' ti la sol fa mi re do\",\n minor = \"do re me fa sol le te do' te le sol fa me re do\",\n [\"natural minor\"] = \"do re me fa sol le te do' te le sol fa me re do\",\n [\"harmonic minor\"] = \"do re me fa sol le ti do' ti le sol fa me re do\",\n [\"melodic minor\"] = \"do re me fa sol la ti do' te le sol fa me re do\",\n dorian = \"do re me fa sol la te do' te la sol fa me re do\",\n phrygian = \"do ra me fa sol le te do' te le sol fa me ra do\",\n lydian = \"do re mi fi sol la ti do' ti la sol fi mi re do\",\n mixolydian = \"do re mi fa sol la te do' te la sol fa mi re do\",\n locrian = \"do ra me fa se le te do' te le se fa me ra do\",\n pentatonic = \"do re mi sol la do' la sol mi re do\",\n [\"major pentatonic\"] = \"do re mi sol la do' la sol mi re do\",\n [\"minor pentatonic\"] = \"do me fa sol te do' te sol fa me do\",\n blues = \"do me fa fi sol te do' te sol fi fa me do\",\n chromatic = \"do di re ri mi fa fi sol si la li ti do' ti li la si sol fi fa mi ri re di do\",\n [\"whole tone\"] = \"do re mi fi si li do' li si fi mi re do\",\n}\n\nlocal SCALE_ALIASES = {\n maj = \"major\", min = \"minor\", nat = \"natural minor\",\n [\"nat minor\"] = \"natural minor\", [\"natural min\"] = \"natural minor\",\n harm = \"harmonic minor\", [\"harm minor\"] = \"harmonic minor\", [\"harmonic min\"] = \"harmonic minor\",\n mel = \"melodic minor\", [\"mel minor\"] = \"melodic minor\", [\"melodic min\"] = \"melodic minor\",\n dor = \"dorian\", phryg = \"phrygian\", lyd = \"lydian\", mixo = \"mixolydian\",\n mix = \"mixolydian\", loc = \"locrian\", pent = \"pentatonic\",\n [\"maj pent\"] = \"major pentatonic\", [\"major pent\"] = \"major pentatonic\",\n [\"min pent\"] = \"minor pentatonic\", [\"minor pent\"] = \"minor pentatonic\",\n [\"whole\"] = \"whole tone\", [\"wholetone\"] = \"whole tone\",\n chrom = \"chromatic\",\n}\n\nlocal function resolveScaleName(raw)\n raw = trim(raw):lower():gsub(\"%s+scale$\", \"\"):gsub(\"%s+\", \" \")\n if SCALE_PHRASES[raw] then return raw end\n if SCALE_ALIASES[raw] then return SCALE_ALIASES[raw] end\n for name in pairs(SCALE_PHRASES) do\n if name:find(raw, 1, true) then return name end\n end\n return nil\nend\n\nlocal function scaleNamesListText()\n local ordered = {\n \"major\", \"minor\", \"harmonic minor\", \"melodic minor\",\n \"dorian\", \"phrygian\", \"lydian\", \"mixolydian\", \"locrian\",\n \"pentatonic\", \"major pentatonic\", \"minor pentatonic\",\n \"blues\", \"chromatic\", \"whole tone\",\n }\n return table.concat(ordered, \", \")\nend\n\nlocal function buildScalePhrase(input)\n local lower = trim(input):lower()\n local parts = {}\n for segment in (lower .. \" then \"):gmatch(\"(.-)%s+then%s+\") do\n segment = trim(segment)\n if segment ~= \"\" then\n local name = resolveScaleName(segment)\n if not name then return nil end\n parts[#parts + 1] = { name = name, phrase = SCALE_PHRASES[name] }\n end\n end\n if #parts == 0 then\n local name = resolveScaleName(lower)\n if not name then return nil end\n parts[#parts + 1] = { name = name, phrase = SCALE_PHRASES[name] }\n end\n local combined = {}\n local labels = {}\n for _, p in ipairs(parts) do\n combined[#combined + 1] = p.phrase\n labels[#labels + 1] = p.name\n end\n return table.concat(combined, \" \"), table.concat(labels, \" then \")\nend\n\nlocal commands = {}\nlocal aliases = {}\nlocal commandOrder = {}\n\nlocal function trim(s)\n return (s or \"\"):match(\"^%s*(.-)%s*$\")\nend\n\nlocal function normalizeSpaces(s)\n return trim(tostring(s or \"\"):gsub(\"%s+\", \" \"))\nend\n\nlocal function isOneOf(value, choices)\n for _, choice in ipairs(choices) do\n if value == choice then return true end\n end\n return false\nend\n\nlocal function parseToggleState(raw)\n local text = trim(raw):lower()\n if text == \"\" or text == \"toggle\" then return nil end\n if text == \"on\" or text == \"show\" or text == \"shown\" or text == \"visible\" or text == \"yes\" then\n return true\n end\n if text == \"off\" or text == \"hide\" or text == \"hidden\" or text == \"invisible\" or text == \"no\" then\n return false\n end\n return nil, \"Usage: view [show|hide|toggle]\"\nend\n\nlocal function onOffLabel(value)\n return value and \"ON\" or \"OFF\"\nend\n\nlocal function addCommand(name, usage, description, handler, opts)\n commands[name] = {\n usage = usage,\n description = description,\n handler = handler,\n hidden = opts and opts.hidden\n }\n commandOrder[#commandOrder + 1] = name\nend\n\nlocal function addAlias(alias, commandName)\n aliases[alias] = commandName\nend\n\nlocal function resolveCommandName(name)\n name = (name or \"\"):lower()\n return aliases[name] or name\nend\n\nlocal function editDistance(a, b)\n a = tostring(a or \"\")\n b = tostring(b or \"\")\n local prev = {}\n for j = 0, #b do prev[j] = j end\n for i = 1, #a do\n local current = {[0] = i}\n local ca = a:sub(i, i)\n for j = 1, #b do\n local cost = ca == b:sub(j, j) and 0 or 1\n current[j] = math.min(\n prev[j] + 1,\n current[j - 1] + 1,\n prev[j - 1] + cost\n )\n end\n prev = current\n end\n return prev[#b]\nend\n\nlocal function closestCommandName(rawName)\n local query = tostring(rawName or \"\"):lower()\n if query == \"\" then return nil end\n local bestName, bestScore\n local function consider(name)\n local lower = tostring(name or \"\"):lower()\n local score\n if lower:find(query, 1, true) == 1 or query:find(lower, 1, true) == 1 then\n score = math.abs(#lower - #query)\n else\n score = editDistance(query, lower)\n end\n if not bestScore or score < bestScore or (score == bestScore and lower < bestName) then\n bestName = lower\n bestScore = score\n end\n end\n for name, entry in pairs(commands) do\n if entry and not entry.hidden then consider(name) end\n end\n for alias in pairs(aliases) do consider(alias) end\n if bestName and bestScore and bestScore <= math.max(1, math.floor(#query / 3)) then\n return resolveCommandName(bestName)\n end\n return nil\nend\n\nlocal function tokenizeSolfegeChatText(text)\n local tokens = {}\n local chordParts\n for raw in tostring(text or \"\"):gmatch(\"%S+\") do\n if chordParts then\n chordParts[#chordParts + 1] = raw\n if raw:find(\">\") then\n tokens[#tokens + 1] = table.concat(chordParts, \" \")\n chordParts = nil\n end\n elseif raw:sub(1, 1) == \"<\" and not raw:find(\">\") then\n chordParts = {raw}\n else\n tokens[#tokens + 1] = raw\n end\n end\n if chordParts then\n tokens[#tokens + 1] = table.concat(chordParts, \" \")\n end\n return tokens\nend\n\nlocal function solfegeSyllableFromToken(raw)\n local corePart = tostring(raw or \"\"):match(\"^(.-)|\") or tostring(raw or \"\")\n local notePart = corePart:match(\"^(.-)/\") or corePart\n return notePart:match(\"^([A-Za-z][A-Za-z'%-]*)(%d*)$\") or notePart\nend\n\nlocal function isSolfegeChatAtom(raw)\n local syllable = solfegeSyllableFromToken(raw)\n return SOLFEGE_NAME_TO_NOTE[syllable:lower()] == true\nend\n\nlocal function isSolfegeChatChord(raw)\n local token = trim(raw)\n if token:sub(1, 1) ~= \"<\" or token:find(\">\") == nil then\n return false\n end\n token = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n if token == \"\" then return false end\n\n local count = 0\n for part in token:gmatch(\"%S+\") do\n count = count + 1\n part = part:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n if not isSolfegeChatAtom(part) then\n return false\n end\n end\n return count > 0\nend\n\nlocal function isSolfegeChatToken(raw)\n return isSolfegeChatAtom(raw) or isSolfegeChatChord(raw)\nend\n\nlocal function parseSolfegeChatTokens(text)\n local tokens = {}\n for _, raw in ipairs(tokenizeSolfegeChatText(text)) do\n if not isSolfegeChatToken(raw) then\n return nil\n end\n tokens[#tokens + 1] = raw\n end\n if #tokens == 0 then return nil end\n return tokens\nend\n\nlocal function collectSolfegeChatTokens(text)\n local tokens = {}\n for _, raw in ipairs(tokenizeSolfegeChatText(text)) do\n local token = raw:gsub(\"^%[\", \"\"):gsub(\"%]$\", \"\")\n local lower = token:lower()\n local isMeta = token == \"|\" or token == \"||\"\n or lower:match(\"^key:\") or lower:match(\"^scale:\") or lower:match(\"^bpm:\")\n or lower:match(\"^meter:\") or lower:match(\"^loop:\") or lower:match(\"^octave:\")\n or lower:match(\"^t:\") or lower:match(\"^transpose:\") or lower:match(\"^length:\")\n or lower:match(\"^oct:\") or lower:match(\"^default:\")\n if not isMeta then\n if isSolfegeChatToken(token) then\n tokens[#tokens + 1] = token\n end\n end\n end\n if #tokens == 0 then return nil end\n return tokens\nend\n\nlocal function handleSolfegeText(text, playIt, addIt, forcePlay)\n local tokens = parseSolfegeChatTokens(text)\n if not tokens then\n return nil\n end\n\n local solfegeText = table.concat(tokens, \" \")\n if addIt and _actions.addSolfegeText then\n _actions.addSolfegeText(solfegeText)\n end\n if playIt and _actions.playSolfegeText then\n local playText = solfegeText\n if addIt and _actions.getSolfegeText then\n playText = _actions.getSolfegeText()\n end\n -- Loop if loopPlayback is on OR if there's already an active audition loop\n local shouldLoop = _state.loopPlayback == true\n or _state._cmdChatAuditionLoopText ~= nil\n local ok, err = _actions.playSolfegeText(playText, shouldLoop, forcePlay == true)\n if ok == false then\n return err or \"Nothing to play\"\n end\n end\n\n if addIt and playIt then\n return \"Added and played: \" .. solfegeText\n elseif addIt then\n return \"Added: \" .. solfegeText\n elseif playIt then\n return \"Played: \" .. solfegeText\n end\n return solfegeText\nend\n\nlocal function solfegeTextOrUsage(text, usage)\n local tokens = parseSolfegeChatTokens(text)\n if not tokens then\n return nil, usage\n end\n return table.concat(tokens, \" \"), nil\nend\n\nlocal function getSolfegeDisplayName(noteIndex)\n local notes = _core and _core.getSolfegeNotes and _core.getSolfegeNotes(_state.solfegeScale)\n or _core and _core.solfegeNotes\n or {}\n return notes[(noteIndex or 0) + 1] or NOTE_DISPLAY[((noteIndex or 0) % 12) + 1] or tostring(noteIndex)\nend\n\nlocal function parseDroneNote(raw)\n local text = trim(raw):lower()\n if text == \"\" then return nil end\n text = text:gsub(\"^to%s+\", \"\")\n if SOLFEGE_NOTE_INDEX[text] ~= nil then\n return SOLFEGE_NOTE_INDEX[text]\n end\n if NOTE_NAMES[text] ~= nil then\n return NOTE_NAMES[text]\n end\n return nil\nend\n\nlocal function repeatSolfegeText(args)\n local countRaw, rest = trim(args):match(\"^(%d+)%s+(.+)$\")\n local count = tonumber(countRaw)\n if not count or count < 1 or count > 32 then\n return nil, \"Usage: repeat <1-32> do re mi\"\n end\n local solfegeText, err = solfegeTextOrUsage(rest, \"Usage: repeat <1-32> do re mi\")\n if not solfegeText then return nil, err end\n local parts = {}\n for _ = 1, count do parts[#parts + 1] = solfegeText end\n return table.concat(parts, \" \"), nil\nend\n\nlocal function applyTokenDuration(token, duration)\n if isSolfegeChatChord(token) then\n local body = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n local parts = {}\n for part in body:gmatch(\"%S+\") do\n parts[#parts + 1] = part:gsub(\"/.*$\", \"\")\n end\n if #parts == 0 then return token end\n parts[#parts] = parts[#parts] .. \"/\" .. duration\n return \"<\" .. table.concat(parts, \" \") .. \">\"\n end\n\n local corePart, lyric = token:match(\"^(.-)|(.+)$\")\n corePart = corePart or token\n corePart = corePart:gsub(\"/.*$\", \"\")\n return corePart .. \"/\" .. duration .. (lyric and (\"|\" .. lyric) or \"\")\nend\n\nlocal function splitSolfegeText(text)\n local tokens = parseSolfegeChatTokens(text)\n if not tokens then return nil end\n return tokens\nend\n\nlocal function chordTextFromPhrase(text)\n local tokens = parseSolfegeChatTokens(text)\n if not tokens or #tokens == 0 then return nil end\n if #tokens == 1 and isSolfegeChatChord(tokens[1]) then return tokens[1] end\n for _, token in ipairs(tokens) do\n if isSolfegeChatChord(token) then return nil end\n end\n return \"<\" .. table.concat(tokens, \" \") .. \">\"\nend\n\nlocal function joinTokens(tokens)\n return table.concat(tokens, \" \")\nend\n\nlocal function stripKeyHeader(text)\n text = tostring(text or \"\")\n if text:match(\"^%s*Key:\") then\n text = text:gsub(\"^%s*[^\\n]*\\n?\", \"\", 1)\n end\n return trim(text)\nend\n\nlocal function getCurrentSolfegeTokens()\n local text = _actions.getSolfegeText and _actions.getSolfegeText()\n or _state.solfegeInputBuffer\n or _state._solfegeSeqText\n or \"\"\n text = stripKeyHeader(text)\n if text == \"\" then return {} end\n local tokens = parseSolfegeChatTokens(text)\n if not tokens then\n return nil, \"Current sequence contains tokens chat cannot edit yet\"\n end\n return tokens, nil\nend\n\nlocal function getCurrentSolfegeText()\n local tokens, err = getCurrentSolfegeTokens()\n if not tokens then return nil, err end\n if #tokens == 0 then return nil, \"No solfege to play yet\" end\n return joinTokens(tokens), nil\nend\n\nlocal function tokenPartsForAnalysis(token)\n local parts = {}\n token = trim(token)\n if isSolfegeChatChord(token) then\n local body = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n for part in body:gmatch(\"%S+\") do\n parts[#parts + 1] = part\n end\n elseif token ~= \"\" then\n parts[1] = token\n end\n return parts\nend\n\nlocal function parseAnalysisAtom(raw)\n local token = tostring(raw or \"\")\n local corePart, lyric = token:match(\"^(.-)|(.+)$\")\n corePart = corePart or token\n local notePart, duration = corePart:match(\"^(.-)/(.+)$\")\n notePart = notePart or corePart\n local syllable, octaveText = notePart:match(\"^([A-Za-z][A-Za-z'%-]*)(%d*)$\")\n syllable = syllable or notePart\n local lower = syllable:lower()\n local noteIndex = SOLFEGE_NOTE_INDEX[lower]\n local isRest = lower == \"rest\" or lower == \"r\" or lower == \"--\"\n return {\n raw = token,\n syllable = syllable,\n lower = lower,\n noteIndex = noteIndex,\n octave = octaveText ~= \"\" and tonumber(octaveText) or nil,\n duration = duration,\n lyric = lyric,\n isRest = isRest,\n }\nend\n\nlocal function parseTokenAtomParts(token)\n local corePart, lyric = tostring(token or \"\"):match(\"^(.-)|(.+)$\")\n corePart = corePart or tostring(token or \"\")\n local restDuration = corePart:match(\"^(%-%-)/?(.*)$\")\n if restDuration ~= nil then\n local duration = corePart:match(\"^%-%-/(.+)$\")\n return {\n syllable = \"--\",\n lower = \"--\",\n octave = \"\",\n duration = duration,\n lyric = lyric,\n }\n end\n local notePart, duration = corePart:match(\"^(.-)/(.+)$\")\n notePart = notePart or corePart\n local syllable, octaveText = notePart:match(\"^([A-Za-z][A-Za-z'%-]*)(%d*)$\")\n if not syllable then return nil end\n return {\n syllable = syllable,\n lower = syllable:lower(),\n octave = octaveText or \"\",\n duration = duration,\n lyric = lyric,\n }\nend\n\nlocal function replaceTokenSyllable(token, fromLower, toSyllable)\n if isSolfegeChatChord(token) then\n local body = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n local changed = false\n local out = {}\n for part in body:gmatch(\"%S+\") do\n local replaced, partChanged = replaceTokenSyllable(part, fromLower, toSyllable)\n out[#out + 1] = replaced\n changed = changed or partChanged\n end\n return \"<\" .. table.concat(out, \" \") .. \">\", changed\n end\n\n local parsed = parseTokenAtomParts(token)\n if not parsed or parsed.lower ~= fromLower then\n return token, false\n end\n local nextToken = toSyllable == \"--\" and \"--\" or (toSyllable .. parsed.octave)\n if parsed.duration and parsed.duration ~= \"\" then\n nextToken = nextToken .. \"/\" .. parsed.duration\n end\n if parsed.lyric and parsed.lyric ~= \"\" then\n nextToken = nextToken .. \"|\" .. parsed.lyric\n end\n return nextToken, true\nend\n\nlocal function canonicalSolfegeSyllable(raw)\n local text = trim(raw):lower()\n if text == \"rest\" or text == \"r\" then return \"--\" end\n if text == \"--\" then return \"--\" end\n if SOLFEGE_NAME_TO_NOTE[text] and text ~= \"rest\" and text ~= \"r\" then\n return text\n end\n return nil\nend\n\nlocal function scaleSyllableOrder()\n local notes = _core and _core.getSolfegeNotes and _core.getSolfegeNotes(_state.solfegeScale)\n or _core and _core.solfegeNotes\n or {\"Do\", \"Di\", \"Re\", \"Ri\", \"Mi\", \"Fa\", \"Fi\", \"Sol\", \"Si\", \"La\", \"Li\", \"Ti\", \"Do'\"}\n local out = {}\n local seen = {}\n for _, note in ipairs(notes) do\n local lower = tostring(note or \"\"):lower()\n if lower ~= \"\" and lower ~= \"--\" and not seen[lower] then\n out[#out + 1] = lower\n seen[lower] = true\n end\n end\n return out\nend\n\nlocal function shiftSyllableName(syllable, steps)\n local lower = tostring(syllable or \"\"):lower()\n local order = scaleSyllableOrder()\n for i, name in ipairs(order) do\n if name == lower then\n local nextIndex = ((i - 1 + steps) % #order) + 1\n return order[nextIndex]\n end\n end\n return nil\nend\n\nlocal function shiftTokenSyllable(token, steps)\n if isSolfegeChatChord(token) then\n local body = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n local changed = false\n local out = {}\n for part in body:gmatch(\"%S+\") do\n local replaced, partChanged = shiftTokenSyllable(part, steps)\n out[#out + 1] = replaced\n changed = changed or partChanged\n end\n return \"<\" .. table.concat(out, \" \") .. \">\", changed\n end\n\n local parsed = parseTokenAtomParts(token)\n if not parsed or parsed.lower == \"rest\" or parsed.lower == \"r\" or parsed.lower == \"--\" then\n return token, false\n end\n local shifted = shiftSyllableName(parsed.syllable, steps)\n if not shifted then return token, false end\n local nextToken = shifted .. parsed.octave\n if parsed.duration and parsed.duration ~= \"\" then\n nextToken = nextToken .. \"/\" .. parsed.duration\n end\n if parsed.lyric and parsed.lyric ~= \"\" then\n nextToken = nextToken .. \"|\" .. parsed.lyric\n end\n return nextToken, true\nend\n\nlocal function getCurrentPatternAnalysis()\n local tokens, err = getCurrentSolfegeTokens()\n if not tokens then return nil, err end\n if #tokens == 0 then return nil, \"No current solfege pattern yet\" end\n\n local analysis = {\n tokens = tokens,\n stepCount = #tokens,\n noteCount = 0,\n chordCount = 0,\n restCount = 0,\n lyricCount = 0,\n durationCounts = {},\n octaveCounts = {},\n notes = {},\n intervals = {},\n largestLeap = 0,\n firstNote = nil,\n lastNote = nil,\n direction = \"mixed\",\n }\n\n local playable = {}\n local totalDirection = 0\n for _, token in ipairs(tokens) do\n local isChord = isSolfegeChatChord(token)\n if isChord then analysis.chordCount = analysis.chordCount + 1 end\n local parts = tokenPartsForAnalysis(token)\n local displayParts = {}\n for _, part in ipairs(parts) do\n local atom = parseAnalysisAtom(part)\n displayParts[#displayParts + 1] = atom.syllable\n if atom.isRest then\n analysis.restCount = analysis.restCount + 1\n elseif atom.noteIndex ~= nil then\n analysis.noteCount = analysis.noteCount + 1\n playable[#playable + 1] = atom.noteIndex\n if atom.octave then\n analysis.octaveCounts[atom.octave] = (analysis.octaveCounts[atom.octave] or 0) + 1\n end\n end\n if atom.duration and atom.duration ~= \"\" then\n analysis.durationCounts[atom.duration] = (analysis.durationCounts[atom.duration] or 0) + 1\n end\n if atom.lyric and atom.lyric ~= \"\" then\n analysis.lyricCount = analysis.lyricCount + 1\n end\n end\n if isChord then\n analysis.notes[#analysis.notes + 1] = \"<\" .. table.concat(displayParts, \" \") .. \">\"\n else\n analysis.notes[#analysis.notes + 1] = displayParts[1] or token\n end\n end\n\n for i = 2, #playable do\n local interval = playable[i] - playable[i - 1]\n analysis.intervals[#analysis.intervals + 1] = interval\n if math.abs(interval) > math.abs(analysis.largestLeap) then\n analysis.largestLeap = interval\n end\n if interval > 0 then totalDirection = totalDirection + 1\n elseif interval < 0 then totalDirection = totalDirection - 1 end\n end\n analysis.firstNote = analysis.notes[1]\n analysis.lastNote = analysis.notes[#analysis.notes]\n if #analysis.intervals > 0 then\n if totalDirection == #analysis.intervals then\n analysis.direction = \"ascending\"\n elseif totalDirection == -#analysis.intervals then\n analysis.direction = \"descending\"\n elseif totalDirection > 0 then\n analysis.direction = \"mostly ascending\"\n elseif totalDirection < 0 then\n analysis.direction = \"mostly descending\"\n end\n end\n return analysis, nil\nend\n\nlocal function sortedCountKeys(counts)\n local keys = {}\n for key in pairs(counts or {}) do keys[#keys + 1] = key end\n table.sort(keys, function(a, b)\n local na, nb = tonumber(a), tonumber(b)\n if na and nb then return na < nb end\n return tostring(a) < tostring(b)\n end)\n return keys\nend\n\nlocal function formatCounts(counts, empty)\n local parts = {}\n for _, key in ipairs(sortedCountKeys(counts)) do\n parts[#parts + 1] = tostring(key) .. \" x\" .. tostring(counts[key])\n end\n if #parts == 0 then return empty or \"none\" end\n return table.concat(parts, \", \")\nend\n\nlocal function answerPatternQuestion(question)\n local analysis, err = getCurrentPatternAnalysis()\n if not analysis then return err end\n local q = trim(question):lower()\n q = q:gsub(\"%s*[%?%.!]$\", \"\")\n\n if q == \"\" or q == \"summary\" or q == \"overview\" or q:find(\"describe\", 1, true)\n or q:find(\"about\", 1, true)\n or ((q:find(\"what is\", 1, true) or q:find(\"what's\", 1, true))\n and (q:find(\"pattern\", 1, true) or q:find(\"melody\", 1, true))) then\n return table.concat({\n \"Current pattern: \" .. table.concat(analysis.notes, \" \"),\n \"Steps: \" .. analysis.stepCount .. \" | Direction: \" .. analysis.direction,\n \"Chords: \" .. analysis.chordCount .. \" | Rests: \" .. analysis.restCount .. \" | Lyrics: \" .. analysis.lyricCount,\n \"Durations: \" .. formatCounts(analysis.durationCounts, \"default\"),\n }, \"\\n\")\n end\n\n if q:find(\"how many\", 1, true) or q:find(\"count\", 1, true) or q:find(\"length\", 1, true) then\n if q:find(\"chord\", 1, true) then\n return \"The current pattern has \" .. analysis.chordCount .. \" chord step(s).\"\n elseif q:find(\"rest\", 1, true) then\n return \"The current pattern has \" .. analysis.restCount .. \" rest step(s).\"\n elseif q:find(\"lyric\", 1, true) or q:find(\"word\", 1, true) then\n return \"The current pattern has \" .. analysis.lyricCount .. \" lyric token(s).\"\n elseif q:find(\"note\", 1, true) then\n return \"The current pattern has \" .. analysis.noteCount .. \" sounding note(s) across \" .. analysis.stepCount .. \" step(s).\"\n end\n return \"The current pattern has \" .. analysis.stepCount .. \" step(s).\"\n end\n\n if q:find(\"first\", 1, true) or q:find(\"start\", 1, true) then\n return \"The pattern starts on \" .. tostring(analysis.firstNote or \"nothing\") .. \".\"\n end\n if q:find(\"last\", 1, true) or q:find(\"end\", 1, true) then\n return \"The pattern ends on \" .. tostring(analysis.lastNote or \"nothing\") .. \".\"\n end\n if q:find(\"direction\", 1, true) or q:find(\"ascending\", 1, true) or q:find(\"descending\", 1, true)\n or q:find(\"up\", 1, true) or q:find(\"down\", 1, true) then\n return \"Direction: \" .. analysis.direction .. \".\"\n end\n if q:find(\"leap\", 1, true) or q:find(\"skip\", 1, true) or q:find(\"stepwise\", 1, true) or q:find(\"interval\", 1, true) then\n local hasLeap = math.abs(analysis.largestLeap or 0) > 2\n local label = hasLeap and \"Yes\" or \"No\"\n return label .. \". Largest melodic interval: \" .. tostring(analysis.largestLeap or 0) .. \" semitone(s).\"\n end\n if q:find(\"chord\", 1, true) then\n return analysis.chordCount > 0 and (\"Yes. Chord steps: \" .. analysis.chordCount .. \".\") or \"No chord steps in the current pattern.\"\n end\n if q:find(\"rest\", 1, true) then\n return analysis.restCount > 0 and (\"Yes. Rest steps: \" .. analysis.restCount .. \".\") or \"No rests in the current pattern.\"\n end\n if q:find(\"duration\", 1, true) or q:find(\"rhythm\", 1, true) or q:find(\"length\", 1, true) then\n return \"Durations: \" .. formatCounts(analysis.durationCounts, \"default lengths\")\n end\n if q:find(\"octave\", 1, true) then\n return \"Octaves: \" .. formatCounts(analysis.octaveCounts, \"default octave\")\n end\n if q:find(\"lyric\", 1, true) or q:find(\"word\", 1, true) then\n return analysis.lyricCount > 0 and (\"Yes. Lyric tokens: \" .. analysis.lyricCount .. \".\") or \"No lyrics attached to this pattern.\"\n end\n if q:find(\"note\", 1, true) or q:find(\"solfege\", 1, true) or q:find(\"syllable\", 1, true) then\n return \"Notes: \" .. table.concat(analysis.notes, \" \")\n end\n\n return table.concat({\n \"I can answer questions about the current pattern's notes, step count, direction, leaps, chords, rests, rhythm, octaves, and lyrics.\",\n \"Current pattern: \" .. table.concat(analysis.notes, \" \"),\n }, \"\\n\")\nend\n\nlocal function setCurrentSolfegeTokens(tokens)\n local text = joinTokens(tokens)\n if _actions.setSolfegeText then\n _actions.setSolfegeText(text)\n elseif _actions.addSolfegeText then\n _actions.addSolfegeText(text)\n end\n return text\nend\n\nlocal function parseIndexRange(raw, maxIndex, allowEnd)\n raw = trim(raw)\n if allowEnd and raw:lower() == \"end\" then\n return maxIndex + 1, maxIndex + 1\n end\n local a, b = raw:match(\"^(%d+)%s*%-%s*(%d+)$\")\n if not a then\n a = raw:match(\"^(%d+)$\")\n b = a\n end\n a, b = tonumber(a), tonumber(b)\n if not a or not b then return nil end\n if a > b then a, b = b, a end\n return a, b\nend\n\nlocal function generatedPattern(kind, count)\n kind = (kind or \"\"):lower()\n count = math.max(1, math.min(32, math.floor(tonumber(count) or 8)))\n local patterns = {\n rise = {\"do\", \"re\", \"mi\", \"fa\", \"sol\", \"la\", \"ti\", \"do'\"},\n up = {\"do\", \"re\", \"mi\", \"fa\", \"sol\", \"la\", \"ti\", \"do'\"},\n fall = {\"do'\", \"ti\", \"la\", \"sol\", \"fa\", \"mi\", \"re\", \"do\"},\n down = {\"do'\", \"ti\", \"la\", \"sol\", \"fa\", \"mi\", \"re\", \"do\"},\n arch = {\"do\", \"re\", \"mi\", \"sol\", \"la\", \"sol\", \"mi\", \"re\"},\n bass = {\"do\", \"sol\", \"do\", \"sol\", \"fa\", \"do\", \"sol\", \"do\"},\n thirds = {\"do\", \"mi\", \"re\", \"fa\", \"mi\", \"sol\", \"fa\", \"la\"},\n pent = {\"do\", \"re\", \"mi\", \"sol\", \"la\", \"sol\", \"mi\", \"re\"},\n }\n local source = patterns[kind]\n if kind == \"random\" or kind == \"rand\" then\n source = {\"do\", \"re\", \"mi\", \"fa\", \"sol\", \"la\", \"ti\"}\n elseif not source then\n return nil\n end\n\n local out = {}\n for i = 1, count do\n if kind == \"random\" or kind == \"rand\" then\n out[i] = source[math.random(#source)]\n else\n out[i] = source[((i - 1) % #source) + 1]\n end\n end\n return joinTokens(out)\nend\n\nlocal function applyRhythm(duration, text)\n duration = trim(duration)\n if duration == \"\" then return nil end\n local tokens = splitSolfegeText(text)\n if not tokens then return nil end\n local out = {}\n for i, token in ipairs(tokens) do\n out[i] = applyTokenDuration(token, duration)\n end\n return joinTokens(out)\nend\n\nlocal DURATION_TO_BEATS = {\n [\"1/1\"] = 4, [\"whole\"] = 4,\n [\"1/2.\"] = 3, [\"dotted-half\"] = 3, [\"dottedhalf\"] = 3,\n [\"1/2\"] = 2, [\"half\"] = 2,\n [\"1/4.\"] = 1.5, [\"dotted-quarter\"] = 1.5, [\"dottedquarter\"] = 1.5,\n [\"1/4\"] = 1, [\"quarter\"] = 1,\n [\"1/8.\"] = 0.75, [\"dotted-eighth\"] = 0.75, [\"dottedeighth\"] = 0.75,\n [\"1/8\"] = 0.5, [\"eighth\"] = 0.5,\n [\"1/8t\"] = 1 / 3, [\"triplet\"] = 1 / 3,\n [\"1/16\"] = 0.25, [\"sixteenth\"] = 0.25,\n [\"1/32\"] = 0.125, [\"thirtysecond\"] = 0.125,\n}\n\nlocal function parseDurationBeats(raw)\n local key = trim(raw):lower():gsub(\"%s+\", \"-\")\n return DURATION_TO_BEATS[key] or tonumber(key)\nend\n\nlocal function applyTokenOctave(token, octave)\n if isSolfegeChatChord(token) then\n local prefix = token:sub(1, 1) == \"<\" and \"<\" or \"\"\n local suffix = token:sub(-1) == \">\" and \">\" or \"\"\n local body = token:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n local out = {}\n for part in body:gmatch(\"%S+\") do\n out[#out + 1] = applyTokenOctave(part:gsub(\">$\", \"\"), octave)\n end\n return prefix .. table.concat(out, \" \") .. suffix\n end\n local corePart, lyric = token:match(\"^(.-)|(.+)$\")\n corePart = corePart or token\n local base, dur = corePart:match(\"^(.-)(/.*)$\")\n base = base or corePart\n dur = dur or \"\"\n local name = base:match(\"^([A-Za-z][A-Za-z'%-]*)(%d*)$\")\n if not name then return token end\n local lower = name:lower()\n if lower == \"rest\" or lower == \"r\" then return token end\n return name .. tostring(octave) .. dur .. (lyric and (\"|\" .. lyric) or \"\")\nend\n\nlocal function setSolfegeTextResult(label, solfegeText)\n if _actions.setSolfegeText then\n _actions.setSolfegeText(solfegeText)\n elseif _actions.addSolfegeText then\n _actions.addSolfegeText(solfegeText)\n end\n return label .. \": \" .. solfegeText\nend\n\nlocal function saveSolfegeMelody(name, solfegeText)\n if not _actions.saveSolfegeMelody then\n return \"Save is not available\"\n end\n local savedName, savedText = _actions.saveSolfegeMelody(name, solfegeText)\n if not savedName then\n return \"Nothing to save. Type solfege first, or use: save do re mi as My Melody\"\n end\n if savedText and savedText ~= \"\" then\n return \"Saved melody '\" .. savedName .. \"': \" .. savedText\n end\n return \"Saved melody '\" .. savedName .. \"'\"\nend\n\nlocal function getChatSolfegeTemplateCategories()\n if _actions.getSolfegeTemplateCategories then\n return _actions.getSolfegeTemplateCategories() or {}\n end\n return {}\nend\n\nlocal function textMatchesQuery(text, query)\n query = trim(query):lower()\n if query == \"\" then return true end\n return tostring(text or \"\"):lower():find(query, 1, true) ~= nil\nend\n\nlocal function normalizeSolfegeTemplateToken(token)\n local syllable = solfegeSyllableFromToken(token)\n local lower = syllable:lower()\n if lower == \"rest\" or lower == \"r\" then return \"--\" end\n if SOLFEGE_NAME_TO_NOTE[lower] then return lower end\n return nil\nend\n\nlocal function solfegeTemplateTokens(text)\n local tokens = {}\n for _, raw in ipairs(tokenizeSolfegeChatText(text)) do\n if isSolfegeChatChord(raw) then\n local chord = {}\n local body = raw:gsub(\"^<\", \"\"):gsub(\">$\", \"\")\n for part in body:gmatch(\"%S+\") do\n local normalized = normalizeSolfegeTemplateToken(part)\n if normalized then chord[#chord + 1] = normalized end\n end\n if #chord > 0 then tokens[#tokens + 1] = \"<\" .. table.concat(chord, \" \") .. \">\" end\n else\n local normalized = normalizeSolfegeTemplateToken(raw)\n if normalized then\n tokens[#tokens + 1] = normalized\n end\n end\n end\n return tokens\nend\n\nlocal function solfegeTemplateTextScore(templateText, query)\n local queryTokens = solfegeTemplateTokens(query)\n if #queryTokens == 0 then return nil end\n\n local templateTokens = solfegeTemplateTokens(templateText)\n if #templateTokens == 0 then return nil end\n\n local exactMatch = #queryTokens == #templateTokens\n for i = 1, #queryTokens do\n if templateTokens[i] ~= queryTokens[i] then\n exactMatch = false\n break\n end\n end\n if exactMatch then return 100 + #queryTokens end\n\n if #queryTokens <= #templateTokens then\n local prefixMatch = true\n for i = 1, #queryTokens do\n if templateTokens[i] ~= queryTokens[i] then\n prefixMatch = false\n break\n end\n end\n if prefixMatch then return 80 + #queryTokens end\n\n local bestRun = 0\n for start = 1, #templateTokens - #queryTokens + 1 do\n local run = 0\n for i = 1, #queryTokens do\n if templateTokens[start + i - 1] == queryTokens[i] then\n run = run + 1\n else\n break\n end\n end\n if run > bestRun then bestRun = run end\n if run == #queryTokens then return 70 + #queryTokens end\n end\n if bestRun >= math.min(3, #queryTokens) then return 40 + bestRun end\n end\n\n local seen = {}\n for _, token in ipairs(templateTokens) do seen[token] = true end\n local overlap = 0\n for _, token in ipairs(queryTokens) do\n if seen[token] then overlap = overlap + 1 end\n end\n if overlap > 0 then return 10 + overlap end\n return nil\nend\n\nlocal function sortTemplateMatches(matches)\n table.sort(matches, function(a, b)\n local scoreA = a.score or 0\n local scoreB = b.score or 0\n if scoreA ~= scoreB then return scoreA > scoreB end\n if a.order ~= b.order then return (a.order or 0) < (b.order or 0) end\n return tostring(a.name or \"\") < tostring(b.name or \"\")\n end)\nend\n\nlocal function collectChatTemplateMatches(query)\n local matches = {}\n for _, cat in ipairs(getChatSolfegeTemplateCategories()) do\n for _, t in ipairs(cat.templates or {}) do\n local textScore = solfegeTemplateTextScore(t.text, query)\n if textMatchesQuery(t.name, query) or textMatchesQuery(cat.name, query)\n or textMatchesQuery(t.text, query) or textScore then\n matches[#matches + 1] = {\n kind = \"solfege\",\n category = cat.name or \"Templates\",\n name = t.name or \"?\",\n text = t.text or \"\",\n score = textScore or 0,\n order = #matches + 1,\n }\n end\n end\n end\n for i, t in ipairs(_state.userSolfegeTemplates or {}) do\n local textScore = solfegeTemplateTextScore(t.text, query)\n if textMatchesQuery(t.name, query) or textMatchesQuery(t.text, query) or textScore then\n matches[#matches + 1] = {\n kind = \"saved\",\n category = \"My Templates\",\n name = t.name or (\"Saved \" .. i),\n text = t.text or \"\",\n index = i,\n score = textScore or 0,\n order = #matches + 1,\n }\n end\n end\n sortTemplateMatches(matches)\n return matches\nend\n\nlocal function findBestChatTemplate(query)\n query = trim(query)\n if query == \"\" then return nil, collectChatTemplateMatches(\"\") end\n local matches = collectChatTemplateMatches(query)\n local q = query:lower()\n local best\n for _, item in ipairs(matches) do\n local name = (item.name or \"\"):lower()\n if name == q then return item, matches end\n if item.score and item.score >= 70 then return item, matches end\n if not best and name:find(q, 1, true) then best = item end\n end\n return best or matches[1], matches\nend\n\nlocal function projectTemplatePreview(template, maxSteps)\n if not template then return nil end\n if template.texts and template.texts[1] then\n return template.texts[1]\n end\n local sequenceIndex = 1\n if template.sequenceStates and template.sequenceStates.activeIndex then\n sequenceIndex = template.sequenceStates.activeIndex\n end\n local sequence = template.sequences and (template.sequences[sequenceIndex] or template.sequences[1])\n if not sequence then return nil end\n local solfegeNotes = _core.solfegeNotes or _core.getSolfegeNotes((_state and _state.solfegeScale) or \"major\")\n local out = {}\n local limit = maxSteps or 12\n if template.sequenceLengths and template.sequenceLengths[sequenceIndex] and template.sequenceLengths[sequenceIndex] > 0 then\n limit = math.min(limit, template.sequenceLengths[sequenceIndex])\n else\n limit = math.min(limit, #sequence)\n end\n for i = 1, limit do\n local step = sequence[i]\n local note = step and (step.note or (step.notes and step.notes[1] and step.notes[1].note))\n out[#out + 1] = note ~= nil and (solfegeNotes[note + 1] or \"--\") or \"--\"\n end\n if #out == 0 then return nil end\n return table.concat(out, \" \")\nend\n\nlocal function collectProjectTemplateMatches(query)\n local matches = {}\n if not _tl then return matches end\n for _, catName in ipairs(_tl.categories or {}) do\n for _, t in ipairs(_tl.getTemplatesByCategory(catName) or {}) do\n local preview = projectTemplatePreview(t, 12)\n local textScore = solfegeTemplateTextScore(preview, query)\n if textMatchesQuery(t.name, query) or textMatchesQuery(t.description, query)\n or textMatchesQuery(catName, query) or textScore then\n matches[#matches + 1] = {\n kind = \"project\",\n category = catName,\n name = t.name or t.id or \"?\",\n description = t.description,\n template = t,\n text = preview,\n score = textScore or 0,\n order = #matches + 1,\n }\n end\n end\n end\n sortTemplateMatches(matches)\n return matches\nend\n\nlocal function findBestProjectTemplate(query)\n query = trim(query)\n local matches = collectProjectTemplateMatches(query)\n local q = query:lower()\n for _, item in ipairs(matches) do\n if (item.name or \"\"):lower() == q then return item, matches end\n end\n return matches[1], matches\nend\n\nlocal function formatTemplateMatches(title, matches, maxItems)\n maxItems = maxItems or 12\n if #matches == 0 then return title .. \":\\n None\" end\n local lines = {title .. \":\"}\n for i = 1, math.min(#matches, maxItems) do\n local item = matches[i]\n local suffix = item.text and item.text ~= \"\" and (\" - \" .. item.text) or \"\"\n lines[#lines + 1] = \" \" .. i .. \". \" .. item.name .. \" (\" .. item.category .. \")\" .. suffix\n end\n if #matches > maxItems then\n lines[#lines + 1] = \" +\" .. (#matches - maxItems) .. \" more. Use: templates find \"\n end\n return table.concat(lines, \"\\n\")\nend\n\nlocal function applyChatTemplate(item, mode)\n if not item then return \"No template selected\" end\n local text = item.text or \"\"\n if text == \"\" then return \"Template has no solfege text preview\" end\n mode = (mode or \"add\"):lower()\n if mode == \"set\" or mode == \"replace\" then\n if _actions.setSolfegeText then _actions.setSolfegeText(text) end\n return \"Set template: \" .. item.name .. \" - \" .. text\n elseif mode == \"play\" or mode == \"hear\" then\n if _actions.playSolfegeText then _actions.playSolfegeText(text) end\n return \"Played template: \" .. item.name .. \" - \" .. text\n elseif mode == \"loop\" then\n if _actions.loopSolfegeText then _actions.loopSolfegeText(text) end\n return \"Looping template: \" .. item.name .. \" - \" .. text\n end\n if _actions.addSolfegeText then _actions.addSolfegeText(text) end\n return \"Added template: \" .. item.name .. \" - \" .. text\nend\n\naddCommand(\"help\", \"help [command]\", \"Show available commands or detail for one\", function(args)\n args = trim(args)\n if #args > 0 then\n local requested = args:lower()\n if requested == \"solfege\" or requested == \"notes\" then\n return table.concat({\n \"Solfege chat:\",\n \" do re mi Add and play\",\n \" add do re mi Add to text box\",\n \" chord do mi sol Add chord stack\",\n \" set do re mi Replace text box\",\n \" play do re mi Play once\",\n \" play major Play a scale up & down\",\n \" play major then minor\",\n \" hear blues scale\",\n \" loop do re mi Loop until stopped\",\n \" live do re mi Replace and loop\",\n \" save melody Riff 1\",\n \" save do re mi as Riff 1\",\n \" drone on/off Toggle solfege drone\",\n \" lyrics Kyrie eleison\",\n \" lyrics add Christe eleison\",\n \" replace 2 mi\",\n \" insert 3 fa sol\",\n \" delete 4-5\",\n \" change mi to me\",\n \" change 3 up\",\n \" swap do sol\",\n \" repeat 4 do Expand phrase\",\n \" make arch 8 Generate phrase\",\n \" template Major Triad\",\n \" template play Blues\",\n \" templates find minor\",\n \" ask what notes are in this pattern\",\n \" reverse do re mi\",\n \" rhythm 1/8 do re mi\",\n \" loop on/off Toggle playback loop\",\n \" clear all Clear text, lyrics, and steps\",\n }, \"\\n\")\n end\n local name = resolveCommandName(requested)\n local entry = commands[name]\n if entry then\n local aliasList = {}\n for alias, target in pairs(aliases) do\n if target == name then aliasList[#aliasList + 1] = alias end\n end\n table.sort(aliasList)\n local lines = {entry.usage, entry.description}\n if #aliasList > 0 then\n lines[#lines + 1] = \"Aliases: \" .. table.concat(aliasList, \", \")\n end\n return table.concat(lines, \"\\n\")\n end\n return \"Unknown command: \" .. args\n end\n local lines = {\n \"Try:\",\n \" do re mi Add and play\",\n \" add do re mi Add to text box\",\n \" chord do mi sol Add chord stack\",\n \" set do re mi Replace text box\",\n \" play do re mi Play once\",\n \" play major Play a scale\",\n \" play major then minor\",\n \" loop do re mi Loop\",\n \" live do re mi Replace and loop\",\n \" make arch 8 Generate phrase\",\n \" template Major Triad\",\n \" templates find minor\",\n \" ask about the current pattern\",\n \" save melody Riff 1\",\n \" drone on/off Toggle solfege drone\",\n \" lyrics Kyrie eleison\",\n \" replace 2 mi\",\n \" insert 3 fa sol\",\n \" delete 4-5\",\n \" change mi to me\",\n \" change 3 up\",\n \" swap do sol\",\n \" undo / redo\",\n \" loop on/off Toggle playback loop\",\n \" clear all Clear text, lyrics, and steps\",\n \"\",\n \"Commands:\",\n }\n for _, name in ipairs(commandOrder) do\n local entry = commands[name]\n if entry and not entry.hidden then\n lines[#lines+1] = \" \" .. name .. \" - \" .. entry.description\n end\n end\n return table.concat(lines, \"\\n\")\nend)\n\naddCommand(\"info\", \"info\", \"Show current state\", function()\n local s = _state\n local keyName = NOTE_DISPLAY[(s.keyNote or 0) + 1] or \"C\"\n local scaleName = s.solfegeScale or s.scaleMode or \"major\"\n local playing = s.isPlaying and \"Playing\" or \"Stopped\"\n local seqLen = s.sequenceLength or 0\n local loopState = s.loopPlayback and \"On\" or \"Off\"\n local droneState = s.droneEnabled and (\"On \" .. getSolfegeDisplayName(s.droneNoteSelection or 0) .. tostring(s.droneOctave or 4)) or \"Off\"\n local defaultLength\n if _core and _core.getStepBeatsShortLabel then\n defaultLength = _core.getStepBeatsShortLabel(s.stepBeats or 1)\n else\n defaultLength = tostring(s.stepBeats or 1)\n end\n local lines = {\n playing .. \" | Tempo: \" .. (s.tempo or s.defaultTempo or 120) .. \" BPM\",\n \"Key: \" .. keyName .. \" | Scale: \" .. scaleName,\n \"Loop: \" .. loopState .. \" | Octave: \" .. (s.currentOctave or s.keyOctave or 4),\n \"Drone: \" .. droneState,\n \"Default: \" .. defaultLength .. \" | Steps: \" .. seqLen,\n \"Mode: \" .. (s.solfegeTextMode or \"both\"),\n }\n if s.stepLoopStart and s.stepLoopEnd then\n lines[#lines+1] = \"Loop: \" .. s.stepLoopStart .. \"-\" .. s.stepLoopEnd\n end\n return table.concat(lines, \"\\n\")\nend)\n\naddCommand(\"ask\", \"ask \", \"Answer questions about the current solfege pattern\", function(args)\n args = trim(args)\n if args == \"\" then\n return answerPatternQuestion(\"summary\")\n end\n return answerPatternQuestion(args)\nend)\n\naddCommand(\"view\", \"view [show|hide|toggle]\", \"Show or hide notation details\", function(args)\n args = trim(args)\n local targetRaw, stateRaw = args:match(\"^(%S+)%s*(.*)$\")\n targetRaw = (targetRaw or \"\"):lower():gsub(\"_\", \"-\")\n stateRaw = trim(stateRaw or \"\")\n\n local key, label\n if targetRaw == \"length\" or targetRaw == \"lengths\" or targetRaw == \"note-length\" or targetRaw == \"note-lengths\" then\n key = \"showNoteLengths\"\n label = \"Note lengths\"\n elseif targetRaw == \"octave\" or targetRaw == \"octaves\" or targetRaw == \"octave-number\" or targetRaw == \"octave-numbers\" then\n key = \"showOctaveNumbers\"\n label = \"Octave numbers\"\n else\n return \"Usage: view [show|hide|toggle]\"\n end\n\n local desired, err = parseToggleState(stateRaw)\n if err then return err end\n if desired == nil then\n desired = not (_state[key] ~= false)\n end\n _state[key] = desired\n if _actions.savePreferences then _actions.savePreferences() end\n return label .. \": \" .. (desired and \"shown\" or \"hidden\")\nend)\n\naddCommand(\"undo\", \"undo\", \"Undo the last text or step edit\", function()\n if not _actions.undoEdit then return \"Undo is not available\" end\n local result = _actions.undoEdit()\n return result or \"Nothing to undo\"\nend)\n\naddCommand(\"redo\", \"redo\", \"Redo the last text or step edit\", function()\n if not _actions.redoEdit then return \"Redo is not available\" end\n local result = _actions.redoEdit()\n return result or \"Nothing to redo\"\nend)\n\naddCommand(\"bpm\", \"bpm <30-300>\", \"Set tempo\", function(args)\n local n = tonumber(trim(args))\n if not n then return \"Usage: bpm \" end\n n = math.max(30, math.min(300, math.floor(n)))\n if _actions.setTempo then _actions.setTempo(n) end\n return \"Tempo set to \" .. n .. \" BPM\"\nend)\n\nlocal function adjustTempoBy(delta)\n local current = tonumber(_state.tempo or _state.defaultTempo) or 120\n local nextTempo = math.max(30, math.min(300, math.floor(current + delta)))\n if _actions.setTempo then _actions.setTempo(nextTempo) end\n return nextTempo\nend\n\naddCommand(\"faster\", \"faster [amount]\", \"Increase tempo\", function(args)\n local amount = tonumber(trim(args)) or 10\n amount = math.max(1, math.min(100, math.floor(math.abs(amount))))\n local nextTempo = adjustTempoBy(amount)\n return \"Faster: \" .. nextTempo .. \" BPM\"\nend)\n\naddCommand(\"slower\", \"slower [amount]\", \"Decrease tempo\", function(args)\n local amount = tonumber(trim(args)) or 10\n amount = math.max(1, math.min(100, math.floor(math.abs(amount))))\n local nextTempo = adjustTempoBy(-amount)\n return \"Slower: \" .. nextTempo .. \" BPM\"\nend)\n\naddCommand(\"play\", \"play [do re mi... | major | minor | ...]\", \"Start playback, play solfege, or play a scale\", function(args)\n args = trim(args)\n if #args > 0 then\n if args:lower() == \"this\" or args:lower() == \"current\" or args:lower() == \"melody\" then\n local solfegeText, err = getCurrentSolfegeText()\n if not solfegeText then return err end\n if _actions.playSolfegeText then\n local ok, playErr = _actions.playSolfegeText(solfegeText, _state.loopPlayback == true, true)\n if ok == false then return playErr or \"Nothing to play\" end\n end\n return \"Played: \" .. solfegeText\n end\n local scalePhrase, scaleLabel = buildScalePhrase(args)\n if scalePhrase then\n local result = handleSolfegeText(scalePhrase, true, false, true)\n if result then return \"Played \" .. scaleLabel .. \" scale: \" .. scalePhrase end\n end\n local result = handleSolfegeText(args, true, false, true)\n return result or \"Usage: play [do re mi... | major | minor | ...]\\nScales: \" .. scaleNamesListText()\n end\n local resumedSolfegeLoop = _actions.resumeSolfegeLoop and _actions.resumeSolfegeLoop() == true\n if _state.isPaused and _actions.startPlayback then\n local ok, err = _actions.startPlayback()\n if not ok then\n return err or \"Nothing to resume\"\n end\n return resumedSolfegeLoop and \"Playback and solfege loop resumed\" or \"Playback resumed\"\n end\n if resumedSolfegeLoop then\n return \"Solfege playback resumed\"\n end\n if _state.isPlaying then return \"Already playing\" end\n if _actions.startPlayback then\n local ok, err = _actions.startPlayback()\n if not ok then\n return err or \"Nothing to play. Type solfege like 'do re mi' first.\"\n end\n end\n return \"Playback started\"\nend)\n\nlocal function setDroneCommand(args, forcedEnabled)\n args = trim(args)\n local lower = args:lower()\n local enabled = forcedEnabled\n local noteIndex\n local octave\n\n if lower == \"\" and enabled == nil then\n enabled = not (_state.droneEnabled == true)\n elseif lower == \"on\" or lower == \"start\" or lower == \"add\" or lower == \"play\" then\n enabled = true\n elseif lower == \"off\" or lower == \"stop\" or lower == \"remove\" or lower == \"mute\" then\n enabled = false\n else\n local maybeOctave = lower:match(\"^octave%s+(%d+)$\") or lower:match(\"^oct%s+(%d+)$\")\n if maybeOctave then\n octave = math.max(2, math.min(7, math.floor(tonumber(maybeOctave) or 4)))\n enabled = true\n else\n local noteText, octaveText = lower:match(\"^(.-)%s+octave%s+(%d+)$\")\n if noteText then\n noteIndex = parseDroneNote(noteText)\n octave = math.max(2, math.min(7, math.floor(tonumber(octaveText) or 4)))\n else\n noteIndex = parseDroneNote(lower)\n end\n if noteIndex == nil then\n return \"Usage: drone [on|off|do|re|mi|fa|sol|la|ti|octave 2-7]\"\n end\n enabled = true\n end\n end\n\n if _actions.setDrone then\n _actions.setDrone({\n enabled = enabled,\n note = noteIndex,\n octave = octave,\n })\n else\n _state.droneEnabled = enabled == true\n if noteIndex ~= nil then _state.droneNoteSelection = noteIndex end\n if octave ~= nil then _state.droneOctave = octave end\n if _actions.savePreferences then _actions.savePreferences() end\n end\n\n if enabled then\n local noteName = getSolfegeDisplayName(_state.droneNoteSelection or noteIndex or 0)\n return \"Drone on: \" .. noteName .. tostring(_state.droneOctave or octave or 4)\n end\n return \"Drone off\"\nend\n\naddCommand(\"drone\", \"drone [on|off|do|re|mi|fa|sol|la|ti|octave 2-7]\", \"Control the solfege drone\", function(args)\n return setDroneCommand(args)\nend)\n\naddCommand(\"stop\", \"stop [drone]\", \"Stop playback or the drone\", function(args)\n if trim(args):lower() == \"drone\" then\n return setDroneCommand(\"off\", false)\n end\n local stoppedSolfegeLoop = false\n if _actions.stopSolfegeLoop then\n stoppedSolfegeLoop = _actions.stopSolfegeLoop() == true\n end\n if not _state.isPlaying then\n return stoppedSolfegeLoop and \"Solfege loop stopped\" or \"Already stopped\"\n end\n if _actions.stopPlayback then _actions.stopPlayback() end\n if stoppedSolfegeLoop then\n return \"Playback and solfege loop stopped\"\n end\n return \"Playback stopped\"\nend)\n\nlocal function setChatMuteCommand(args, forced)\n args = trim(args)\n local lowerArgs = args:lower()\n local muted\n if forced ~= nil then\n muted = forced\n elseif args == \"\" or lowerArgs == \"toggle\" then\n muted = not (_state.cmdChatMuted == true)\n elseif isOneOf(lowerArgs, {\"on\", \"true\", \"yes\", \"1\"}) then\n muted = true\n elseif isOneOf(lowerArgs, {\"off\", \"false\", \"no\", \"0\"}) then\n muted = false\n else\n return \"Usage: mute [on|off]\"\n end\n\n if _actions.setChatMuted then\n _actions.setChatMuted(muted)\n else\n _state.cmdChatMuted = muted\n end\n return muted and \"Chat muted\" or \"Chat unmuted\"\nend\n\naddCommand(\"mute\", \"mute [on|off]\", \"Mute chat audition sounds\", function(args)\n return setChatMuteCommand(args)\nend)\n\naddCommand(\"unmute\", \"unmute\", \"Unmute chat audition sounds\", function()\n return setChatMuteCommand(\"\", false)\nend)\n\nlocal function formatVolumePercent(volume)\n return tostring(math.floor((volume or 0) * 100 + 0.5)) .. \"%\"\nend\n\nlocal function parseVolumeValue(args)\n local text = trim(args):lower()\n if text == \"\" then\n return nil\n end\n\n text = text:gsub(\"^to%s+\", \"\")\n text = text:gsub(\"^at%s+\", \"\")\n text = text:gsub(\"^set%s+\", \"\")\n text = trim(text)\n\n local rawNumber = text:match(\"^(%d+%.?%d*)%s*%%?$\")\n if not rawNumber then\n return nil, \"Usage: volume <0-100%|up|down>\"\n end\n\n local value = tonumber(rawNumber)\n if not value then\n return nil, \"Usage: volume <0-100%|up|down>\"\n end\n\n if text:find(\"%%\") or value > 1 then\n value = value / 100\n end\n return math.max(0, math.min(1, value))\nend\n\nlocal function parseVolumeStep(rawAmount)\n local amount = trim(rawAmount or \"\")\n if amount == \"\" then\n return 0.1\n end\n\n local value, err = parseVolumeValue(amount)\n if err then return nil, err end\n return value\nend\n\naddCommand(\"volume\", \"volume [0-100%|up|down]\", \"Show or set master volume\", function(args)\n local text = trim(args):lower()\n local direction, amount = text:match(\"^(up)%s*(.*)$\")\n if not direction then\n direction, amount = text:match(\"^(down)%s*(.*)$\")\n end\n if not direction then\n direction, amount = text:match(\"^(increase)%s*(.*)$\")\n end\n if not direction then\n direction, amount = text:match(\"^(decrease)%s*(.*)$\")\n end\n\n local volume, err\n if direction then\n local step\n step, err = parseVolumeStep(amount)\n if err then return err end\n local current = math.max(0, math.min(1, tonumber(_state.masterVolume) or 1))\n if direction == \"up\" or direction == \"increase\" then\n volume = math.min(1, current + step)\n else\n volume = math.max(0, current - step)\n end\n else\n volume, err = parseVolumeValue(args)\n end\n if err then return err end\n\n if volume == nil then\n return \"Volume: \" .. formatVolumePercent(_state.masterVolume or 1)\n end\n\n if _actions.setMasterVolume then\n _actions.setMasterVolume(volume)\n else\n _state.masterVolume = volume\n if _actions.savePreferences then _actions.savePreferences() end\n end\n return \"Volume set to \" .. formatVolumePercent(volume)\nend)\n\naddCommand(\"hear\", \"hear \", \"Play solfege syllables or a scale without adding them\", function(args)\n args = trim(args)\n if args:lower() == \"this\" or args:lower() == \"current\" or args:lower() == \"melody\" then\n local solfegeText, err = getCurrentSolfegeText()\n if not solfegeText then return err end\n if _actions.playSolfegeText then\n local ok, playErr = _actions.playSolfegeText(solfegeText, _state.loopPlayback == true, true)\n if ok == false then return playErr or \"Nothing to play\" end\n end\n return \"Played: \" .. solfegeText\n end\n local scalePhrase, scaleLabel = buildScalePhrase(args)\n if scalePhrase then\n local result = handleSolfegeText(scalePhrase, true, false, true)\n if result then return \"Played \" .. scaleLabel .. \" scale: \" .. scalePhrase end\n end\n local result = handleSolfegeText(args, true, false, true)\n return result or \"Usage: hear \\nScales: \" .. scaleNamesListText()\nend)\n\naddCommand(\"add\", \"add \", \"Add solfege syllables to the text box\", function(args)\n if trim(args):lower() == \"drone\" then\n return setDroneCommand(\"on\", true)\n end\n local result = handleSolfegeText(args, false, true)\n return result or \"Usage: add \"\nend)\n\naddCommand(\"set\", \"set \", \"Replace the text box with solfege syllables\", function(args)\n local solfegeText, err = solfegeTextOrUsage(args, \"Usage: set \")\n if not solfegeText then return err end\n if _actions.setSolfegeText then\n _actions.setSolfegeText(solfegeText)\n elseif _actions.addSolfegeText then\n _actions.addSolfegeText(solfegeText)\n end\n return \"Set: \" .. solfegeText\nend)\n\naddCommand(\"live\", \"live \", \"Replace the text box and loop solfege syllables\", function(args)\n local solfegeText, err = solfegeTextOrUsage(args, \"Usage: live \")\n if not solfegeText then return err end\n if _actions.setSolfegeText then\n _actions.setSolfegeText(solfegeText)\n end\n if _actions.loopSolfegeText then\n _actions.loopSolfegeText(solfegeText)\n elseif _actions.playSolfegeText then\n _actions.playSolfegeText(solfegeText)\n end\n return \"Live loop: \" .. solfegeText\nend)\n\naddCommand(\"chord\", \"chord [add|set|play|loop] \", \"Create a chord stack from solfege syllables\", function(args)\n args = trim(args)\n if args == \"\" then return \"Usage: chord [add|set|play|loop] \" end\n\n local first, rest = args:match(\"^(%S+)%s+(.+)$\")\n local mode = (first or \"\"):lower()\n if mode ~= \"add\" and mode ~= \"set\" and mode ~= \"replace\" and mode ~= \"play\"\n and mode ~= \"hear\" and mode ~= \"loop\" and mode ~= \"live\" then\n mode = \"add\"\n rest = args\n end\n\n local chordText = chordTextFromPhrase(rest or \"\")\n if not chordText then return \"Usage: chord [add|set|play|loop] \" end\n\n if mode == \"set\" or mode == \"replace\" then\n if _actions.setSolfegeText then\n _actions.setSolfegeText(chordText)\n elseif _actions.addSolfegeText then\n _actions.addSolfegeText(chordText)\n end\n return \"Set chord: \" .. chordText\n elseif mode == \"play\" or mode == \"hear\" then\n if _actions.playSolfegeText then\n local ok, err = _actions.playSolfegeText(chordText, _state.loopPlayback == true, true)\n if ok == false then return err or \"Nothing to play\" end\n end\n return \"Played chord: \" .. chordText\n elseif mode == \"loop\" or mode == \"live\" then\n if _actions.loopSolfegeText then\n _actions.loopSolfegeText(chordText, true)\n elseif _actions.playSolfegeText then\n _actions.playSolfegeText(chordText, false, true)\n end\n return \"Looping chord: \" .. chordText\n end\n\n if _actions.addSolfegeText then\n _actions.addSolfegeText(chordText)\n end\n return \"Added chord: \" .. chordText\nend)\n\naddCommand(\"lyrics\", \"lyrics | lyrics add | lyrics notes | lyrics clear\", \"Set, add, or import lyric text\", function(args)\n args = trim(args)\n if args == \"\" then\n return \"Usage: lyrics | lyrics add | lyrics notes | lyrics clear\"\n end\n local sub, rest = args:match(\"^(%S+)%s*(.*)$\")\n local lowerSub = (sub or \"\"):lower()\n if lowerSub == \"clear\" then\n if _actions.clearLyrics then _actions.clearLyrics() end\n return \"Lyrics cleared\"\n elseif lowerSub == \"add\" or lowerSub == \"append\" then\n rest = trim(rest)\n if rest == \"\" then return \"Usage: lyrics add \" end\n if _actions.addLyricsText then\n _actions.addLyricsText(rest)\n elseif _actions.setLyricsText then\n _actions.setLyricsText(rest)\n end\n return \"Added lyrics: \" .. rest\n elseif lowerSub == \"notes\" or lowerSub == \"note\" or lowerSub == \"scratch\" then\n rest = trim(rest)\n if rest == \"\" then return \"Usage: lyrics notes \" end\n if _actions.setLyricNotesText then\n _actions.setLyricNotesText(rest)\n end\n return \"Lyric notes: \" .. rest\n elseif lowerSub == \"import\" or lowerSub == \"apply\" then\n rest = trim(rest)\n if rest == \"\" then return \"Usage: lyrics import \" end\n if _actions.importLyricsText and _actions.importLyricsText(rest) then\n return \"Imported lyrics: \" .. rest\n end\n return \"No lyric words found\"\n end\n if _actions.setLyricsText then\n _actions.setLyricsText(args)\n elseif _actions.importLyricsText then\n _actions.importLyricsText(args)\n end\n return \"Set lyrics: \" .. args\nend)\n\naddCommand(\"repeat\", \"repeat <1-32> \", \"Repeat a solfege phrase into the text box\", function(args)\n local solfegeText, err = repeatSolfegeText(args)\n if not solfegeText then return err end\n if _actions.setSolfegeText then\n _actions.setSolfegeText(solfegeText)\n elseif _actions.addSolfegeText then\n _actions.addSolfegeText(solfegeText)\n end\n return \"Repeated: \" .. solfegeText\nend)\n\naddCommand(\"make\", \"make [1-32]\", \"Generate a solfege phrase\", function(args)\n local kind, count = trim(args):match(\"^(%S+)%s*(%d*)$\")\n local solfegeText = generatedPattern(kind, count)\n if not solfegeText then\n return \"Usage: make [1-32]\"\n end\n return setSolfegeTextResult(\"Made\", solfegeText)\nend)\n\naddCommand(\"reverse\", \"reverse \", \"Reverse a solfege phrase\", function(args)\n args = trim(args)\n local tokens\n if args == \"\" or args:lower() == \"this\" or args:lower() == \"current\" then\n local err\n tokens, err = getCurrentSolfegeTokens()\n if not tokens then return err end\n else\n tokens = splitSolfegeText(args)\n end\n if not tokens then return \"Usage: reverse \" end\n local out = {}\n for i = #tokens, 1, -1 do out[#out + 1] = tokens[i] end\n return setSolfegeTextResult(\"Reversed\", joinTokens(out))\nend)\n\naddCommand(\"rotate\", \"rotate \", \"Rotate a solfege phrase\", function(args)\n local rawSteps, phrase = trim(args):match(\"^([%-]?%d+)%s+(.+)$\")\n local tokens = splitSolfegeText(phrase or \"\")\n local steps = tonumber(rawSteps)\n if not steps or not tokens then return \"Usage: rotate \" end\n local out = {}\n local n = #tokens\n local shift = ((steps % n) + n) % n\n for i = 1, n do\n out[i] = tokens[((i - shift - 1) % n) + 1]\n end\n return setSolfegeTextResult(\"Rotated\", joinTokens(out))\nend)\n\naddCommand(\"rhythm\", \"rhythm \", \"Apply one duration to a solfege phrase\", function(args)\n args = trim(args)\n local duration, phrase = args:match(\"^(%S+)%s+(.+)$\")\n if duration and (phrase:lower() == \"this\" or phrase:lower() == \"current\") then\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n phrase = joinTokens(current)\n elseif not duration and args ~= \"\" then\n duration = args\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n phrase = joinTokens(current)\n end\n local solfegeText = duration and applyRhythm(duration, phrase)\n if not solfegeText then return \"Usage: rhythm \" end\n return setSolfegeTextResult(\"Rhythm\", solfegeText)\nend)\n\naddCommand(\"length\", \"length | length \", \"Set default or step note length\", function(args)\n args = trim(args)\n local a, b = args:match(\"^(%S+)%s+(%S+)$\")\n if a and b then\n local beats = parseDurationBeats(b)\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local startIdx, endIdx = parseIndexRange(a, #current, false)\n if not startIdx or not beats then return \"Usage: length \" end\n if startIdx < 1 or endIdx > #current then\n return \"Step out of range. Current length: \" .. #current\n end\n local suffix = b:gsub(\"^1/\", \"\")\n for i = startIdx, endIdx do\n current[i] = applyTokenDuration(current[i], suffix)\n end\n local text = setCurrentSolfegeTokens(current)\n return \"Length \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") .. \" set to \" .. b .. \": \" .. text\n end\n\n local beats = parseDurationBeats(args)\n if not beats then return \"Usage: length | length \" end\n if _actions.setStepLength then\n _actions.setStepLength(beats)\n end\n return \"Default note length: \" .. args\nend)\n\naddCommand(\"vary\", \"vary \", \"Create a phrase plus its reverse\", function(args)\n local tokens = splitSolfegeText(args)\n if not tokens then return \"Usage: vary \" end\n local out = {}\n for i = 1, #tokens do out[#out + 1] = tokens[i] end\n for i = #tokens, 1, -1 do out[#out + 1] = tokens[i] end\n return setSolfegeTextResult(\"Variation\", joinTokens(out))\nend)\n\naddCommand(\"replace\", \"replace \", \"Replace solfege syllables at step positions\", function(args)\n local rangeRaw, phrase = trim(args):match(\"^(%S+)%s+(.+)$\")\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local startIdx, endIdx = parseIndexRange(rangeRaw or \"\", #current, false)\n local replacement = splitSolfegeText(phrase or \"\")\n if not startIdx or not replacement then\n return \"Usage: replace \"\n end\n if startIdx < 1 or startIdx > #current or endIdx > #current then\n return \"Step out of range. Current length: \" .. #current\n end\n local out = {}\n for i = 1, startIdx - 1 do out[#out + 1] = current[i] end\n for _, token in ipairs(replacement) do out[#out + 1] = token end\n for i = endIdx + 1, #current do out[#out + 1] = current[i] end\n local text = setCurrentSolfegeTokens(out)\n return \"Replaced \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") .. \": \" .. text\nend)\n\naddCommand(\"insert\", \"insert \", \"Insert solfege syllables before a step\", function(args)\n local indexRaw, phrase = trim(args):match(\"^(%S+)%s+(.+)$\")\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local insertAt = parseIndexRange(indexRaw or \"\", #current, true)\n local inserted = splitSolfegeText(phrase or \"\")\n if not insertAt or not inserted then\n return \"Usage: insert \"\n end\n if insertAt < 1 or insertAt > #current + 1 then\n return \"Insert position out of range. Use 1-\" .. (#current + 1) .. \" or end\"\n end\n local out = {}\n for i = 1, insertAt - 1 do out[#out + 1] = current[i] end\n for _, token in ipairs(inserted) do out[#out + 1] = token end\n for i = insertAt, #current do out[#out + 1] = current[i] end\n local text = setCurrentSolfegeTokens(out)\n return \"Inserted at \" .. insertAt .. \": \" .. text\nend)\n\naddCommand(\"delete\", \"delete \", \"Delete solfege syllables from the sequence\", function(args)\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local startIdx, endIdx = parseIndexRange(args, #current, false)\n if not startIdx then return \"Usage: delete \" end\n if startIdx < 1 or startIdx > #current or endIdx > #current then\n return \"Step out of range. Current length: \" .. #current\n end\n local out = {}\n for i = 1, #current do\n if i < startIdx or i > endIdx then out[#out + 1] = current[i] end\n end\n local text = setCurrentSolfegeTokens(out)\n return \"Deleted \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") .. \": \" .. text\nend)\n\naddCommand(\"change\", \"change to | change up|down [N]\", \"Edit syllables across the current pattern\", function(args)\n args = trim(args)\n local fromRaw, toRaw = args:match(\"^(%S+)%s+to%s+(%S+)$\")\n if fromRaw and toRaw then\n local from = canonicalSolfegeSyllable(fromRaw)\n local to = canonicalSolfegeSyllable(toRaw)\n if not from or not to then return \"Usage: change to \" end\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local changed = 0\n for i, token in ipairs(current) do\n local nextToken, didChange = replaceTokenSyllable(token, from, to)\n current[i] = nextToken\n if didChange then changed = changed + 1 end\n end\n if changed == 0 then return \"No \" .. from .. \" syllables found\" end\n local text = setCurrentSolfegeTokens(current)\n return \"Changed \" .. from .. \" to \" .. to .. \" (\" .. changed .. \"): \" .. text\n end\n\n local rangeRaw, directionRaw, amountRaw = args:match(\"^(%S+)%s+(up)%s*(%d*)$\")\n if not rangeRaw then\n rangeRaw, directionRaw, amountRaw = args:match(\"^(%S+)%s+(down)%s*(%d*)$\")\n end\n if rangeRaw and directionRaw then\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local startIdx, endIdx = parseIndexRange(rangeRaw, #current, false)\n if not startIdx then return \"Usage: change up|down [N]\" end\n if startIdx < 1 or startIdx > #current or endIdx > #current then\n return \"Step out of range. Current length: \" .. #current\n end\n local amount = math.max(1, math.min(24, math.floor(tonumber(amountRaw) or 1)))\n local steps = directionRaw == \"up\" and amount or -amount\n local changed = 0\n for i = startIdx, endIdx do\n local nextToken, didChange = shiftTokenSyllable(current[i], steps)\n current[i] = nextToken\n if didChange then changed = changed + 1 end\n end\n if changed == 0 then return \"No editable syllables in \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") end\n local text = setCurrentSolfegeTokens(current)\n return \"Changed \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") .. \" \" .. directionRaw .. \": \" .. text\n end\n\n return \"Usage: change to | change up|down [N]\"\nend)\n\naddCommand(\"swap\", \"swap \", \"Swap two syllables throughout the current pattern\", function(args)\n local leftRaw, rightRaw = trim(args):match(\"^(%S+)%s+(%S+)$\")\n local left = leftRaw and canonicalSolfegeSyllable(leftRaw)\n local right = rightRaw and canonicalSolfegeSyllable(rightRaw)\n if not left or not right or left == right then return \"Usage: swap \" end\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local changed = 0\n for i, token in ipairs(current) do\n local nextToken, leftChanged = replaceTokenSyllable(token, left, \"__swap__\")\n nextToken, rightChanged = replaceTokenSyllable(nextToken, right, left)\n nextToken = nextToken:gsub(\"__swap__\", right)\n current[i] = nextToken\n if leftChanged or rightChanged then changed = changed + 1 end\n end\n if changed == 0 then return \"No \" .. left .. \" or \" .. right .. \" syllables found\" end\n local text = setCurrentSolfegeTokens(current)\n return \"Swapped \" .. left .. \" and \" .. right .. \": \" .. text\nend)\n\naddCommand(\"save\", \"save melody | save as \", \"Save a solfege melody as a reusable template\", function(args)\n args = trim(args)\n if args == \"\" or args:lower() == \"melody\" or args:lower() == \"current\" then\n return saveSolfegeMelody(nil, nil)\n end\n\n local lower = args:lower()\n local currentName = args:match(\"^[Mm]elody%s+(.+)$\")\n or args:match(\"^[Cc]urrent%s+[Aa]s%s+(.+)$\")\n or args:match(\"^[Cc]urrent%s+(.+)$\")\n if currentName then\n return saveSolfegeMelody(currentName, nil)\n end\n\n local phrase, name = args:match(\"^(.-)%s+[Aa][Ss]%s+(.+)$\")\n if phrase and name then\n local solfegeText, err = solfegeTextOrUsage(phrase, \"Usage: save as \")\n if not solfegeText then return err end\n return saveSolfegeMelody(name, solfegeText)\n end\n\n if parseSolfegeChatTokens(args) then\n return saveSolfegeMelody(nil, table.concat(parseSolfegeChatTokens(args), \" \"))\n end\n\n if lower:match(\"^as%s+\") then\n return saveSolfegeMelody(args:gsub(\"^[Aa][Ss]%s+\", \"\"), nil)\n end\n return \"Usage: save melody | save as \"\nend)\n\naddCommand(\"pause\", \"pause\", \"Pause playback\", function()\n local pausedSolfegeLoop = false\n if _actions.pauseSolfegeLoop then\n pausedSolfegeLoop = _actions.pauseSolfegeLoop() == true\n end\n if _state.isPlaying and _actions.pausePlayback then\n _actions.pausePlayback()\n if pausedSolfegeLoop then\n return \"Playback and solfege loop paused\"\n end\n return \"Playback paused\"\n end\n if pausedSolfegeLoop then\n return \"Solfege playback paused\"\n end\n return \"Playback paused\"\nend)\n\naddCommand(\"resume\", \"resume\", \"Resume paused playback\", function()\n local resumedSolfegeLoop = _actions.resumeSolfegeLoop and _actions.resumeSolfegeLoop() == true\n if _state.isPaused and _actions.startPlayback then\n local ok, err = _actions.startPlayback()\n if not ok then\n return err or \"Nothing to resume\"\n end\n return resumedSolfegeLoop and \"Playback and solfege loop resumed\" or \"Playback resumed\"\n end\n if resumedSolfegeLoop then\n return \"Solfege playback resumed\"\n end\n if _state.isPlaying then return \"Already playing\" end\n return \"Nothing to resume\"\nend)\n\naddCommand(\"key\", \"key \", \"Set key root\", function(args)\n local name = trim(args):lower()\n local val = NOTE_NAMES[name]\n if not val then return \"Unknown key. Use: C, C#, D, D#, E, F, F#, G, G#, A, A#, B (or flats: Db, Eb, etc.)\" end\n _state.keyNote = val\n if _actions.savePreferences then _actions.savePreferences() end\n return \"Key set to \" .. NOTE_DISPLAY[val + 1]\nend)\n\naddCommand(\"scale\", \"scale \", \"Set scale mode\", function(args)\n local name = trim(args):lower()\n if #name == 0 then\n return \"Scales: \" .. table.concat(_core.solfegeScaleModes, \", \")\n end\n for _, mode in ipairs(_core.solfegeScaleModes) do\n if mode:lower() == name or mode:lower():find(name, 1, true) then\n if _actions.setScale then\n _actions.setScale(mode)\n else\n _state.solfegeScale = mode\n _state.scaleMode = mode\n _core.solfegeNotes = _core.getSolfegeNotes(mode)\n if _actions.savePreferences then _actions.savePreferences() end\n end\n return \"Scale set to \" .. mode\n end\n end\n return \"Unknown scale. Options: \" .. table.concat(_core.solfegeScaleModes, \", \")\nend)\n\naddCommand(\"octave\", \"octave <1-7|up|down> | octave <1-7>\", \"Set default or step octave\", function(args)\n args = trim(args)\n local lower = args:lower()\n local function setDefaultOctave(n)\n n = math.max(1, math.min(7, math.floor(tonumber(n) or 4)))\n _state.keyOctave = n\n _state.currentOctave = n\n if _actions.savePreferences then _actions.savePreferences() end\n return \"Octave set to \" .. n\n end\n\n if lower == \"up\" or lower == \"higher\" then\n return setDefaultOctave((_state.currentOctave or _state.keyOctave or 4) + 1)\n elseif lower == \"down\" or lower == \"lower\" then\n return setDefaultOctave((_state.currentOctave or _state.keyOctave or 4) - 1)\n end\n\n local rangeRaw, octaveRaw = args:match(\"^(%S+)%s+(%d+)$\")\n if rangeRaw and octaveRaw then\n local octave = tonumber(octaveRaw)\n if not octave or octave < 1 or octave > 7 then\n return \"Usage: octave <1-7>\"\n end\n local current, err = getCurrentSolfegeTokens()\n if not current then return err end\n local startIdx, endIdx = parseIndexRange(rangeRaw, #current, false)\n if not startIdx then return \"Usage: octave <1-7>\" end\n if startIdx < 1 or startIdx > #current or endIdx > #current then\n return \"Step out of range. Current length: \" .. #current\n end\n for i = startIdx, endIdx do\n current[i] = applyTokenOctave(current[i], octave)\n end\n local text = setCurrentSolfegeTokens(current)\n return \"Octave \" .. startIdx .. (endIdx ~= startIdx and (\"-\" .. endIdx) or \"\") .. \" set to \" .. octave .. \": \" .. text\n end\n\n local n = tonumber(args)\n if not n or n < 1 or n > 7 then\n return \"Usage: octave <1-7|up|down> | octave <1-7>\"\n end\n return setDefaultOctave(n)\nend)\n\naddCommand(\"pattern-octave\", \"pattern-octave \", \"Shift active pattern octave\", function(args)\n args = trim(args)\n local lower = args:lower()\n local delta\n if lower == \"up\" or lower == \"higher\" then\n delta = 1\n elseif lower == \"down\" or lower == \"lower\" then\n delta = -1\n elseif lower:match(\"^[%+%-]?%d+$\") then\n local target = tonumber(lower)\n local current = 0\n if _state.sequenceOctaveTranspose and _state.activeSequenceIndex then\n current = _state.sequenceOctaveTranspose[_state.activeSequenceIndex] or 0\n end\n delta = target - current\n end\n if not delta then\n return \"Usage: pattern-octave \"\n end\n local newValue\n if _actions.shiftPatternOctave then\n newValue = _actions.shiftPatternOctave(delta)\n else\n local idx = _state.activeSequenceIndex or 1\n _state.sequenceOctaveTranspose = _state.sequenceOctaveTranspose or {}\n local current = _state.sequenceOctaveTranspose[idx] or 0\n newValue = math.max(-3, math.min(3, current + delta))\n _state.sequenceOctaveTranspose[idx] = newValue\n if _actions.savePreferences then _actions.savePreferences() end\n end\n if newValue == nil and _state.sequenceOctaveTranspose then\n newValue = _state.sequenceOctaveTranspose[_state.activeSequenceIndex or 1]\n end\n local sign = (newValue or 0) > 0 and \"+\" or \"\"\n return \"Pattern octave: \" .. sign .. tostring(newValue or 0)\nend)\n\naddCommand(\"project\", \"project name \", \"Rename the current project\", function(args)\n args = trim(args)\n local sub, rest = args:match(\"^(%S+)%s*(.*)$\")\n if (sub or \"\"):lower() ~= \"name\" then\n return \"Usage: project name \"\n end\n rest = trim(rest)\n if rest == \"\" then return \"Usage: project name \" end\n if not _actions.renameProject then return \"Project rename is not available\" end\n local ok, result = _actions.renameProject(rest)\n if ok then\n return \"Project renamed: \" .. tostring(result)\n end\n return tostring(result or \"Could not rename project\")\nend)\n\naddCommand(\"rename\", \"rename project \", \"Rename project or saved melody\", function(args)\n args = trim(args)\n local target, rest = args:match(\"^(%S+)%s+(.+)$\")\n if (target or \"\"):lower() == \"project\" then\n if not _actions.renameProject then return \"Project rename is not available\" end\n local ok, result = _actions.renameProject(rest)\n if ok then\n return \"Project renamed: \" .. tostring(result)\n end\n return tostring(result or \"Could not rename project\")\n end\n return \"Usage: rename project \"\nend)\n\naddCommand(\"templates\", \"templates [category] | templates find \", \"List and search chat templates\", function(args)\n args = trim(args)\n local sub, rest = args:match(\"^(%S+)%s*(.*)$\")\n local lowerSub = (sub or \"\"):lower()\n if lowerSub == \"find\" or lowerSub == \"search\" then\n rest = trim(rest)\n if rest == \"\" then return \"Usage: templates find \" end\n local matches = collectChatTemplateMatches(rest)\n local projectMatches = collectProjectTemplateMatches(rest)\n local lines = {formatTemplateMatches(\"Chat Templates\", matches, 10)}\n if #projectMatches > 0 then\n lines[#lines + 1] = formatTemplateMatches(\"Project Templates\", projectMatches, 6)\n end\n return table.concat(lines, \"\\n\")\n end\n\n local userTemplates = _state.userSolfegeTemplates or {}\n if args:lower() == \"my\" or args:lower() == \"mine\" or args:lower() == \"melodies\" then\n if #userTemplates == 0 then return \"No saved melodies yet\" end\n local lines = {\"My Templates:\"}\n for i, t in ipairs(userTemplates) do\n lines[#lines+1] = \" \" .. i .. \". \" .. (t.name or \"?\") .. \" - \" .. (t.text or \"\")\n end\n return table.concat(lines, \"\\n\")\n end\n\n local chatCats = getChatSolfegeTemplateCategories()\n for _, cat in ipairs(chatCats) do\n if args ~= \"\" and (cat.name or \"\"):lower():find(args:lower(), 1, true) then\n local lines = {cat.name .. \":\"}\n for i, t in ipairs(cat.templates or {}) do\n lines[#lines + 1] = \" \" .. i .. \". \" .. (t.name or \"?\") .. \" - \" .. (t.text or \"\")\n end\n return table.concat(lines, \"\\n\")\n end\n end\n\n if not _tl and #chatCats == 0 then return \"Template library not available\" end\n local cats = _tl and _tl.categories or {}\n if #args == 0 then\n local lines = {\"Categories:\"}\n for _, cat in ipairs(chatCats) do\n lines[#lines+1] = \" \" .. (cat.name or \"Templates\")\n end\n for i, name in ipairs(cats) do\n lines[#lines+1] = \" \" .. i .. \". \" .. name\n end\n if #userTemplates > 0 then\n lines[#lines+1] = \" My Templates\"\n end\n lines[#lines+1] = \"Use: templates , templates find , template \"\n return table.concat(lines, \"\\n\")\n end\n local matchCat\n local argsLower = args:lower()\n for _, name in ipairs(cats) do\n if name:lower() == argsLower or name:lower():find(argsLower, 1, true) then\n matchCat = name\n break\n end\n end\n if not matchCat then return \"No category matching '\" .. args .. \"'\" end\n local templates = _tl.getTemplatesByCategory(matchCat)\n if not templates or #templates == 0 then return \"No templates in \" .. matchCat end\n local lines = {matchCat .. \":\"}\n for i, t in ipairs(templates) do\n lines[#lines+1] = \" \" .. i .. \". \" .. (t.name or t.id or \"?\")\n end\n return table.concat(lines, \"\\n\")\nend)\n\naddCommand(\"template\", \"template [add|set|play|loop|preview|load] \", \"Use templates from chat\", function(args)\n args = trim(args)\n if args == \"\" then\n return \"Usage: template | template set | template play | template load \"\n end\n\n local sub, rest = args:match(\"^(%S+)%s*(.*)$\")\n local mode = (sub or \"\"):lower()\n rest = trim(rest)\n\n if mode == \"load\" or mode == \"project\" then\n if rest == \"\" then return \"Usage: template load \" end\n if not _tl then return \"Project template library not available\" end\n local item = findBestProjectTemplate(rest)\n if not item or not item.template then return \"No project template matching '\" .. rest .. \"'\" end\n local success = _tl.loadTemplate(_state, item.template, _core, {stepsOnly = _state.templateStepsOnly})\n if success then\n if _actions.onTemplateLoaded then _actions.onTemplateLoaded() end\n return \"Loaded project template: \" .. item.name\n end\n return \"Failed to load project template\"\n end\n\n if mode ~= \"add\" and mode ~= \"set\" and mode ~= \"replace\" and mode ~= \"play\" and mode ~= \"hear\"\n and mode ~= \"loop\" and mode ~= \"preview\" and mode ~= \"show\" then\n rest = args\n mode = \"add\"\n end\n if rest == \"\" then return \"Usage: template \" .. mode .. \" \" end\n\n local item, matches = findBestChatTemplate(rest)\n if not item then\n return \"No chat template matching '\" .. rest .. \"'\"\n end\n if mode == \"preview\" or mode == \"show\" then\n local lines = {item.name .. \" (\" .. item.category .. \"):\", \" \" .. (item.text or \"\")}\n if matches and #matches > 1 then\n lines[#lines + 1] = \"Other matches: \" .. math.min(#matches - 1, 9)\n end\n return table.concat(lines, \"\\n\")\n end\n return applyChatTemplate(item, mode)\nend)\n\naddCommand(\"load\", \"load