PakettiMidiPopulator.lua

-- Ensure the renoise API is available
local vb = renoise.ViewBuilder()
local midi_input_devices, midi_output_devices, plugin_dropdown_items, available_plugins
local dialog_content
local custom_dialog

local prefs = renoise.tool().preferences

-- Preferences for storing selected values
local midi_input_device = {}
local midi_input_channel = {}
local midi_output_device = {}
local midi_output_channel = {}
local selected_plugin = {}
local open_external_editor = false

-- Initialize variables when needed
local function initialize_variables()
  midi_input_devices = {"<None>"}
  for _, device in ipairs(renoise.Midi.available_input_devices()) do
    table.insert(midi_input_devices, device)
  end

  midi_output_devices = {"<None>"}
  for _, device in ipairs(renoise.Midi.available_output_devices()) do
    table.insert(midi_output_devices, device)
  end

  -- Ensure there are at least two items in the lists
  if #midi_input_devices < 2 then
    table.insert(midi_input_devices, "No MIDI Input Devices - do not select this")
  end
  if #midi_output_devices < 2 then
    table.insert(midi_output_devices, "No MIDI Output Devices - do not select this")
  end

  plugin_dropdown_items = {"<None>"}
  available_plugins = renoise.song().selected_instrument.plugin_properties.available_plugin_infos
  for _, plugin_info in ipairs(available_plugins) do
    if plugin_info.path:find("/AU/") then
      table.insert(plugin_dropdown_items, "AU: " .. plugin_info.short_name)
    elseif plugin_info.path:find("/VST/") then
      table.insert(plugin_dropdown_items, "VST: " .. plugin_info.short_name)
    elseif plugin_info.path:find("/VST3/") then
      table.insert(plugin_dropdown_items, "VST3: " .. plugin_info.short_name)
    end
  end
  
  for i = 1, 16 do
    midi_input_device[i] = midi_input_devices[1]
    midi_input_channel[i] = i
    midi_output_device[i] = midi_output_devices[1]
    midi_output_channel[i] = i
    selected_plugin[i] = plugin_dropdown_items[1]
  end
end

local note_columns_switch, effect_columns_switch, delay_column_switch, volume_column_switch, panning_column_switch, sample_effects_column_switch, collapsed_switch, incoming_audio_switch, populate_sends_switch, external_editor_switch

local function simplifiedSendCreationNaming()
  local send_tracks = {}
  local count = 0

  -- Collect all send tracks
  for i = 1, #renoise.song().tracks do
    if renoise.song().tracks[i].type == renoise.Track.TRACK_TYPE_SEND then
      -- Store the index and name of each send track
      table.insert(send_tracks, {index = count, name = renoise.song().tracks[i].name, track_number = i - 1})
      count = count + 1
    end
  end

  -- Create the appropriate number of #Send devices
  for i = 1, count do
    loadnative("Audio/Effects/Native/#Send")
  end

  local sendcount = 2  -- Start after existing devices

  -- Assign parameters and names in correct order
  for i = 1, count do
    local send_device = renoise.song().selected_track.devices[sendcount]
    local send_track = send_tracks[i]
    send_device.parameters[3].value = send_track.index
    send_device.display_name = send_track.name
    sendcount = sendcount + 1
  end
end

local function MidiInitChannelTrackInstrument(track_index)
  local midi_in_device = midi_input_device[track_index]
  local midi_in_channel = midi_input_channel[track_index]
  local midi_out_device = midi_output_device[track_index]
  local midi_out_channel = midi_output_channel[track_index]
  local plugin = selected_plugin[track_index]
  local note_columns = note_columns_switch.value
  local effect_columns = effect_columns_switch.value
  local delay_column = (delay_column_switch.value == 2)
  local volume_column = (volume_column_switch.value == 2)
  local panning_column = (panning_column_switch.value == 2)
  local sample_effects_column = (sample_effects_column_switch.value == 2)
  local collapsed = (collapsed_switch.value == 2)
  local incoming_audio = (incoming_audio_switch.value == 2)
  local populate_sends = (populate_sends_switch.value == 2)
  local open_ext_editor = (external_editor_switch.value == 2)

  -- Create a new track
  renoise.song():insert_track_at(track_index)
  local new_track = renoise.song():track(track_index)
  new_track.name = "CH" .. string.format("%02d", midi_in_channel) .. " " .. midi_in_device
  renoise.song().selected_track_index = track_index

  -- Set track column settings
  new_track.visible_note_columns = note_columns
  new_track.visible_effect_columns = effect_columns
  new_track.delay_column_visible = delay_column
  new_track.volume_column_visible = volume_column
  new_track.panning_column_visible = panning_column
  new_track.sample_effects_column_visible = sample_effects_column
  new_track.collapsed = collapsed

  -- Populate send devices
  if populate_sends then
    simplifiedSendCreationNaming()
  end

  -- Load *Line Input device if incoming audio is set to ON
  local checkline = #new_track.devices + 1
  if incoming_audio then
    loadnative("Audio/Effects/Native/#Line Input", checkline)
    checkline = checkline + 1
  end

  -- Create a new instrument
  renoise.song():insert_instrument_at(track_index)
  local new_instrument = renoise.song():instrument(track_index)
  new_instrument.name = "CH" .. string.format("%02d", midi_in_channel) .. " " .. midi_in_device

  -- Set MIDI input properties for the new instrument
  new_instrument.midi_input_properties.device_name = midi_in_device
  new_instrument.midi_input_properties.channel = midi_in_channel
  new_instrument.midi_input_properties.assigned_track = track_index

  -- Set the output device for the new track
  if midi_out_device ~= "<None>" then
    new_instrument.midi_output_properties.device_name = midi_out_device
    new_instrument.midi_output_properties.channel = midi_out_channel
  end

  -- Load the selected plugin for the new instrument
  if plugin and plugin ~= "<None>" then
    local plugin_path
    for _, plugin_info in ipairs(available_plugins) do
      if plugin_info.short_name == plugin:sub(5) then
        plugin_path = plugin_info.path
        break
      end
    end
    if plugin_path then
      new_instrument.plugin_properties:load_plugin(plugin_path)
      -- Rename the instrument
      new_instrument.name = "CH" .. string.format("%02d", midi_in_channel) .. " " .. midi_in_device .. " (" .. plugin:sub(5) .. ")"

      -- Select the instrument to ensure devices are mapped correctly
      renoise.song().selected_instrument_index = track_index

      local currName = renoise.song().selected_track.name
      renoise.song().selected_track.name = currName .. " (" .. plugin:sub(5) .. ")"
        
      -- Add *Instr. Automation and *Instr. MIDI Control to the track immediately after the plugin is loaded
      local instr_automation_device = loadnative("Audio/Effects/Native/*Instr. Automation", checkline)
      if instr_automation_device then
        instr_automation_device.parameters[1].value = track_index - 1
        checkline = checkline + 1
      end

      local instr_midi_control_device = loadnative("Audio/Effects/Native/*Instr. MIDI Control", checkline)
      if instr_midi_control_device then
        instr_midi_control_device.parameters[1].value = track_index - 1
        checkline = checkline + 1
      end

      -- Open external editor if the option is enabled
      if open_ext_editor and new_instrument.plugin_properties.plugin_device then
        new_instrument.plugin_properties.plugin_device.external_editor_visible = true
      end
    end
  end
end

local function on_midi_input_switch_changed(value)
  for i = 1, 16 do
    midi_input_device[i] = midi_input_devices[value]
  end
  -- Update the GUI
  for i = 1, 16 do
    local popup = vb.views["midi_input_popup_" .. i]
    if popup then
      popup.value = value
    end
  end
end

local function on_midi_output_switch_changed(value)
  for i = 1, 16 do
    midi_output_device[i] = midi_output_devices[value]
  end
  -- Update the GUI
  for i = 1, 16 do
    local popup = vb.views["midi_output_popup_" .. i]
    if popup then
      popup.value = value
    end
  end
end

-- Randomize plugin selection
local function randomize_plugin_selection(plugin_type)
  local plugins = {}
  for _, plugin_info in ipairs(available_plugins) do
    if plugin_info.path:find(plugin_type) then
      table.insert(plugins, plugin_info.short_name)
    end
  end

  for i = 1, 16 do
    if #plugins > 0 then
      local random_plugin = plugins[math.random(#plugins)]
      for j, item in ipairs(plugin_dropdown_items) do
        if item:find(plugin_type:sub(2, -2)) and item:find(random_plugin) then
          selected_plugin[i] = item
          vb.views["plugin_popup_" .. i].value = j
          break
        end
      end
    end
  end
end

local function randomize_au_plugins()
  randomize_plugin_selection("/AU/")
end

local function randomize_vst_plugins()
  randomize_plugin_selection("/VST/")
end

local function randomize_vst3_plugins()
  randomize_plugin_selection("/VST3/")
end

local function clear_plugin_selection()
  for i = 1, 16 do
    selected_plugin[i] = plugin_dropdown_items[1]
    vb.views["plugin_popup_" .. i].value = 1
  end
end

function my_MidiPopulatorkeyhandler_func(dialog, key)
  local closer = prefs.pakettiDialogClose.value
  if key.modifiers == "" and key.name == closer then
    custom_dialog:close()
    custom_dialog = nil
    return nil
  else
    return key
  end
end

function horizontal_rule()
    return vb:horizontal_aligner{
      mode="justify", 
      width="100%", 
      vb:space{width=10}, 
      vb:row{height=2, style="panel", width="30%"}, 
      vb:space{width=2}
    }
end


local function save_preferences()
  -- Update preferences based on current switch states
  prefs.pakettiMidiPopulator.volumeColumn.value = (volume_column_switch.value == 2)
  prefs.pakettiMidiPopulator.panningColumn.value = (panning_column_switch.value == 2)
  prefs.pakettiMidiPopulator.delayColumn.value = (delay_column_switch.value == 2)
  prefs.pakettiMidiPopulator.sampleEffectsColumn.value = (sample_effects_column_switch.value == 2)
  prefs.pakettiMidiPopulator.noteColumns.value = tonumber(note_columns_switch.value) or 1.0
  prefs.pakettiMidiPopulator.effectColumns.value = tonumber(effect_columns_switch.value) or 1.0
  prefs.pakettiMidiPopulator.collapsed.value = (collapsed_switch.value == 2)
  prefs.pakettiMidiPopulator.incomingAudio.value = (incoming_audio_switch.value == 2)
  prefs.pakettiMidiPopulator.populateSends.value = (populate_sends_switch.value == 2)
  -- If you have a preference for external_editor_switch, uncomment the next line
  -- prefs.pakettiMidiPopulator.externalEditor.value = (external_editor_switch.value == 2)
end

local function on_ok_button_pressed(dialog_content)
  -- Save preferences before applying
  save_preferences()
  
  for i = 1, 16 do
    MidiInitChannelTrackInstrument(i)
  end
  renoise.song().selected_track_index = 1 -- Select the first track

  -- Close the dialog and restore focus to the pattern editor
  custom_dialog:close()
  custom_dialog = nil
  renoise.app().window.active_middle_frame = renoise.ApplicationWindow.MIDDLE_FRAME_PATTERN_EDITOR
end

local function on_save_and_close_pressed()
  save_preferences()
  custom_dialog:close()
  custom_dialog = nil
end

function generaMIDISetupShowCustomDialog()
  if custom_dialog and custom_dialog.visible then
    custom_dialog:close()
    custom_dialog = nil
    return
  end

  -- Initialize variables
  initialize_variables()

  -- Clear the ViewBuilder to prevent duplicate view IDs
  vb = renoise.ViewBuilder()

  -- Initialize the GUI elements
  local rows = {}
  for i = 1, 16 do
    rows[i] = vb:horizontal_aligner{
      mode = "right",
      vb:text{text = "Track " .. i .. ":", width = 100},
      vb:popup{
        items = midi_input_devices, 
        width = 200, 
        notifier = function(value) midi_input_device[i] = midi_input_devices[value] end, 
        id = "midi_input_popup_" .. i,
        value = table.index_of(midi_input_devices, midi_input_device[i]) or 1
      },
      vb:popup{
        items = {"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16"}, 
        width = 50, 
        notifier = function(value) midi_input_channel[i] = tonumber(value) end, 
        value = midi_input_channel[i] or i
      },
      vb:popup{
        items = midi_output_devices, 
        width = 200, 
        notifier = function(value) midi_output_device[i] = midi_output_devices[value] end, 
        id = "midi_output_popup_" .. i,
        value = table.index_of(midi_output_devices, midi_output_device[i]) or 1
      },
      vb:popup{
        items = {"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16"}, 
        width = 50, 
        notifier = function(value) midi_output_channel[i] = tonumber(value) end, 
        value = midi_output_channel[i] or i
      },
      vb:popup{
        items = plugin_dropdown_items, 
        width = 200, 
        notifier = function(value) selected_plugin[i] = plugin_dropdown_items[value] end, 
        id = "plugin_popup_" .. i,
        value = table.index_of(plugin_dropdown_items, selected_plugin[i]) or 1
      }
    }
  end

  local function bool_to_switch_value(bool)
    return bool and 2 or 1
  end

  -- Initialize switches based on existing preferences
  note_columns_switch = vb:switch{
    items = {"1","2","3","4","5","6","7","8","9","10","11","12"}, 
    width = 300, 
    value = prefs.pakettiMidiPopulator.noteColumns.value or 1.0
  }
  effect_columns_switch = vb:switch{
    items = {"1","2","3","4","5","6","7","8"}, 
    width = 300, 
    value = prefs.pakettiMidiPopulator.effectColumns.value or 1.0
  }
  delay_column_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.delayColumn.value)
  }
  volume_column_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.volumeColumn.value)
  }
  panning_column_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.panningColumn.value)
  }
  sample_effects_column_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.sampleEffectsColumn.value)
  }
  collapsed_switch = vb:switch{
    items = {"Not Collapsed","Collapsed"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.collapsed.value)
  }
  incoming_audio_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.incomingAudio.value)
  }
  populate_sends_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = bool_to_switch_value(prefs.pakettiMidiPopulator.populateSends.value)
  }
  external_editor_switch = vb:switch{
    items = {"Off","On"}, 
    width = 300, 
    value = 1  -- Default to Off; adjust if you have a corresponding preference
  }

  dialog_content = vb:column{
    margin = 10, spacing = 0,
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "MIDI Input Device:"},
      vb:popup{
        items = midi_input_devices, 
        width = 700, 
        notifier = on_midi_input_switch_changed
      }
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "MIDI Output Device:"},
      vb:popup{
        items = midi_output_devices, 
        width = 700, 
        notifier = on_midi_output_switch_changed
      }
    }},
    horizontal_rule(),
    vb:row{
      vb:button{text = "Randomize AU Plugin Selection", width = 200, notifier = randomize_au_plugins},
      vb:button{text = "Randomize VST Plugin Selection", width = 200, notifier = randomize_vst_plugins},
      vb:button{text = "Randomize VST3 Plugin Selection", width = 200, notifier = randomize_vst3_plugins},
      vb:button{text = "Clear Plugin Selection", width = 200, notifier = clear_plugin_selection}
    },
    horizontal_rule(),
    vb:column(rows),
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Note Columns:"}, 
      note_columns_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Effect Columns:"}, 
      effect_columns_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Delay Column:"}, 
      delay_column_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Volume Column:"}, 
      volume_column_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Panning Column:"}, 
      panning_column_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Sample Effects Column:"}, 
      sample_effects_column_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Track State:"}, 
      collapsed_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Add #Line-Input Device for each Channel:"}, 
      incoming_audio_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Populate Channels with Send Devices:"}, 
      populate_sends_switch
    }},
    vb:horizontal_aligner{mode = "right", vb:row{
      vb:text{text = "Open External Editor for each Plugin:"}, 
      external_editor_switch
    }},
    horizontal_rule(),
    vb:horizontal_aligner{mode="right", vb:row{
      vb:button{
        text = "OK", 
        width = 100, 
        notifier = function() on_ok_button_pressed(dialog_content) end
      },
      vb:button{
        text = "Close", 
        width = 100, 
        notifier = function() custom_dialog:close() end
      },
      vb:button{
        text = "Save & Close", 
        width = 100, 
        notifier = on_save_and_close_pressed  -- Added Save & Close button
      }
    }}
  }

  custom_dialog = renoise.app():show_custom_dialog("Paketti MIDI Populator", dialog_content, my_MidiPopulatorkeyhandler_func)
end

renoise.tool():add_keybinding{
  name = "Global:Paketti:Paketti MIDI Populator Dialog...", 
  invoke = function() generaMIDISetupShowCustomDialog() end
}

function table.index_of(tab, val)
  for index, value in ipairs(tab) do
    if value == val then
      return index
    end
  end
  return nil
end