Aegisub/automation/demos/macro-1-edgeblur.lua

-- Automation 4 demo script
-- Macro that adds \be1 tags in front of every selected line

script_name = "Add edgeblur macro"
script_description = "A demo macro showing how to do simple line modification in Automation 4"
script_author = "Niels Martin Hansen"
script_version = "1"


function add_edgeblur(subtitles, selected_lines, active_line)
	for z, i in ipairs(selected_lines) do
		local l = subtitles[i]
		l.text = "{\\be1}" .. l.text
		subtitles[i] = l
	end
	aegisub.set_undo_point("Add edgeblur")
end

aegisub.register_macro("Add edgeblur", "Adds \be1 tags to all selected lines", add_edgeblur)