Add example script to list Playlists

[ardour.git] / scripts / _dump_playlists.lua

diff --git a/scripts/_dump_playlists.lua b/scripts/_dump_playlists.lua
new file mode 100644 (file)
index 0000000..a6bc236
--- /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