Tweak dump-playlist script to indicate current playlist

[ardour.git] / scripts / _dump_playlists.lua

diff --git a/scripts/_dump_playlists.lua b/scripts/_dump_playlists.lua
index a6bc23661a44769679cbf0ee291c87d6a9435579..656a5ead973e6c704baec2d65cdbfc17d6fee5ec 100644 (file)
--- a/scripts/_dump_playlists.lua
+++ b/scripts/_dump_playlists.lua
@@ -21,7 +21,11 @@ function factory () return function ()
        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())
+                       if (p == r:to_track():playlist()) then
+                               print (" >-", p:name(), p:n_regions())
+                       else
+                               print ("  -", p:name(), p:n_regions())
+                       end
                end
        end
 end end