-- This file:
--   http://anggtwu.net/SUBTITLES/2025-12-18-reuniao-rcn.lua.html
--   http://anggtwu.net/SUBTITLES/2025-12-18-reuniao-rcn.lua
--          (find-angg "SUBTITLES/2025-12-18-reuniao-rcn.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun l () (interactive) (find-angg "SUBTITLES/2025-12-18-reuniao-rcn.lua"))
-- (defun l () (interactive) (find-SUBS "2025-12-18-reuniao-rcn.lua"))
-- (defun b () (interactive) (find-TH   "2025-12-18-reuniao-rcn"))
-- (defun p () (interactive) (find-TH   "PAGE"))
-- (defun R () (interactive) (ee-recompile-SUBTITLES-0))
-- (defun r () (interactive) (ee-recompile-SUBTITLES-3))
-- (defun r () (interactive) (ee-recompile-SUBTITLES-1))
--  (define-key eev-mode-map (kbd "M-r") 'r)
--
-- Skel: (find-subs-links "2025rcndez")
-- Old:  (find-editeevsubtitles-links-1 "2025rcndez")
--       (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links       "2025rcndez" "MQtVazeCK_c")
-- Info: (find-1stclassvideo-links      "2025rcndez")
-- Play: (find-2025rcndezvideo "0:00")
--
-- I use the code below to generate the subtitles in .vtt.
--

ee_dofile "~/LUA/Subtitles.lua" -- (find-angg "LUA/Subtitles.lua")

--[[
-- (find-angg "LUA/Subtitles.lua")

** Run the .lua and tell it to
** write the .vtt - by default in /tmp/
*
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2025-12-18-reuniao-rcn.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("1:06:30")
-- sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2025-12-18-reuniao-rcn.vtt"
outfname =                           "/tmp/2025-12-18-reuniao-rcn.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline                       "/tmp/2025-12-18-reuniao-rcn.vtt")

** Test the .vtt
** (find-2025rcndezvideo "0:00")

** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile ""   "2025-12-18-reuniao-rcn.mp4")
** (find-eevvideossh0 "cp -v 2025-12-18-reuniao-rcn.mp4 /tmp/")
** (code-video "2025rcndezvideo"                           "/tmp/2025-12-18-reuniao-rcn.mp4")
** (code-video "2025rcndezvideo" "$S/http/anggtwu.net/eev-videos/2025-12-18-reuniao-rcn.mp4")
** (code-audio "2025rcndezvideo"                         "~/PURO/2025-12-18-reuniao-rcn.mp3")
** (find-2025rcndezvideo "0:00")

** Upload the 2025-12-18-reuniao-rcn.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
scp    2025-12-18-reuniao-rcn.vtt $LINP/eev-videos/
scp    2025-12-18-reuniao-rcn.vtt $LINS/eev-videos/
Scp-np 2025-12-18-reuniao-rcn.vtt $TWUP/eev-videos/
Scp-np 2025-12-18-reuniao-rcn.vtt $TWUS/eev-videos/

** Upload the subtitles to youtube
** http://www.youtube.com/watch?v=MQtVazeCK_c

** Check that the "psne subtitles" thing works
** (find-1stclassvideo-links "2025rcndez")

--]]

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2025-12-18-reuniao-rcn.lua"
for li in subs_bigstr:gmatch("([^\n]+)") do
  local time,text = li:match('^.-"(.-)".-"(.*)"%)$')
  text = text:gsub("\\(.)", "%1")
  if time then print("  "..time.."  "..text) end
end

--]]


subs_bigstr = [==[
(find-2025rcndezvideo "00:00" " ")
(find-2025rcndezvideo "00:00" "TESTE")
(find-2025rcndezvideo "16:26" "- [Eduardo] Então fica em assuntos gerais")
(find-2025rcndezvideo "29:40" "- [Etel] Pois é, mas eu posso falar sobre a ata, não posso?")
(find-2025rcndezvideo "30:06" "Confirmar com os presentes se essa ofensa se confirma")
(find-2025rcndezvideo "30:38" "Eu ausente não podia me defender")
(find-2025rcndezvideo "31:48" "num assunto que não se esgota")
(find-2025rcndezvideo "32:06" "também não entendo porque a minha titularidade")
]==]

unrevised_bigstr = [==[
(find-2025rcndezvideo "00:00" " ")
]==]

-- Local Variables:
-- coding:  utf-8-unix
-- End: