X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=scripts%2F_dump_playlists.lua;fp=scripts%2F_dump_playlists.lua;h=a6bc23661a44769679cbf0ee291c87d6a9435579;hb=842faa5b6ea56456b6740fe4f06173b914b55db8;hp=0000000000000000000000000000000000000000;hpb=1172ff49485d29c447c2809537d50ba9a9a3f104;p=ardour.git

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