|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://anggtwu.net/SUBTITLES/2021-workshop-4.lua.html
-- http://anggtwu.net/SUBTITLES/2021-workshop-4.lua
-- (find-angg "SUBTITLES/2021-workshop-4.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun st () (interactive) (find-angg "SUBTITLES/2021-workshop-4.lua"))
-- Skel: (find-editeevsubtitles-links-1 "2021workshop4")
-- (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links "2021workshop4" "lhpHHjBUxv8")
-- Info: (find-1stclassvideo-links "2021workshop4")
-- Play: (find-2021workshop4video "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-4.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("5:42")
-- sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2021-workshop-4.vtt"
outfname = "/tmp/2021-workshop-4.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline "/tmp/2021-workshop-4.vtt")
** Test the .vtt
** (find-2021workshop4video "0:00")
** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile "" "2021-workshop-4.mp4")
** (find-eevvideossh0 "cp -v 2021-workshop-4.mp4 /tmp/")
** (code-video "2021workshop4video" "/tmp/2021-workshop-4.mp4")
** (code-video "2021workshop4video" "$S/http/anggtwu.net/eev-videos/2021-workshop-4.mp4")
** (find-2021workshop4video "0:00")
** Upload the 2021-workshop-4.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
Scp-np 2021-workshop-4.vtt $TWUP/eev-videos/
Scp-np 2021-workshop-4.vtt $TWUS/eev-videos/
** Upload the subtitles to youtube
** http://www.youtube.com/watch?v=lhpHHjBUxv8
** Check that the "psne subtitles" thing works
** (find-1stclassvideo-links "2021workshop4")
--]]
subs_bigstr = [==[
See: (find-saving-links-intro "3. Invisible text")
% (find-2021workshop4video "00:00" "Hi! My name is Eduardo Ochs, and this is")
% (find-2021workshop4video "00:02" "another very short video that I'm")
% (find-2021workshop4video "00:04" "recording for the workshop that")
% (find-2021workshop4video "00:07" "I'm going to give in about 12 hours...")
% (find-2021workshop4video "00:10" "The title of this video is")
% (find-2021workshop4video "00:12" "\"Invisible text\".")
% (find-2021workshop4video "00:15" "Note that we are in a buffer with an")
% (find-2021workshop4video "00:17" "intro... it's the the intro with")
% (find-2021workshop4video "00:19" "exercises for the workshop...")
% (find-2021workshop4video "00:22" "and this is the title of a section.")
% (find-2021workshop4video "00:26" "It turns out that there's some invisible")
% (find-2021workshop4video "00:28" "text here. Let me show how we can")
% (find-2021workshop4video "00:33" "see that, and why this is annoying.")
% (find-2021workshop4video "00:37" "Suppose that I want to use this string")
% (find-2021workshop4video "00:40" "here - the contents of this line -")
% (find-2021workshop4video "00:42" "to refine a hyperlink.")
% (find-2021workshop4video "00:44" "Let's pretend that this is a hyperlink...")
% (find-2021workshop4video "00:46" "let me duplicate it, and now use")
% (find-2021workshop4video "00:49" "`M-h M-y' to yank the the text of the")
% (find-2021workshop4video "00:53" "kill ring into this hyperlink...")
% (find-2021workshop4video "00:55" "And note that we got some garbage here.")
% (find-2021workshop4video "00:58" "Instead of of getting just this part")
% (find-2021workshop4video "01:00" "here, with the name of the section,")
% (find-2021workshop4video "01:03" "we got this part here with the new line")
% (find-2021workshop4video "01:05" "and a series of dashes...")
% (find-2021workshop4video "01:08" "and this happened because")
% (find-2021workshop4video "01:10" "there's some invisible text here.")
% (find-2021workshop4video "01:13" "The new line and the dashes are")
% (find-2021workshop4video "01:16" "invisible text - long story that")
% (find-2021workshop4video "01:18" "I do not want to explain now...")
% (find-2021workshop4video "01:24" "and the workaround for this is")
% (find-2021workshop4video "01:27" "quite simple - if we know the trick,")
% (find-2021workshop4video "01:29" "of course. If we want to copy just this")
% (find-2021workshop4video "01:32" "thing without invisible text to the")
% (find-2021workshop4video "01:35" "the ring we have to go to")
% (find-2021workshop4video "01:37" "the beginning of the line,")
% (find-2021workshop4video "01:39" "type `C-SPC' to set the mark, then")
% (find-2021workshop4video "01:42" "go to the end of the line,")
% (find-2021workshop4video "01:44" "then move left, and then move right...")
% (find-2021workshop4video "01:46" "and now the point is going to be before")
% (find-2021workshop4video "01:49" "the invisible text,")
% (find-2021workshop4video "01:51" "and if we type `M-w'")
% (find-2021workshop4video "01:55" "we can see that everything worked -")
% (find-2021workshop4video "01:57" "the garbage is not here.")
% (find-2021workshop4video "02:00" "This is going to be important for the")
% (find-2021workshop4video "02:02" "exercise of this section.")
% (find-2021workshop4video "02:04" "The exercise says:")
% (find-2021workshop4video "02:10" "\"create a pair of elisp hyperlinks,")
% (find-2021workshop4video "02:13" "the first hyperlink pointing to this")
% (find-2021workshop4video "02:15" "intro - this one - and the second one")
% (find-2021workshop4video "02:17" "being a refinement of this, of the")
% (find-2021workshop4video "02:20" "first one, that points to the title of")
% (find-2021workshop4video "02:22" "this section here...")
% (find-2021workshop4video "02:25" "and then copy the pair to our notes\".")
% (find-2021workshop4video "02:31" "Let me show how to do that. I'm going to")
% (find-2021workshop4video "02:34" "cheat a bit because I can copy this")
% (find-2021workshop4video "02:36" "thing to my notes...")
% (find-2021workshop4video "02:39" "oopsm it's already here, from my last")
% (find-2021workshop4video "02:42" "rehearsal... so, I've just copied this")
% (find-2021workshop4video "02:46" "into my notes, and now I have to follow")
% (find-2021workshop4video "02:49" "these instructions...")
% (find-2021workshop4video "02:51" "i'll have to switch to a smaller font...")
% (find-2021workshop4video "02:54" "we are in this buffer here,")
% (find-2021workshop4video "02:56" "\"...exercises...\", that i'm abbreviating")
% (find-2021workshop4video "02:59" "as \"ex\", and we have to type `M-w'")
% (find-2021workshop4video "03:01" "in the right place")
% (find-2021workshop4video "03:03" "to copy this title to the kill ring.")
% (find-2021workshop4video "03:05" "But I'm going to use the trick,")
% (find-2021workshop4video "03:07" "which is to move left and then move")
% (find-2021workshop4video "03:09" "right.")
% (find-2021workshop4video "03:11" "Now I'm going to type `M-h M-h', which is")
% (find-2021workshop4video "03:14" "`find-here-links'...")
% (find-2021workshop4video "03:16" "to create a buffer with a hyperlink to")
% (find-2021workshop4video "03:18" "here - to this intro...")
% (find-2021workshop4video "03:22" "and right after that I'm going to type")
% (find-2021workshop4video "03:23" "`M-21j', or `M-2 M-1 M-j',")
% (find-2021workshop4video "03:26" "to show my notes at the right window.")
% (find-2021workshop4video "03:29" "Let me do that...")
% (find-2021workshop4video "03:32" "Here are my notes. Now i can follow the")
% (find-2021workshop4video "03:34" "instructions here - much easier than")
% (find-2021workshop4video "03:36" "having to memorize things.")
% (find-2021workshop4video "03:40" "These instructions are a bit incomplete,")
% (find-2021workshop4video "03:42" "they do not say things that I can")
% (find-2021workshop4video "03:44" "pretend that are obvious, and they say")
% (find-2021workshop4video "03:46" "that here, in the buffer with elisp")
% (find-2021workshop4video "03:48" "hyperlinks, i have to type `M-h M-2',")
% (find-2021workshop4video "03:50" "which is \"duplicate the current line\"...")
% (find-2021workshop4video "03:54" "I'm going to do this, here...")
% (find-2021workshop4video "03:57" "so: I duplicate this line, and then I")
% (find-2021workshop4video "04:01" "have to type this to yank")
% (find-2021workshop4video "04:03" "the top of the kill ring...")
% (find-2021workshop4video "04:05" "to refine the sexp in the current line.")
% (find-2021workshop4video "04:09" "So: `M-h M-y' here... that's it, I got")
% (find-2021workshop4video "04:13" "the refined version - and then")
% (find-2021workshop4video "04:16" "there's something that I've")
% (find-2021workshop4video "04:18" "omitted here, which is a `M-w' to")
% (find-2021workshop4video "04:21" "copy these things to the kill ring...")
% (find-2021workshop4video "04:24" "but I forgot to omit the `C-y' here,")
% (find-2021workshop4video "04:27" "so let me copy this thing...")
% (find-2021workshop4video "04:29" "and then `C-y' to copy these links to")
% (find-2021workshop4video "04:32" "my notes... and that's it!")
% (find-2021workshop4video "04:34" "I got the link to the title")
% (find-2021workshop4video "04:36" "of that section in my notes...")
% (find-2021workshop4video "04:40" "and then the instructions say")
% (find-2021workshop4video "04:42" "\"use `C-x 1' and then a series of")
% (find-2021workshop4video "04:47" "`M-K's to go back to the")
% (find-2021workshop4video "04:51" "buffer with exercises...")
% (find-2021workshop4video "04:54" "here we are back - to the exercises...")
% (find-2021workshop4video "04:57" "and let's now test the hyperlink")
% (find-2021workshop4video "05:00" "that we have just created.")
% (find-2021workshop4video "05:02" "I'm going to delete this buffer")
% (find-2021workshop4video "05:05" "with `M-k' - not `M-K', just `M-k'...")
% (find-2021workshop4video "05:12" "well, lots of things here...")
% (find-2021workshop4video "05:16" "anyway, let me go back to my notes.")
% (find-2021workshop4video "05:20" "Here we have the unrefined link. If we")
% (find-2021workshop4video "05:23" "follow it we we go to this intro here,")
% (find-2021workshop4video "05:26" "but to the beginning of it...")
% (find-2021workshop4video "05:30" "and if we execute this link here we go")
% (find-2021workshop4video "05:33" "to that intro, but to the title")
% (find-2021workshop4video "05:36" "of this section.")
% (find-2021workshop4video "05:40" "And that's it! =)")
]==]
unrevised_bigstr = [==[
(find-2021workshop4video "00:00" " ")
]==]
-- Local Variables:
-- coding: utf-8-unix
-- End: