-- This file:
--   http://anggtwu.net/SUBTITLES/2023-caepro0.lua.html
--   http://anggtwu.net/SUBTITLES/2023-caepro0.lua
--          (find-angg "SUBTITLES/2023-caepro0.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun st () (interactive) (find-angg "SUBTITLES/2023-caepro0.lua"))
-- Skel: (find-editeevsubtitles-links-1 "cae0")
--       (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links       "cae0" "XxnfW90kbZU")
-- Info: (find-1stclassvideo-links      "cae0")
-- Play: (find-cae0video "0:00")
--
-- I use the code below to generate the subtitles in .vtt.
--
-- «.legendas»	(to "legendas")

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 "2023-caepro0.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("8:18")
-- sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2023-caepro0.vtt"
outfname =                            "/tmp/2023-caepro0.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline                        "/tmp/2023-caepro0.vtt")

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

** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile ""   "2023-caepro0.mp4")
** (find-eevvideossh0 "cp -v 2023-caepro0.mp4 /tmp/")
** (code-video "cae0video"                            "/tmp/2023-caepro0.mp4")
** (code-video "cae0video" "$S/http/anggtwu.net/eev-videos/2023-caepro0.mp4")
** (find-cae0video "0:00")

** Upload the 2023-caepro0.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
Scp-np 2023-caepro0.vtt $LINP/eev-videos/
Scp-np 2023-caepro0.vtt $LINS/eev-videos/
Scp-np 2023-caepro0.vtt $TWUP/eev-videos/
Scp-np 2023-caepro0.vtt $TWUS/eev-videos/

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

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

--]]

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2023-caepro0.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

--]]


