Add example script to list Playlists

1 files changed, 27 insertions, 0 deletions

diff --git a/scripts/_dump_playlists.lua b/scripts/_dump_playlists.lua
new file mode 100644
index 0000000000..a6bc23661a
--- /dev/null
+++ b/scripts/_dump_playlists.lua
@@ -0,0 +1,27 @@
+ardour { ["type"] = "Snippet", name = "Dump Playlists" }
+
+function factory () return function ()
+
+	print ("Number of playlists:", Session:playlists():n_playlists())
+
+	print ()
+	print ("Used playlists:")
+	for p in Session:playlists():get_used():iter() do
+		print ("-", p:name(), p:n_regions())
+	end
+
+	print ()
+	print ("Unused playlists:")
+	for p in Session:playlists():get_unused():iter() do
+		print ("-", p:name(), p:n_regions())
+	end
+
+	print ()
+	print ("Playlists by Track:")
+	for r in Session:get_tracks():iter() do
+		print ("*", r:name())
+		for p in Session:playlists():playlists_for_track (r:to_track()):iter() do
+			print ("  -", p:name(), p:n_regions())
+		end
+	end
+end end