[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)]

<table><tr><td bgcolor="#CC0000"><font color="#FFCC00" size=-1>
These subtitles are easy to download from the web -
<br>from not-very-official channels - but I wanted to
<br>have them online for debates and other activities
<br>that we organized during the [R moving-out.html strike] of Brazilian
<br>federal universities in 2012, and for [R consensofabricado.html this].
<br>Please buy the DVD from [R http://www.zeitgeistfilms.com/videocatalog/product_info.php?products_id=66 Zeitgeist Films].
</font></td></tr></table>


<pre>
[expr:
  mclines(readfilemaybe(ee_expand "~/manufacturing.srt") or
          "(manufacturing.srt no found)")
]
</pre>

[#
     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:
#]