[INCLUDE TH/speedbar.blogme] [SETFAVICON dednat4/dednat4-icon.png] [SETFAVICON IMAGES/forthsun.png] [# (defun c () (interactive) (find-blogme3-sh0-if "manufacturing.srt")) ;; http://angg.twu.net/manufacturing.srt.html ;; file:///home/edrx/TH/L/manufacturing.srt.html ;; ;; (find-fline "~/manufacturing.srt") ;; ;; (find-angg "LUA/lua50init.lua" "readfile") ;; (find-blogme3 "options.lua" "htmlization_warning") ;; #] [lua: LR = R def [[ NAMEHREF 2 tag,text NAME(tag, HREF("#"..tag, text)) ]] readfilemaybe = function (fname) local f = io.open(fname, "r") if not f then return end local bigstr = f:read("*a") f:close() return bigstr end mcline = function (li) local n = li:match"^([0-9:]+)$" if n then return NAMEHREF(n, n) end local t,rest = li:match"^(%d%d:%d%d:%d%d)(.*)$" if t then local t0,t1 = t:match"^(0?0?:?0?)(.*)$" return NAMEHREF(t1, t)..Q(rest) end return Q(li) end mclines = function (bigstr) return (bigstr:gsub("([^\n]+)", mcline)) end ] [htmlize [J Manufacturing Consent - subtitles (htmlized)]
These subtitles are easy to download from the web -
from not-very-official channels - but I wanted to
have them online for debates and other activities
that we organized during the [R moving-out.html strike] of Brazilian
federal universities in 2012, and for [R consensofabricado.html this].
Please buy the DVD from [R http://www.zeitgeistfilms.com/videocatalog/product_info.php?products_id=66 Zeitgeist Films].
[expr:
  mclines(readfilemaybe(ee_expand "~/manufacturing.srt") or
          "(manufacturing.srt no found)")
]
[# htmlizelines(readfilemaybe(ee_expand "~/manufacturing.srt") or "ooo"): gsub("\n([0-9]+)\n", function (n) return "\n"..NAME(n, HREF("#"..n, n)).."\n" end) -- readfilemaybe(ee_expand "~/manufacturing.srt") or "ooo" #] ] [# # Local Variables: # coding: raw-text-unix # modes: (fundamental-mode blogme-mode) # End: #]