13
0
livetrax/scripts/track_organizer.lua

107 lines
3.8 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
table.insert(dialog_options, {
{ type = "label", colspan="3", title = "" },
{ type = "label", colspan="3", title = "Note that this is a script which can be user-edited to match your needs." },
{ type = "label", colspan="3", title = "" },
})
--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::
collectgarbage()
end end