70 lines
2.2 KiB
Lua
70 lines
2.2 KiB
Lua
ardour {
|
|
["type"] = "EditorAction",
|
|
name = "Rename regions from markers",
|
|
license = "MIT",
|
|
author = "Christopher Arndt",
|
|
description = [[Rename selected regions using track name and label of location marker at region start]]
|
|
}
|
|
|
|
function factory ()
|
|
-- there is currently no direct way to find the track
|
|
-- corresponding to a [selected] region
|
|
function find_track_for_region(region_id)
|
|
for route in Session:get_tracks():iter() do
|
|
local track = route:to_track();
|
|
local pl = track:playlist ()
|
|
if not pl:region_by_id(region_id):isnil() then
|
|
return track
|
|
end
|
|
end
|
|
assert (0) -- can't happen, region must be in a playlist
|
|
end
|
|
|
|
return function ()
|
|
local sel = Editor:get_selection () -- get current selection
|
|
local loc = Session:locations() -- get locations
|
|
|
|
|
|
-- prepare undo operation
|
|
Session:begin_reversible_command ("Rename regions from markers")
|
|
|
|
-- for each selected region...
|
|
for region in sel.regions:regionlist():iter () do
|
|
-- test if it's an audio region
|
|
local ar = region:to_audioregion ()
|
|
if ar:isnil () then
|
|
goto next
|
|
end
|
|
|
|
--~ print("Region:", region:name())
|
|
local rid = region:to_stateful():id()
|
|
--~ print("ID:", id:to_s())
|
|
|
|
-- get marker at region start position
|
|
local pos = region:position()
|
|
local mloc = loc:first_mark_at(pos, Temporal.timecnt_t(0))
|
|
if not mloc then
|
|
goto next
|
|
end
|
|
|
|
local track = find_track_for_region(rid)
|
|
|
|
region:to_stateful():clear_changes()
|
|
|
|
--~ print("Marker label:", mloc:name())
|
|
-- rename region to track name + marker label
|
|
region:set_name(track:name() .. " " .. mloc:name())
|
|
|
|
-- collect undo data
|
|
Session:add_stateful_diff_command(region:to_statefuldestructible())
|
|
|
|
::next::
|
|
end
|
|
|
|
-- all done, commit the combined Undo Operation
|
|
if not Session:abort_empty_reversible_command() then
|
|
Session:commit_reversible_command(nil)
|
|
end
|
|
end
|
|
end
|