|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://anggtwu.net/SUBTITLES/2021-workshop-2.lua.html
-- http://anggtwu.net/SUBTITLES/2021-workshop-2.lua
-- (find-angg "SUBTITLES/2021-workshop-2.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun st () (interactive) (find-angg "SUBTITLES/2021-workshop-2.lua"))
-- Skel: (find-editeevsubtitles-links-1 "2021workshop2")
-- (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links "2021workshop2" "hqqIlZBXNhk")
-- Info: (find-1stclassvideo-links "2021workshop2")
-- Play: (find-2021workshop2video "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 "2021-workshop-2.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("3:39")
-- sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2021-workshop-2.vtt"
outfname = "/tmp/2021-workshop-2.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline "/tmp/2021-workshop-2.vtt")
** Test the .vtt
** (find-2021workshop2video "0:00")
** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile "" "2021-workshop-2.mp4")
** (find-eevvideossh0 "cp -v 2021-workshop-2.mp4 /tmp/")
** (code-video "2021workshop2video" "/tmp/2021-workshop-2.mp4")
** (code-video "2021workshop2video" "$S/http/anggtwu.net/eev-videos/2021-workshop-2.mp4")
** (find-2021workshop2video "0:00")
** Upload the 2021-workshop-2.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
Scp-np 2021-workshop-2.vtt $TWUP/eev-videos/
Scp-np 2021-workshop-2.vtt $TWUS/eev-videos/
** Upload the subtitles to youtube
** http://www.youtube.com/watch?v=hqqIlZBXNhk
** Check that the "psne subtitles" thing works
** (find-1stclassvideo-links "2021workshop2")
--]]
subs_bigstr = [==[
See: (find-saving-links-intro "6. Using a 2-window setting")
% (find-2021workshop2video "00:00" "Hi! My name is Eduardo Ochs, and this")
% (find-2021workshop2video "00:05" "is a very short video that I'm recording")
% (find-2021workshop2video "00:07" "for a workshop that is going to happen")
% (find-2021workshop2video "00:08" "on this saturday... and the title")
% (find-2021workshop2video "00:11" "of this video is: \"Creating a link")
% (find-2021workshop2video "00:13" "to a file using a 2-window setting\".")
% (find-2021workshop2video "00:15" "And this is an exercise.")
% (find-2021workshop2video "00:17" "It's an exercise that is quite hard, I'm")
% (find-2021workshop2video "00:19" "probably going to rewrite it for the")
% (find-2021workshop2video "00:21" "workshop, but let me show how to perform")
% (find-2021workshop2video "00:23" "the exercise as it's written now.")
% (find-2021workshop2video "00:28" "The exercise says: copy this diagram here")
% (find-2021workshop2video "00:30" "to our notes...")
% (find-2021workshop2video "00:32" "let me do that...")
% (find-2021workshop2video "00:34" "then come back here and type `C-x 1 C-x 3'")
% (find-2021workshop2video "00:37" "to split the window,")
% (find-2021workshop2video "00:40" "then in the window at the right")
% (find-2021workshop2video "00:44" "do the series of steps that will be")
% (find-2021workshop2video "00:46" "visible here at the window at the left...")
% (find-2021workshop2video "00:49" "and the the steps are:")
% (find-2021workshop2video "00:52" "go to this directory here,")
% (find-2021workshop2video "00:54" "find the subdirectory called \"play\",")
% (find-2021workshop2video "00:57" "this one, enter the subdirectory,")
% (find-2021workshop2video "00:59" "find the file called \"life.el\",")
% (find-2021workshop2video "01:04" "and in that file search for this string")
% (find-2021workshop2video "01:06" "here, which is \"(defun life \"...")
% (find-2021workshop2video "01:15" "it's this string here. And then")
% (find-2021workshop2video "01:19" "the instructions say: follow the")
% (find-2021workshop2video "01:21" "instructions in the diagram above to")
% (find-2021workshop2video "01:23" "create a link to this file, \"life.el\",")
% (find-2021workshop2video "01:27" "and then refine that link to make it")
% (find-2021workshop2video "01:29" "point to the first occurrence of")
% (find-2021workshop2video "01:31" "this string in that file...")
% (find-2021workshop2video "01:34" "and then copy the pair of links")
% (find-2021workshop2video "01:36" "consisting of the link to that file and")
% (find-2021workshop2video "01:38" "to link to this string in that file to")
% (find-2021workshop2video "01:41" "our buffer with notes.")
% (find-2021workshop2video "01:44" "So let me follow the instructions here...")
% (find-2021workshop2video "01:46" "the instructions start with this window")
% (find-2021workshop2video "01:48" "setting, with the buffer with exercises")
% (find-2021workshop2video "01:51" "at the left, and here we have")
% (find-2021workshop2video "01:53" "(find-eev-exercises-intro), so that's")
% (find-2021workshop2video "01:56" "right... and the target buffer at the")
% (find-2021workshop2video "01:58" "right. Remember that we want to point to")
% (find-2021workshop2video "02:00" "this string in this file, so this file is")
% (find-2021workshop2video "02:02" "exactly the target file...")
% (find-2021workshop2video "02:03" "and the target buffer.")
% (find-2021workshop2video "02:07" "Then we have to type this key sequence")
% (find-2021workshop2video "02:09" "here, `M-h M-h', which is")
% (find-2021workshop2video "02:12" "`find-here-links', to create a buffer")
% (find-2021workshop2video "02:14" "with a list of links...")
% (find-2021workshop2video "02:16" "oh, sorry, I forgot something... in this")
% (find-2021workshop2video "02:18" "buffer here I have to execute `M-w' to")
% (find-2021workshop2video "02:22" "copy this string to the key ring...")
% (find-2021workshop2video "02:25" "let me do that...")
% (find-2021workshop2video "02:26" "and now `find here links', which is")
% (find-2021workshop2video "02:28" "`M-h M-h'...")
% (find-2021workshop2video "02:32" "so we're in this buffer here,")
% (find-2021workshop2video "02:35" "\"*(find-here-links)*\"...")
% (find-2021workshop2video "02:37" "the link that we want is this one, and we")
% (find-2021workshop2video "02:39" "have to follow these instructions here")
% (find-2021workshop2video "02:41" "to refine it...")
% (find-2021workshop2video "02:43" "so: duplicate it, refine it,")
% (find-2021workshop2video "02:46" "and copy these two lines")
% (find-2021workshop2video "02:48" "to the kill ring.")
% (find-2021workshop2video "02:51" "And then we have to type this key")
% (find-2021workshop2video "02:53" "sequence here to show our notes at the")
% (find-2021workshop2video "02:56" "right... let me do that...")
% (find-2021workshop2video "02:58" "so here are our notes. You can see the")
% (find-2021workshop2video "03:01" "\"TODO\" here...")
% (find-2021workshop2video "03:02" "then we have to copy our pair of links...")
% (find-2021workshop2video "03:05" "here -")
% (find-2021workshop2video "03:07" "and then the instructions - remember that")
% (find-2021workshop2video "03:09" "we've copied the instructions to the")
% (find-2021workshop2video "03:11" "notes so we have them accessible now - the")
% (find-2021workshop2video "03:14" "notes say that we have to type a series")
% (find-2021workshop2video "03:16" "of `M-K's to display the buffer with")
% (find-2021workshop2video "03:21" "exercises in this window.")
% (find-2021workshop2video "03:22" "so let me do that now...")
% (find-2021workshop2video "03:27" "that's it,")
% (find-2021workshop2video "03:29" "This is the buffer with exercises, so")
% (find-2021workshop2video "03:32" "this exercise is just this...")
% (find-2021workshop2video "03:35" "uh, \"just this\"... =(")
% (find-2021workshop2video "03:36" "anyway, that's it.")
]==]
unrevised_bigstr = [==[
(find-2021workshop2video "00:00" " ")
]==]
-- Local Variables:
-- coding: utf-8-unix
-- End: