|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://anggtwu.net/SUBTITLES/2022-eev-make-0.lua.html
-- http://anggtwu.net/SUBTITLES/2022-eev-make-0.lua
-- (find-angg "SUBTITLES/2022-eev-make-0.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun l () (interactive) (find-angg "SUBTITLES/2022-eev-make-0.lua"))
-- (defun l () (interactive) (find-SUBS "2022-eev-make-0.lua"))
-- (defun b () (interactive) (find-TH "2022-eev-make-0"))
-- (defun p () (interactive) (find-TH "eev-make"))
-- (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 "2022eevmake0")
-- Old: (find-editeevsubtitles-links-1 "2022eevmake0")
-- (find-efunction 'find-editeevsubtitles-links-1)
-- Yttr: (find-yttranscript-links "2022eevmake0" "Iql5C-yQk5c")
-- Info: (find-1stclassvideo-links "2022eevmake0")
-- Play: (find-2022eevmake0video "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 "2022-eev-make-0.lua"
sts = Subtitles.fromsexps(subs_bigstr):addtime("6:43")
-- sts.lang = "pt-BR"
= sts
outfname = "$S/http/anggtwu.net/eev-videos/2022-eev-make-0.vtt"
outfname = "/tmp/2022-eev-make-0.vtt"
out = sts:vtt().."\n\n"
ee_writefile(outfname, out)
-- (find-fline "/tmp/2022-eev-make-0.vtt")
** Test the .vtt
** (find-2022eevmake0video "0:00")
** Select /tmp/ or ee-eevvideosdir
** (find-eevvideosfile "")
** (find-eevvideosfile "" "2022-eev-make-0.mp4")
** (find-eevvideossh0 "cp -v 2022-eev-make-0.mp4 /tmp/")
** (code-video "2022eevmake0video" "/tmp/2022-eev-make-0.mp4")
** (code-video "2022eevmake0video" "$S/http/anggtwu.net/eev-videos/2022-eev-make-0.mp4")
** (find-2022eevmake0video "0:00")
** Upload the 2022-eev-make-0.vtt
** to http://anggtwu.net/eev-videos/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
Scp-np 2022-eev-make-0.vtt $TWUP/eev-videos/
Scp-np 2022-eev-make-0.vtt $TWUS/eev-videos/
** Upload the subtitles to youtube
** http://www.youtube.com/watch?v=Iql5C-yQk5c
** Check that the "psne subtitles" thing works
** (find-1stclassvideo-links "2022eevmake0")
--]]
subs_bigstr = [==[
% (find-2022eevmake0video "00:00" "Hi! My name is Eduardo Ochs, and I'm")
% (find-2022eevmake0video "00:02" "the author of an Emacs package called")
% (find-2022eevmake0video "00:04" "eev... and a few hours ago")
% (find-2022eevmake0video "00:06" "I had an idea of how to use a new feature")
% (find-2022eevmake0video "00:08" "of eev, that i'm going to explain soon,")
% (find-2022eevmake0video "00:14" "to test makefiles, and to demonstrate")
% (find-2022eevmake0video "00:16" "weird features of make...")
% (find-2022eevmake0video "00:19" "and this is a demo about it, and it's")
% (find-2022eevmake0video "00:21" "totally unrehearsed.")
% (find-2022eevmake0video "00:26" "To make things work we need to")
% (find-2022eevmake0video "00:29" "use this feature here, that is")
% (find-2022eevmake0video "00:31" "described in this tutorial, in")
% (find-2022eevmake0video "00:33" "section 3.3...")
% (find-2022eevmake0video "00:38" "the description is quite long, but the")
% (find-2022eevmake0video "00:39" "the thing is that we need to put this")
% (find-2022eevmake0video "00:42" "defun here in our ~/.emacs file...")
% (find-2022eevmake0video "00:48" "I'm always using that by default, and")
% (find-2022eevmake0video "00:50" "also I can change the prefix that")
% (find-2022eevmake0video "00:54" "eepitch ignores by just using a `setq'")
% (find-2022eevmake0video "00:57" "like this one, so by using this setq")
% (find-2022eevmake0video "01:01" "I make eepitch ignore prefixes like this,")
% (find-2022eevmake0video "01:06" "and by using setq like this I disable")
% (find-2022eevmake0video "01:10" "the prefix thing, so every line is")
% (find-2022eevmake0video "01:12" "interpreted literally, without dropping")
% (find-2022eevmake0video "01:14" "the prefix.")
% (find-2022eevmake0video "01:17" "Let me show the demo...")
% (find-2022eevmake0video "01:19" "this is the end of the technical part...")
% (find-2022eevmake0video "01:22" "I will need to switch to a smaller font.")
% (find-2022eevmake0video "01:24" "If we run this... oops, sorry -")
% (find-2022eevmake0video "01:32" "if we run this thing here")
% (find-2022eevmake0video "01:37" "we set up a target buffer")
% (find-2022eevmake0video "01:39" "running a shell, and then")
% (find-2022eevmake0video "01:42" "I can type f8 here to")
% (find-2022eevmake0video "01:48" "create this directory... I mean, to")
% (find-2022eevmake0video "01:50" "delete this directory, create it, and to")
% (find-2022eevmake0video "01:53" "download the file into this directory...")
% (find-2022eevmake0video "01:55" "which is this one: demo-1.gnumake -")
% (find-2022eevmake0video "01:57" "this file here.")
% (find-2022eevmake0video "01:59" "And then if we execute this thing here,")
% (find-2022eevmake0video "02:02" "this make that says")
% (find-2022eevmake0video "02:05" "that we have to use this makefile here")
% (find-2022eevmake0video "02:07" "instead of the default, which")
% (find-2022eevmake0video "02:09" "is \"Makefile\", with a capital \"M\"")
% (find-2022eevmake0video "02:11" "in the beginning...")
% (find-2022eevmake0video "02:14" "well, let's execute this... it runs the")
% (find-2022eevmake0video "02:17" "target \"help\", that is here...")
% (find-2022eevmake0video "02:22" "what \"help\" does is that it first")
% (find-2022eevmake0video "02:25" "echoes this thing, the \"# Targets:\",")
% (find-2022eevmake0video "02:31" "and then it runs this thing here...")
% (find-2022eevmake0video "02:38" "and we can execute this thing here to")
% (find-2022eevmake0video "02:45" "go to the help...")
% (find-2022eevmake0video "02:46" "I mean, to the info manual of make, to")
% (find-2022eevmake0video "02:49" "the page in which it explains")
% (find-2022eevmake0video "02:52" "how to use this \"@\" sign")
% (find-2022eevmake0video "02:53" "in the beginning of a recipe...")
% (find-2022eevmake0video "02:59" "so let's try... I'm going to execute it")
% (find-2022eevmake0video "03:01" "with `M-2 M-2' to show the target in")
% (find-2022eevmake0video "03:03" "the the right window...")
% (find-2022eevmake0video "03:06" "so we got the node \"Concept Index\" -")
% (find-2022eevmake0video "03:10" "note that we see \"Concept Index\" here -")
% (find-2022eevmake0video "03:15" "and if we type Enter here we go to the")
% (find-2022eevmake0video "03:20" "page that explains how this thing")
% (find-2022eevmake0video "03:24" "works, and by the way I can delete")
% (find-2022eevmake0video "03:26" "this thing, and if execute this sexp")
% (find-2022eevmake0video "03:30" "here I go straight to that node,")
% (find-2022eevmake0video "03:36" "that is called \"Echoing\"...")
% (find-2022eevmake0video "03:40" "here are a few more demos...")
% (find-2022eevmake0video "03:45" "let me execute it again...")
% (find-2022eevmake0video "03:48" "note that when I run this, by default")
% (find-2022eevmake0video "03:52" "the directory is the directory in which")
% (find-2022eevmake0video "03:54" "this file is... my file is in my")
% (find-2022eevmake0video "03:57" "home directory, in the subdirectory MAKE/,")
% (find-2022eevmake0video "03:59" "in all capital letters...")
% (find-2022eevmake0video "04:04" "but the one that we saw here was just")
% (find-2022eevmake0video "04:06" "a copy of that one. Well...")
% (find-2022eevmake0video "04:14" "so, let me execute this thing, and")
% (find-2022eevmake0video "04:18" "I'm going to to ask make to run")
% (find-2022eevmake0video "04:22" "this target - I don't remember what is")
% (find-2022eevmake0video "04:24" "the terminology for that...")
% (find-2022eevmake0video "04:28" "well, whatever... let me run this line")
% (find-2022eevmake0video "04:33" "and this line here... note that the")
% (find-2022eevmake0video "04:36" "differences is that between the first")
% (find-2022eevmake0video "04:38" "one and the second one each line")
% (find-2022eevmake0video "04:40" "got a .tex in the end...")
% (find-2022eevmake0video "04:45" "and the thing is that")
% (find-2022eevmake0video "04:48" "in the first one we echoed the value")
% (find-2022eevmake0video "04:50" "of this variable in a nice way,")
% (find-2022eevmake0video "04:54" "with this \"@echo\" here and with this")
% (find-2022eevmake0video "04:58" "\"tr\" here, that changes every space to a")
% (find-2022eevmake0video "05:01" "new line... and in the second...")
% (find-2022eevmake0video "05:05" "the second target, \"show_basic_tex\",")
% (find-2022eevmake0video "05:07" "we do something similar but to this")
% (find-2022eevmake0video "05:09" "other variable here, that was obtained")
% (find-2022eevmake0video "05:14" "by this expression here, with the")
% (find-2022eevmake0video "05:17" "\"patsubst\" in the beginning...")
% (find-2022eevmake0video "05:19" "and if we want help about patsubst")
% (find-2022eevmake0video "05:22" "we can execute this sexp here...")
% (find-2022eevmake0video "05:26" "let me execute it with `M-2 M-e'...")
% (find-2022eevmake0video "05:32" "it explains patsubst here, and")
% (find-2022eevmake0video "05:36" "and if I execute this line")
% (find-2022eevmake0video "05:41" "I show some help, and note that my help")
% (find-2022eevmake0video "05:44" "is... I've done this before -")
% (find-2022eevmake0video "05:47" "my help \"@echo\"es this thing here,")
% (find-2022eevmake0video "05:51" "and then it shows...")
% (find-2022eevmake0video "05:52" "and then it runs this -")
% (find-2022eevmake0video "05:56" "it greps all the lines that do not start")
% (find-2022eevmake0video "05:59" "with the hash sign, and that end")
% (find-2022eevmake0video "06:01" "with a \":\"... and note that")
% (find-2022eevmake0video "06:07" "this ignores this this line because I")
% (find-2022eevmake0video "06:10" "was too lazy to find a better pattern to")
% (find-2022eevmake0video "06:13" "put here... and, well -")
% (find-2022eevmake0video "06:16" "that's it for the moment, I just")
% (find-2022eevmake0video "06:18" "wanted to show the mechanics of how to")
% (find-2022eevmake0video "06:21" "to put tests in a makefile,")
% (find-2022eevmake0video "06:24" "and the trick is simply to use this")
% (find-2022eevmake0video "06:27" "new feature that allows eepitch to")
% (find-2022eevmake0video "06:29" "ignore a prefix, and then we can put")
% (find-2022eevmake0video "06:31" "these test blocks here, that can")
% (find-2022eevmake0video "06:36" "run make with some specific")
% (find-2022eevmake0video "06:39" "command line options.")
% (find-2022eevmake0video "06:41" "And that's it for the moment!")
]==]
unrevised_bigstr = [==[
(find-2022eevmake0video "00:00" " ")
]==]
-- Local Variables:
-- coding: utf-8-unix
-- End: