Robin Gareus
925be49b2d
Since 8112d6472e garbage is automatically collected
after running a Lua GUI script.
100 lines
3.6 KiB
Lua
100 lines
3.6 KiB
Lua
ardour {
|
|
["type"] = "EditorAction",
|
|
name = "Track Organizer",
|
|
author = "Mixbus Lua Taskforce",
|
|
description = [[Easily modifiable session overview and track property editor]]
|
|
}
|
|
|
|
function factory () return function ()
|
|
|
|
local rbow = { ["----"] = "", ["Red"] = 0xD10000FF, ["Orange"] = 0xFF6622FF, ["Yellow"] = 0xFFDA21FF,
|
|
["Green"] = 0x33DD00FF, ["Blue"] = 0x1133CCFF, ["Indigo"] = 0x220066FF, ["Violet"] = 0x330044FF
|
|
}
|
|
|
|
--now starting to build our dialog
|
|
local dialog_options = {
|
|
{ type = "label", colspan="4", title = "Change your Track settings here:" },
|
|
{ type = "heading", title = "Track", col = 0, colspan = 1 },
|
|
{ type = "heading", title = "Group", col = 1, colspan = 1 },
|
|
{ type = "heading", title = "Comment", col = 2, colspan = 1 },
|
|
{ type = "heading", title = "Color", col = 3, colspan = 1 },
|
|
}
|
|
|
|
--group option payload
|
|
--@ToDo: Add 'fake' groups for people to select, create them if they want it
|
|
local pl = {["----"] = "", ["Drums"] = "Drums", ["Bass"] = "Bass", ["Guitars"] = "Guitars",
|
|
["Keys"] = "Keys", ["Strings"] = "Strings", ["Vox"] = "Vox"
|
|
}
|
|
|
|
for g in Session:route_groups():iter() do
|
|
pl[g:name()] = g
|
|
end
|
|
|
|
--helper function to find default group option
|
|
function interrogate(t)
|
|
local v = "----"
|
|
for g in Session:route_groups():iter() do
|
|
for r in g:route_list():iter() do
|
|
if r:name() == t:name() then v = g:name() end
|
|
end
|
|
end return v
|
|
end
|
|
|
|
function find_color(t)
|
|
local c = "----"
|
|
for k, v in pairs(rbow) do
|
|
if(t:presentation_info_ptr():color() == v) then c = k end
|
|
end return c
|
|
end
|
|
|
|
--insert an entry into our dialog_options table for each track with appropriate info
|
|
for t in Session:get_tracks():iter() do
|
|
table.insert(dialog_options, {
|
|
type = "entry", key = t:name() .. ' n', col = 0, colspan = 1, default = t:name(), title = "" --@ToDo: Shorten Names so they can still see what track they're changing?
|
|
}) --name
|
|
table.insert(dialog_options, {
|
|
type = "dropdown", key = t:name() .. ' g', col = 1, colspan = 1, title = "", values = pl, default = interrogate(t)
|
|
}) --group
|
|
table.insert(dialog_options, {
|
|
type = "entry", key = t:name() .. ' cm', col = 2, colspan = 1, default = t:comment(), title = ""
|
|
}) --comment
|
|
table.insert(dialog_options, {
|
|
type = "dropdown", key = t:name() .. ' c', col = 3, colspan = 1, title = "", values = rbow, default = find_color(t)
|
|
}) --color
|
|
end
|
|
|
|
--run dialog_options
|
|
local rv = LuaDialog.Dialog("Track Organizer", dialog_options):run()
|
|
if not(rv) then goto script_end end
|
|
assert(rv, 'Dialog box was cancelled or is ' .. type(rv))
|
|
|
|
--begin track operation
|
|
for t in Session:get_tracks():iter() do
|
|
local cgrp = interrogate(t)
|
|
local name = rv[t:name() .. ' n' ]
|
|
local ngrp = rv[t:name() .. ' g' ]
|
|
local cmnt = rv[t:name() .. ' cm']
|
|
local colr = rv[t:name() .. ' c' ]
|
|
|
|
if t:name() ~= name then t:set_name(name) end
|
|
|
|
if t:comment() ~= cmnt then t:set_comment(cmnt, nil) end
|
|
|
|
if not(colr == "") then t:presentation_info_ptr():set_color(colr) end
|
|
|
|
if type(ngrp) == "userdata" then
|
|
if cgrp ~= ngrp:name() then
|
|
ngrp:add(t)
|
|
end
|
|
end
|
|
|
|
if type(ngrp) == "string" and not(ngrp == "") then
|
|
ngrp = Session:new_route_group(ngrp)
|
|
if cgrp ~= ngrp:name() then
|
|
ngrp:add(t)
|
|
end
|
|
end
|
|
end
|
|
::script_end::
|
|
end end
|