From fb257f1ed17bb5239793cbe81503a32366a92b5c Mon Sep 17 00:00:00 2001
From: Ben Loftis <ben@harrisonconsoles.com>
Date: Mon, 5 Dec 2016 12:20:42 -0600
Subject: add_filters lua script by Phillip Smith

---
 scripts/add_filters.lua | 54 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 scripts/add_filters.lua

diff --git a/scripts/add_filters.lua b/scripts/add_filters.lua
new file mode 100644
index 0000000000..77b41c17bf
--- /dev/null
+++ b/scripts/add_filters.lua
@@ -0,0 +1,54 @@
+ardour {
+	["type"]    = "EditorAction",
+	name        = "Add Filters",
+	license     = "MIT",
+	author      = "PSmith",
+	description = [[Add 'HPF/LPF' Lua Processor to all Tracks]]
+}
+
+function action_params ()
+	return
+	{
+		["unique"]   = { title = "Only add HPF/LPF if not already present (yes/no)", default = "yes"},
+		["position"] = { title = "Insert Position from top (0,..)",                   default = "0"},
+	}
+end
+
+
+function factory (params)
+	return function ()
+		-- get configuration
+		local p = params or {}
+		local uniq = p["unique"] or "yes"
+		local pos = p["position"] or 0
+
+		-- loop over all tracks
+		for t in Session:get_tracks():iter() do
+			local insert = true;
+
+			-- check if filters are present
+			if uniq ~= "no" then
+				local proc;
+				local i = 0;
+				repeat
+					-- get Nth Ardour::Processor
+					proc = t:nth_plugin (i)
+					-- check if it's a filter
+					if (not proc:isnil() and proc:display_name () == "a-High/Low Pass Filter") then
+						insert = false;
+					end
+					i = i + 1
+				until proc:isnil() or insert == false
+			end
+
+			-- create a new processor and insert it
+			if insert then
+				local a = ARDOUR.LuaAPI.new_luaproc(Session, "a-High/Low Pass Filter");
+				if (not a:isnil()) then
+					t:add_processor_by_index(a, pos, nil, true)
+					a = nil -- explicitly drop shared-ptr reference
+				end
+			end
+		end
+	end
+end
-- 
cgit v1.2.3