-- «legendas»  (to ".legendas")
subs_bigstr = [==[
% (find-cae0video "00:00" "Oi! O meu nome é Eduardo Ochs. Eu sou")
% (find-cae0video "00:04" "professor no Pólo Universitário de Rio")
% (find-cae0video "00:06" "das Ostras, e eu tou dando os cursos de")
% (find-cae0video "00:08" "Cálculo 2 e Cálculo 3. A página do curso")
% (find-cae0video "00:10" "de Calculo 2 do último semestre tá")
% (find-cae0video "00:12" "aqui, a página do curso de cálculo 3 está")
% (find-cae0video "00:15" "aqui, e o que aconteceu foi que alguns")
% (find-cae0video "00:17" "dias atrás, no dia 9 de fevereiro, ou seja,")
% (find-cae0video "00:20" "três dias atrás, eu recebi um monte de")
% (find-cae0video "00:23" "reclamações... quer dizer, na verdade o")
% (find-cae0video "00:26" "Colegiado da Engenharia de Produção")
% (find-cae0video "00:27" "recebeu um monte de reclamações e")
% (find-cae0video "00:29" "decidiram que as reclamações são todas")
% (find-cae0video "00:30" "verdadeiras...")

% (find-cae0video "00:33" "e aí eles pedem que eu não seja mais")
% (find-cae0video "00:37" "alocado em calculo 2 e cálculo 3, e seja")
% (find-cae0video "00:39" "alocado em outras matérias. E...")
% (find-cae0video "00:43" "no primeiro semestre presencial depois")
% (find-cae0video "00:45" "da pandemia, Cálculo 2 e Cálculo 3...")
% (find-cae0video "00:47" "meus cursos foram um caos por motivos")
% (find-cae0video "00:50" "que estão fartamente documentados em")
% (find-cae0video "00:52" "vários lugares e que eu não vou discutir")
% (find-cae0video "00:54" "agora, mas em 2022.2 eu fiz tudo de forma")
% (find-cae0video "01:00" "impecável e documentei absolutamente")
% (find-cae0video "01:02" "tudo... então,")
% (find-cae0video "01:04" "na próxima versão do vídeo eu vou ver se")
% (find-cae0video "01:06" "eu consigo responder detalhadamente cada")
% (find-cae0video "01:08" "uma dessas acusações do anexo a esse")
% (find-cae0video "01:11" "ofício daqui daqui, que tem as")
% (find-cae0video "01:14" "reclamações... e mostrar que quando a")
% (find-cae0video "01:17" "gente apaga, ou colore de cinza clarinho")
% (find-cae0video "01:20" "as coisas que são falsas, não procedem,")
% (find-cae0video "01:22" "ou só se aplicam a 2022.1")
% (find-cae0video "01:24" "sobra muito pouca coisa, e")
% (find-cae0video "01:28" "aí eu pretendo discutir um pouquinho")
% (find-cae0video "01:29" "essas coisas que sobram...")

% (find-cae0video "01:32" "mas bom, isso vai ser depois.")
% (find-cae0video "01:36" "Então, a primeira ferramenta que eu tou")
% (find-cae0video "01:38" "preparando para poder responder tudo em")
% (find-cae0video "01:40" "detalhes por enquanto ainda tá meio feia...")
% (find-cae0video "01:42" "é esse PDF daqui. O título é:")
% (find-cae0video "01:44" "\"Isso muda alguma coisa?\"")
% (find-cae0video "01:47" "(Sobre as reclamações do CAEPRO)...")

% (find-cae0video "01:50" "e eu vou mostrar um montão de coisas e no")
% (find-cae0video "01:51" "final vou perguntar: isso muda alguma coisa?")
% (find-cae0video "01:53" "Isso muda a opinião de vocês de que eu tenho")
% (find-cae0video "01:55" "que ser realocado em outras matérias?")

% (find-cae0video "01:57" "Então: o que eu fiz aqui foi o seguinte...")
% (find-cae0video "01:59" "eu fiz duas tabelas com todo o material")
% (find-cae0video "02:02" "dos cursos...")
% (find-cae0video "02:03" "todo o material dos cursos está")
% (find-cae0video "02:05" "disponível nessas páginas daqui, só que")
% (find-cae0video "02:09" "as pessoas podem achar elas meio confusas...")

% (find-cae0video "02:12" "então,")
% (find-cae0video "02:14" "eu preparei isso aqui pras pessoas")
% (find-cae0video "02:16" "poderem dar uma olhada em 5 minutos,")
% (find-cae0video "02:17" "descobrirem tudo sobre como o curso tá")
% (find-cae0video "02:19" "organizado sem...")
% (find-cae0video "02:24" "sem que elas precisem de algum link")
% (find-cae0video "02:26" "importante que tá difícil de encontrar.")

% (find-cae0video "02:28" "Então, primeira coisa... essa tabela daqui")
% (find-cae0video "02:33" "ela é sobre todo o meu material de")
% (find-cae0video "02:35" "Cálculo 2... deixa eu aumentar ela aqui um")
% (find-cae0video "02:38" "pouquinho...")
% (find-cae0video "02:40" "Então ela tem todo o material dessa")
% (find-cae0video "02:42" "parte daqui organizado de um outro jeito")
% (find-cae0video "02:44" "um pouco melhor.")

% (find-cae0video "02:45" "Isso aqui só vai funcionar se você abrir")
% (find-cae0video "02:48" "no browser, porque cada link desses")
% (find-cae0video "02:50" "aponta para uma página de um PDF... então")
% (find-cae0video "02:53" "por exemplo esse aqui aponta para página...")
% (find-cae0video "02:55" "não, esse aqui aponta para página 19 de")
% (find-cae0video "02:59" "um determinado PDF, e no celular quando a")
% (find-cae0video "03:02" "gente clica num link desses ele abre o PDF")
% (find-cae0video "03:05" "mas ele vai para página 1, então não")
% (find-cae0video "03:07" "tentem usar isso aqui em celular porque")
% (find-cae0video "03:09" "não vai funcionar.")

% (find-cae0video "03:12" "Então, esse link aqui vai para página que")
% (find-cae0video "03:14" "eu já mostrei, isso aqui mostra o que que")
% (find-cae0video "03:16" "foi dado em cada aula, e esses links")
% (find-cae0video "03:19" "daqui vão... primeiro pro material LaTeXado")
% (find-cae0video "03:23" "de cada curso - deixa eu explicar")
% (find-cae0video "03:25" "o que que é isso...")

% (find-cae0video "03:26" "em cada aula a gente usava um material")
% (find-cae0video "03:28" "que eu preparava em LaTeX, que são")
% (find-cae0video "03:30" "esses pdfs daqui... por exemplo, se eu")
% (find-cae0video "03:34" "clicar aqui ele vai num pdf... que é")
% (find-cae0video "03:35" "pequenininho, tem 13 páginas...")
% (find-cae0video "03:37" "e eu também grudava... juntava esses")
% (find-cae0video "03:40" "PDFs num \"PDFzão com todos os PDFzinhos")
% (find-cae0video "03:43" "juntados num só\". Então, toda vez que eu")
% (find-cae0video "03:45" "falar \"PDFzão\" são todos esses")
% (find-cae0video "03:47" "pdfzinhos daqui juntados num só.")

% (find-cae0video "03:50" "E aí esses links daqui vão para esse")
% (find-cae0video "03:54" "PDFzão, e eu acho melhor apontar pro")
% (find-cae0video "03:56" "PDFzão porque você só precisam")
% (find-cae0video "03:58" "carregar ele uma vez, e")
% (find-cae0video "04:01" "além disso fica fácil de ver o que que")
% (find-cae0video "04:04" "tava sendo dado antes e o que é tava")
% (find-cae0video "04:06" "sendo dado logo depois.")

% (find-cae0video "04:09" "Por exemplo, vamos dar uma olhada aqui na")
% (find-cae0video "04:11" "mudança de variáveis... eu vou abrir esse")
% (find-cae0video "04:13" "PDF numa outra janela aqui...")
% (find-cae0video "04:16" "repara que vai para página 49... deixa eu")
% (find-cae0video "04:19" "ampliar isso aqui um pouquinho...")

% (find-cae0video "04:20" "então, isso é a página de título desse PDF,")
% (find-cae0video "04:24" "e aí tem o material... aqui tem um montão de")
% (find-cae0video "04:25" "links, e em todas as aulas eu colocava um")
% (find-cae0video "04:28" "monte de links para livros que a gente ia")
% (find-cae0video "04:30" "usar... tipo, o objetivo das pessoas seria")
% (find-cae0video "04:33" "em algum momento conseguir estudar direto")
% (find-cae0video "04:35" "pelo livro, mas como elas tinham muita")
% (find-cae0video "04:38" "dificuldade de estudar direto pelo livro")
% (find-cae0video "04:39" "eu ia preparando exercícios para")
% (find-cae0video "04:41" "preparar elas para isso... então,")
% (find-cae0video "04:45" "aqui tem o material, tem explicações,")
% (find-cae0video "04:48" "tem exercícios... sempre que")
% (find-cae0video "04:51" "possível eu apontava para exercícios em")
% (find-cae0video "04:53" "livros...")

% (find-cae0video "04:55" "e muitas situações eu botava")
% (find-cae0video "05:00" "exercícios meus. E a gente discutia eles")
% (find-cae0video "05:02" "no quadro em grupos pequenos -")

% (find-cae0video "05:03" "eu botava as pessoas")
% (find-cae0video "05:06" "pra discutirem, pra fazerem ou sozinhas ou")
% (find-cae0video "05:07" "em grupo, e irem... vou explicar a")
% (find-cae0video "05:11" "metodologia depois... e se a gente voltar")
% (find-cae0video "05:16" "para cá - eu tava na aula 9... se eu clicar")
% (find-cae0video "05:19" "aqui a gente abre um PDF que tem todos")
% (find-cae0video "05:21" "as fotos dos quadros convertidos pra preto")
% (find-cae0video "05:23" "e branco, comprimidas, pra... opa,")
% (find-cae0video "05:27" "cliquei no lugar errado... comprimidas")
% (find-cae0video "05:30" "para ficarem pequenininhas, em DJVU...")

% (find-cae0video "05:33" "e depois eu criava um PDF com isso.")
% (find-cae0video "05:36" "Em algumas situações a gente vai")
% (find-cae0video "05:38" "precisar acessar a versão original do")
% (find-cae0video "05:42" "PDF... caramba, é aqui que eu queria...")
% (find-cae0video "05:46" "em JPG -")

% (find-cae0video "05:50" "e uma coisa super importante é o")
% (find-cae0video "05:53" "seguinte: no início de cada aula eu")
% (find-cae0video "05:54" "sempre colocava aqui no cantinho - deixa")
% (find-cae0video "05:57" "eu mostrar -")

% (find-cae0video "05:59" "em que horário aquela aula tava")
% (find-cae0video "06:01" "começando, porque até um tempo atrás eu")
% (find-cae0video "06:04" "era péssimo com horários, mas agora eu")
% (find-cae0video "06:06" "tomei jeito... então, os alunos passavam")
% (find-cae0video "06:09" "a aula inteira olhando para aquele")
% (find-cae0video "06:10" "retângulo que indicava")
% (find-cae0video "06:13" "em que momento exatamente...")
% (find-cae0video "06:16" "em que horário a gente tinha")
% (find-cae0video "06:18" "começado a aula, e pegaria muito mal eu")
% (find-cae0video "06:20" "falsificar uma coisa dessas.")

% (find-cae0video "06:23" "E então, voltando para cá...")
% (find-cae0video "06:25" "não, deixa eu fechar isso aqui, desculpa...")
% (find-cae0video "06:32" "em todas as fotos que tem esse horário")
% (find-cae0video "06:34" "eu coloquei aqui do lado o horário")
% (find-cae0video "06:38" "que tá na foto... tem alguns dias em que eu")
% (find-cae0video "06:41" "esqueci de tirar foto do quadro, por")
% (find-cae0video "06:44" "exemplo nem sempre no dia da prova eu")
% (find-cae0video "06:45" "tirava foto do quadro e botava no PDFzão...")
% (find-cae0video "06:47" "então eu não coloquei nada aqui, mas eu")
% (find-cae0video "06:50" "me esforcei muito para chegar no horário")
% (find-cae0video "06:52" "sempre, então dá para ver aqui que teve")
% (find-cae0video "06:55" "um dia que eu cheguei às 14:15, não, dois")
% (find-cae0video "06:58" "dias em que eu cheguei às 14:15, e em todos")
% (find-cae0video "07:00" "os outros dias eu cheguei no horário.")

% (find-cae0video "07:04" "Mas bom,")
% (find-cae0video "07:08" "o resto eu vou detalhar depois. Eu vou")
% (find-cae0video "07:13" "começar pelas acusações dos alunos, por")
% (find-cae0video "07:17" "botar elas em vários categorias, vou")
% (find-cae0video "07:20" "discutir cada uma e pretendo discutir um")
% (find-cae0video "07:22" "pouco a metodologia do curso e explicar")
% (find-cae0video "07:24" "porque é que")
% (find-cae0video "07:26" "não funciona simplesmente dizer pros")
% (find-cae0video "07:29" "alunos: leiam o capítulo tal do livro,")
% (find-cae0video "07:32" "faça o exercício tal, VIREM-SE... porque")
% (find-cae0video "07:34" "eles acabam não conseguindo se virar,")
% (find-cae0video "07:36" "eles perdem muito tempo com isso, eles")
% (find-cae0video "07:37" "não aprendem o suficiente... então eu tou")
% (find-cae0video "07:40" "complementando os livros com toneladas")
% (find-cae0video "07:42" "de material, e muitos casos aqui vocês")
% (find-cae0video "07:45" "vão ver que tem")
% (find-cae0video "07:48" "um exercício e tem uma dica dizendo: se")
% (find-cae0video "07:51" "você achar esse exercício difícil faça o")
% (find-cae0video "07:53" "exercício tal primeiro, e esse exercício")
% (find-cae0video "07:55" "tal vem depois... então eu tento graduar")
% (find-cae0video "07:58" "as coisas para descobrir onde estão as")
% (find-cae0video "07:59" "dúvidas dos alunos e dar exatamente o")
% (find-cae0video "08:02" "exercício certo.")

% (find-cae0video "08:03" "Mas isso eu vou discutir depois, e como")
% (find-cae0video "08:05" "eu disse, isso é uma versão super")
% (find-cae0video "08:06" "preliminar do vídeo, e que eu vou só")
% (find-cae0video "08:09" "mostrar para algumas pessoas e discutir")
% (find-cae0video "08:11" "com elas... vou fazer uma versão decente")
% (find-cae0video "08:13" "depois, e aí vou regravar essa parte")
% (find-cae0video "08:16" "daqui. Deixa eu parar esse vídeo.")

% (find-cae0video "08:18" " ")
]==]

unrevised_bigstr = [==[
(find-cae0video "00:00" " ")

]==]

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