diff --git a/automation/autoload/karaoke-auto-leadin.lua b/automation/autoload/karaoke-auto-leadin.lua deleted file mode 100644 index c3dfb0961..000000000 --- a/automation/autoload/karaoke-auto-leadin.lua +++ /dev/null @@ -1,79 +0,0 @@ ---[[ - Copyright (c) 2007, Niels Martin Hansen - All rights reserved. - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above copyright notice, - this list of conditions and the following disclaimer in the documentation - and/or other materials provided with the distribution. - * Neither the name of the Aegisub Group nor the names of its contributors - may be used to endorse or promote products derived from this software - without specific prior written permission. - - THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" - AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE - LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - POSSIBILITY OF SUCH DAMAGE. -]] - -local tr = aegisub.gettext - -script_name = tr"Automatic karaoke lead-in" -script_description = tr"Join up the ends of selected lines and add \\k tags to shift karaoke" -script_author = "Niels Martin Hansen" -script_version = "1.0" - -function add_auto_leadin(subs, sel) - -- Smallest inter-line duration - local min_interdur = nil - - for i = 2, #sel do - -- Grab two selected lines - local A = subs[sel[i-1]] - local B = subs[sel[i]] - - -- Blank duration between lines - local interdur = B.start_time - A.end_time - - if interdur > 0 then - -- Update smallest inter-line duration - if not min_interdur or interdur < min_interdur then - min_interdur = interdur - end - - B.start_time = A.end_time - B.text = string.format("{\\k%d}%s", interdur/10, B.text) - - subs[sel[i]] = B - else - aegisub.debug.out(2, "Warning: Skipping line-pair with zero or negative inter-duration:\n%s\n%s\n\n", A.text, B.text) - end - - end - - if min_interdur then - aegisub.debug.out(0, "Smallest inter-line duration: %d milliseconds", min_interdur) - - aegisub.set_undo_point(script_name) - else - aegisub.debug.out(2, "Warning: No lines modified") - end - -end - -function check_minsel_2(subs, sel) - return #sel >= 2 -end - -aegisub.register_macro(script_name, script_description, add_auto_leadin, check_minsel_2) diff --git a/automation/autoload/macro-1-edgeblur.lua b/automation/autoload/macro-1-edgeblur.lua deleted file mode 100644 index f49321cd1..000000000 --- a/automation/autoload/macro-1-edgeblur.lua +++ /dev/null @@ -1,21 +0,0 @@ --- Automation 4 demo script --- Macro that adds \be1 tags in front of every selected line - -local tr = aegisub.gettext - -script_name = tr"Add edgeblur" -script_description = tr"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(script_name) -end - -aegisub.register_macro(script_name, tr"Adds \\be1 tags to all selected lines", add_edgeblur) diff --git a/automation/autoload/macro-2-mkfullwitdh.lua b/automation/autoload/macro-2-mkfullwitdh.lua deleted file mode 100644 index c10668eb3..000000000 --- a/automation/autoload/macro-2-mkfullwitdh.lua +++ /dev/null @@ -1,80 +0,0 @@ --- Automation 4 demo script --- Converts halfwidth (ASCII) Latin letters to fullwidth JIS Latin letters - -local tr = aegisub.gettext - -script_name = tr("Make text fullwidth") -script_description = tr("Shows how to use the unicode include to iterate over characters and a lookup table to convert those characters to something else.") -script_author = "Niels Martin Hansen" -script_version = "1" - -include("unicode.lua") - - -lookup = { - ['!'] = '！', ['"'] = '”', ['#'] = '＃', ['$'] = '＄', - ['%'] = '％', ['&'] = '＆', ["'"] = '’', ['('] = '（', - [')'] = '）', ['*'] = '＊', ['+'] = '＋', [','] = '，', - ['-'] = '－', ['.'] = '．', ['/'] = '／', - ['1'] = '１', ['2'] = '２', ['3'] = '３', ['4'] = '４', - ['5'] = '５', ['6'] = '６', ['7'] = '７', ['8'] = '８', - ['9'] = '９', ['0'] = '０', - [':'] = '：', [';'] = '；', ['<'] = '＜', ['='] = '＝', - ['>'] = '＞', ['?'] = '？', ['@'] = '＠', - ['A'] = 'Ａ', ['B'] = 'Ｂ', ['C'] = 'Ｃ', ['D'] = 'Ｄ', - ['E'] = 'Ｅ', ['F'] = 'Ｆ', ['G'] = 'Ｇ', ['H'] = 'Ｈ', - ['I'] = 'Ｉ', ['J'] = 'Ｊ', ['K'] = 'Ｋ', ['L'] = 'Ｌ', - ['M'] = 'Ｍ', ['N'] = 'Ｎ', ['O'] = 'Ｏ', ['P'] = 'Ｐ', - ['Q'] = 'Ｑ', ['R'] = 'Ｒ', ['S'] = 'Ｓ', ['T'] = 'Ｔ', - ['U'] = 'Ｕ', ['V'] = 'Ｖ', ['W'] = 'Ｗ', ['X'] = 'Ｘ', - ['Y'] = 'Ｙ', ['Z'] = 'Ｚ', - ['['] = '［', ['\\'] = '＼', [']'] = '］', ['^'] = '＾', - ['a'] = 'ａ', ['b'] = 'ｂ', ['c'] = 'ｃ', ['d'] = 'ｄ', - ['e'] = 'ｅ', ['f'] = 'ｆ', ['g'] = 'ｇ', ['h'] = 'ｈ', - ['i'] = 'ｉ', ['j'] = 'ｊ', ['k'] = 'ｋ', ['l'] = 'ｌ', - ['m'] = 'ｍ', ['n'] = 'ｎ', ['o'] = 'ｏ', ['p'] = 'ｐ', - ['q'] = 'ｑ', ['r'] = 'ｒ', ['s'] = 'ｓ', ['t'] = 'ｔ', - ['u'] = 'ｕ', ['v'] = 'ｖ', ['w'] = 'ｗ', ['x'] = 'ｘ', - ['y'] = 'ｙ', ['z'] = 'ｚ', - ['_'] = '＿', ['`'] = '‘', - ['{'] = '｛', ['|'] = '｜', ['}'] = '｝', ['~'] = '～', -} - -function make_fullwidth(subtitles, selected_lines, active_line) - for z, i in ipairs(selected_lines) do - local l = subtitles[i] - - aegisub.debug.out(string.format('Processing line %d: "%s"\n', i, l.text)) - aegisub.debug.out("Chars: \n") - - local in_tags = false - local newtext = "" - for c in unicode.chars(l.text) do - aegisub.debug.out(c .. ' -> ') - if c == "{" then - in_tags = true - end - if in_tags then - aegisub.debug.out(c .. " (ignored, in tags)\n") - newtext = newtext .. c - else - if lookup[c] then - aegisub.debug.out(lookup[c] .. " (converted)\n") - newtext = newtext .. lookup[c] - else - aegisub.debug.out(c .. " (not found in lookup)\n") - newtext = newtext .. c - end - end - if c == "}" then - in_tags = false - end - end - - l.text = newtext - subtitles[i] = l - end - aegisub.set_undo_point(tr"Make fullwidth") -end - -aegisub.register_macro(tr"Make fullwidth", tr"Convert Latin letters to SJIS fullwidth letters", make_fullwidth) diff --git a/automation/autoload/strip-tags.lua b/automation/autoload/strip-tags.lua deleted file mode 100644 index ffe1b90d1..000000000 --- a/automation/autoload/strip-tags.lua +++ /dev/null @@ -1,32 +0,0 @@ --- Copyright (c) 2010, Thomas Goyne --- --- Permission to use, copy, modify, and distribute this software for any --- purpose with or without fee is hereby granted, provided that the above --- copyright notice and this permission notice appear in all copies. --- --- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF --- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR --- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES --- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN --- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF --- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. - -local tr = aegisub.gettext - -script_name = tr"Strip tags" -script_description = tr"Remove all override tags from selected lines" -script_author = "Thomas Goyne" -script_version = "1" - -function strip_tags(subs, sel) - for _, i in ipairs(sel) do - local line = subs[i] - line.text = line.text:gsub("{[^}]+}", "") - subs[i] = line - end - aegisub.set_undo_point(tr"strip tags") -end - -aegisub.register_macro(script_name, script_description, strip_tags) -