From 2d3c31c511772dff347e8bc0b7c38030abc8cc29 Mon Sep 17 00:00:00 2001
From: garret <garret@airmail.cc>
Date: Sun, 19 Jun 2022 10:10:46 +0100
Subject: [PATCH] add syl splitter

---
 macros/garret.sylsplitter.lua | 44 +++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 macros/garret.sylsplitter.lua

diff --git a/macros/garret.sylsplitter.lua b/macros/garret.sylsplitter.lua
new file mode 100644
index 0000000..2accca8
--- /dev/null
+++ b/macros/garret.sylsplitter.lua
@@ -0,0 +1,44 @@
+script_name = "Syllable Splitter"
+script_description = "splits romaji into syls of their original kana. for the lazy k-timer."
+script_author = "garret"
+script_version = "1.0.0"
+script_namespace = "garret.sylsplitter"
+
+local haveDepCtrl, DependencyControl, depctrl = pcall(require, "l0.DependencyControl")
+local re
+if haveDepCtrl then
+    depctrl = DependencyControl({
+        --feed="TODO",
+        { "aegisub.re" },
+    })
+    re = depctrl:requireModules()
+else
+    re = require("aegisub.re")
+end
+
+local kana = re.compile("a|i|u|e|o|ya|yu|yo|ka|ki|ku|ke|ko|kya|kyu|kyo|sa|shi|su|se|so|sha|shu|sho|ta|chi|tsu|te|to|cha|chu|cho|na|ni|nu|ne|no|nya|nyu|nyo|ha|hi|fu|he|ho|hya|hyu|hyo|ma|mi|mu|me|mo|mya|myu|myo|ra|ri|ru|re|ro|rya|ryu|ryo|ga|gi|gu|ge|go|gya|gyu|gyo|za|ji|zu|ze|zo|ja|ju|jo|da|ji|zu|de|do|ja|ju|jo|ba|bi|bu|be|bo|bya|byu|byo|pa|pi|pu|pe|po|pya|pyu|pyo|wa|wo|n|-|[a-z]") -- all kana + all letters (for small っ) (probably dont need _all_ letters but whatever)
+
+local function round(num, numDecimalPlaces) -- https://lua-users.org/wiki/SimpleRound
+  local mult = 10^(numDecimalPlaces or 0)
+  return math.floor(num * mult + 0.5) / mult
+end
+
+local function add_tag(syl)
+    -- default syl duration = (line duration / line chars) * syl chars
+    local syl_dur = round(((line.end_time - line.start_time) / 10) / #line.text)
+    return "{\\k"..syl_dur * #syl .. "}" ..syl
+end
+
+local function main(sub,sel)
+    for i = 1, #sel do
+        line = sub[sel[i]] -- yes global, i know(ish) what im doing
+        line.text = kana:sub(line.text, add_tag)
+        sub[sel[i]] = line
+    end
+end
+
+if haveDepCtrl then
+    depctrl:registerMacro("Split Syllables", script_description, main)
+else
+    aegisub.register_macro("Split Syllables", script_description, main)
+end