add delete x-run marker script

1 files changed, 9 insertions, 0 deletions

diff --git a/scripts/delete_xrun_markers.lua b/scripts/delete_xrun_markers.lua
new file mode 100644
index 0000000000..2530ec2a8e
--- /dev/null
+++ b/scripts/delete_xrun_markers.lua
@@ -0,0 +1,9 @@
+ardour { ["type"] = "EditorAction", name = "Delete xrun markers", author = "Ardour Team", description = [[Delete all xrun markers in the current session]] }
+
+function factory () return function ()
+	for l in Session:locations():list():iter() do
+		if l:is_mark() and string.find (l:name(), "^xrun%d*$") then
+			Session:locations():remove (l);
+		end
+	end
+end end