prototype track/bus sharing: state-export

[ardour.git] / scripts / _export_tracks.lua

diff --git a/scripts/_export_tracks.lua b/scripts/_export_tracks.lua
new file mode 100644 (file)
index 0000000..7db8dab
--- /dev/null
+++ b/scripts/_export_tracks.lua
@@ -0,0 +1,10 @@
+ardour { ["type"] = "Snippet", name = "Export Track XML" }
+
+function factory () return function ()
+       local rlp = ARDOUR.RouteListPtr ()
+       local sel = Editor:get_selection ()
+       for r in sel.tracks:routelist ():iter () do
+               rlp:push_back (r)
+       end
+       print (Session:export_track_state (rlp, "/tmp/rexport"))
+end end