Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on BlogMe.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/blogme.e>
#           or at <http://angg.twu.net/e/blogme.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######







# «.square-brackets»		(to "square-brackets")
# «.other-glyphs»		(to "other-glyphs")
# «.withindex»			(to "withindex")
# «._»				(to "_")
# «._TARGETS»			(to "_TARGETS")
# «.parselspaces»		(to "parselspaces")
# «.patched-listings»		(to "patched-listings")
# «.invoking-blogme»		(to "invoking-blogme")
# «.MDEF»			(to "MDEF")
# «.lua2html»			(to "lua2html")
# «.org2html»			(to "org2html")
# «.diagrams-with-words»	(to "diagrams-with-words")
# «.traffic-lights»		(to "traffic-lights")
# «.traffic-lights-glyphs»	(to "traffic-lights-glyphs")
# «.blogme3.tgz»		(to "blogme3.tgz")
# «.blogme3-at-caramelo»	(to "blogme3-at-caramelo")
# «.blogme3-at-zumbi»		(to "blogme3-at-zumbi")
# «.makefile-a2html»		(to "makefile-a2html")
# «.a2html-at-zumbi»		(to "a2html-at-zumbi")
# «.parsechangelog-tests»	(to "parsechangelog-tests")
# «.cgis»			(to "cgis")
# «.cgis-at-zumbi»		(to "cgis-at-zumbi")
# «.wikirefs»			(to "wikirefs")
# «.blogme3-in-macosx»		(to "blogme3-in-macosx")
# «.angg-audios»		(to "angg-audios")
# «.audio-sexps»		(to "audio-sexps")
# «.local-videos»		(to "local-videos")
# «.local-videos-pen-drive»	(to "local-videos-pen-drive")
# «.local-videos-debug»		(to "local-videos-debug")
# «.linkdasruas»		(to "linkdasruas")
# «.albums»			(to "albums")
# «.gsub-build»			(to "gsub-build")
# «.interactive»		(to "interactive")
# «.withindex2»			(to "withindex2")






#####
#
# square brackets
# 2007aug29
#
#####

# «square-brackets»  (to ".square-brackets")
# (find-angg ".emacs" "square-brackets")
&#10214;&#10215;

# (find-eoutput '(insert 300006 300007))
# (find-eoutput '(insert 300006 300007) "" '(switch-to-buffer (htmlize-buffer)))

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
sgmlify_table["\17"] = "&#10214;"
sgmlify_table["\16"] = "&#10215;"
sgmlify_re = "([\15\16\17\161-\254])"
]

[PRE ['
Foo!
abefghijklmn
abcdefghijklmn
O
]]
#*




#####
#
# other glyphs
# 2007sep15
#
#####

# «other-glyphs»  (to ".other-glyphs")
# (find-angg ".emacs" "square-brackets")
# (find-eoutput '(insert 300006 300007))
# (find-eoutput '(insert 300006 300007) "" '(switch-to-buffer (htmlize-buffer)))
# (find-eoutput '(insert 332731 332736))
# (find-eoutput '(insert 332731 332736) "" '(switch-to-buffer (htmlize-buffer)))
# (find-eleimfile "quail/sgml-input.el")
# (find-eleimfile "quail/latin-ltx.el")
#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
sgmlify_table["\17"]  = "&#10214;"
sgmlify_table["\16"]  = "&#10215;"
sgmlify_table["\21"]  = "&pi;"
sgmlify_table["\221"] = "&isin;"
sgmlify_table["\240"] = "&lambda;"
sgmlify_table["\206"] = "&exist;"
sgmlify_table["\253"] = "&forall;"
sgmlify_re = "([\15-\31\161-\254])"
]

[PRE ['
abcdefghijklmn
ab&#955;&#960;efghijklmn
ab&lambda;&pi;&isin;fghi&exist;&forall;lmn

abcdefghijklmn
abfghilmn
]]
#*

# (find-eoutput '(insert 21 221 240 206 253))





#####
#
# WITHINDEX
# 2007aug29
#
#####

# «withindex»  (to ".withindex")
# (find-angg "TH/davinci.blogme" "withindex")
# (find-blogme3file "anggdefs.lua" " Sec ")
#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

[lua:
  -- (find-blogme3file "definers.lua" "5 readvvvvvrest")
  -- (find-blogme3file "brackets.lua" "readvvvvvrest =")
  readvvvvvvrest = function () return readvword(), readvvvvvrest() end
  _AA["6"] = readvvvvvvrest
  secindex = {}
  unanchor = function (str) return string.sub(str, 2, -2) end
  pushindex = function (indexentry, body)
      table.insert(secindex, indexentry)
      return body
    end
  def [[ ANCHOR 3 anchor,target,body NAME(anchor, HREF("#"..target, body)) ]]
  def [[ Sec    6 n,anchor,to,totarget,f,title
         pushindex(
           ANCHOR("."..unanchor(anchor), unanchor(anchor), n.." "..title),
           ANCHOR(unanchor(anchor), "."..unanchor(anchor), _G[f](n.." "..title))
         )
      ]]
  def [[ INDEX 1 _ HLIST2(BF("Quick index:"), secindex) ]]
  def [[ WITHINDEX 1 body INDEX()..body ]]
]

[#
  «.foo»	(to "foo")
  «.bar»	(to "bar")
#]

[WITHINDEX

[Sec 1 «foo»  (to ".foo")
  H2 Section foo]

[Sec 2 «bar»  (to ".bar")
  H3 Section bar]

[# INDEX]
[# lua: PP(secindex) ]

]

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[#
  «.plic»	(to "plic")
  «.bletch»	(to "bletch")
#]
[WITHINDEX
[Sec 1 «plic»  (to ".plic")
  H2 Section plic]
[Sec 2 «bletch»  (to ".bletch")
  H3 Section bletch]
]
#*




#####
#
# _
# 2007sep12
#
#####

# «_»  (to "._")
# (find-angg "TH/davinci.blogme")
#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

[lua:
  _target = {}
  _target.IUP     = "http://www.tecgraf.puc-rio.br/iup/"
  _target.CD      = "http://www.tecgraf.puc-rio.br/cd/"
  _target.IM      = "http://www.tecgraf.puc-rio.br/im/"
  _target.LuaCmd  = "http://www.tecgraf.puc-rio.br/luacmd/"
  _target.Emacs   = "emacs.html"
  _target.Lua     = "luaforth.html"
  _target.CNPq    = "http://www.cnpq.br/"
  _target.TecGraf = "http://www.tecgraf.puc-rio.br/im/"
  _target["Tcl/Tk"] = "tcltk.html"
  def [[ _  2 str,text _target[str] and HREF(_target[str], nilify(text) or str)
                                     or BF("{"..str.."}") ]]
]

[P Foo! [_ IUP] [_ IUP blah blah]]

#*




#####
#
# _TARGETS
# 2007sep29
#
#####

# «_TARGETS»  (to "._TARGETS")
# (find-luamanualw3m "#5.4.1" "%s: represents all space characters")
# (find-blogme3file "blogme3.lua")
# (find-blogme3file "escripts.lua")
# (find-blogme3file "elisp.lua" "TGT 1 sexp")
# (find-blogme3file "elisp.lua" "full TGT")
# (find-blogme3file "anggdefs.lua" "two_d_trim =")
# (find-blogme3grep "grep -niH -e tgt *")
# (find-blogme3grep "grep -niH -e '\"_\"' *")
# (find-anggfile "TH/emacs.blogme" " _ 1 body ")
# (find-anggfile "TH/davinci.blogme" " _  2 str,text ")

* (eepitch-lua51)
process_pointer_line = function (str)
    -- str = gsub(str, "[ \t]+$", "")
    local word, sexp = string.match(str, "^%s*(%S+)%s+%->%s+(%(.*%))%s*$")
    if word then
      -- _target[word] = TGT(sexp)
      print("<<"..word..">> :: "..sexp.." ::")
    end
  end
ppl = process_pointer_line
ppl [=[ foo -> (bar plic) ]=]
ppl [=[ foo -> (bar plic)]=]


#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
  -- (find-es "blogme" "_")
  _target = {}
  _target.IUP     = "http://www.tecgraf.puc-rio.br/iup/"
  _target["Tcl/Tk"] = "tcltk.html"
  def [[ _  2 str,text _target[str] and HREF(_target[str], nilify(text) or str)
                                     or BF("{"..str.."}") ]]
]
[lua:
  -- (find-blogme3file "elisp.lua" "full TGT")
  require "escripts"
  def [[ TGT 1 sexp Tgt(SexpLink:match(sexp)) ]]
  process_TARGET_line = function (linestr)
      local word, sexp = string.match(linestr, "^%s*(%S+)%s+%->%s+(%(.*%))%s*$")
      if word then _target[word] = TGT(sexp) end
    end
  process_TARGET_lines = function (bigstr)
      string.gsub(bigstr, "([^\n]+)", process_TARGET_line)
    end
  def [[ _TARGETS 1 lines   process_TARGET_lines(lines) ]]
]
[_TARGETS
    ttt  -> (find-es "blogme" "_TARGETS")
    ttto -> (find-es "blogme")
]
[P Foo: [_ IUP], [_ ttt].]


#*


process_TARGET = function (str)
    local word, sexp = string.match(str, "^%s*(%S+)%s+%->%s+(%(.*%))%s*$")
    if word then print("<<"..word..">> :: "..sexp.." ::") end
  end




#####
#
# sec
# 2007oct08
#
#####

-- (find-blogme3file "anggdefs.lua" "Sec, INDEX, WITHINDEX")
-- (find-blogme3file "brackets.lua" "parsewchars =")
-- (find-blogme3file "anggdefs.lua" "unanchor =")

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
-- For simplicity, the "rest of line" in readqline cannot include []s.
-- Note that the newline is optional; "readqline" never fails.
readqline = function () return parsebypattern("^[ \t]*([^\n%[%]]*)\n?()") end
readlvvrest = function () return readqline(), readvword(), readvrest() end
_AA["lvv"] = readlvvrest

unanchor = function (str) return string.match(str, "\171([!-~]+)\187") or "" end
def [[ sec   lvv  line,f,title
       pushindex(
         ANCHOR("."..unanchor(line), unanchor(line), title),
         ANCHOR(unanchor(line), "."..unanchor(line), _G[f](title))
       )
    ]]
def [[ Sec   lvv  line,f,title  sec(line, f, title) ]]
]

[#
  «.foo»	(to "foo")
  «.bar»	(to "bar")
#]

[WITHINDEX

[Sec «foo»  (to ".foo")
  H2 1. Section foo]
[Sec «bar»  (to ".bar")
  H3 2. Section bar]

[# INDEX]
[# lua: PP(secindex) ]

]

#*





#####
#
# patched listings (notes to cannibalize and discard)
# 2007oct23
#
#####

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

<table border="0" cellpadding=0 cellspacing=0><tr><td>
<pre style="background: #c4daf9; padding: 4px; margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: #aac4da; padding: 4px; margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: yellow;  padding: 0;   margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: orange;  padding: 0;   margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: yellow; 	       margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: orange; 	       margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: yellow;  padding: 0; 	        ">1 2 + . ." Bad: too much" 4 5 * .</pre>
<pre style="background: orange;  padding: 0; 	        ">1 2 + . ." vertical space" 4 5 * .</pre>
</td></tr></table>

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

<table border=0 cellpadding=0 cellspacing=0><tr><td>
<pre style="background: red;    padding: 4px; margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: yellow; padding: 0px; margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: blue;                 margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: green;                margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
</td></tr></table>

<p>&nbsp;</p>

<pre style="background: yellow; padding: 0px; margin: 0">
Foo bar
   ." Hello" 4 5 * .

 ooo
      plic plic pluic plic
</pre>


<p>&nbsp;</p>

<table border="0" cellpadding=0 cellspacing=0 style="background: yellow; margin: 0"><tr><td>
<pre>
Foo bar
  plic ploc
    tick tock
</pre>
</td></tr></table>

<table border="0" cellpadding=0 cellspacing=0><tr><td>
</td></tr></table>

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

[lua:
  def [[ T0BG 2 bg,body
    '<table border=0 cellpadding=0 cellspacing=0 style="background: '..bg..';">' .. body .. '<tr><td>'
  ]]

]

<table border=0 cellpadding=0 cellspacing=0 style="background: yellow;"><tr><td>
<pre style="margin: 0">
Foo
  bar
    plic
</pre>
<pre style="background: red;    margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="background: orange; margin: 0">1 2 + . ." Hello" 4 5 * .</pre>
<pre style="margin: 0">
Foo
<table border=0 cellpadding=0 cellspacing=0 style="background: blue;"><tr><td>
  bar
</td></tr></table>
    plic
</pre>
</td></tr></table>

<p>&nbsp;</p>

<pre style="background: yellow; padding: 0px; margin: 0">
In a "pre" block that is
 not inside a "table"
  the background spills out
   to the right side.

 Blank lines
are always respected (in "pre"s)
</pre>

<p>&nbsp;</p>

<table border="0" cellpadding=0 cellspacing=0 style="background: yellow; margin: 0"><tr><td>
<pre style="margin: 0">
Original
  code
    here

<table border=0 cellpadding=0 cellspacing=0 style="background: orange;"><tr><td># patch starts here
</td></tr></table># orig code
# commented out
<table border=0 cellpadding=0 cellspacing=0 style="background: red;"><tr><td>  my new
  version
</td></tr></table># patch ends here

Rest of the
 original
  code
</pre>
</td></tr></table>

<p>&nbsp</p>

<pre style="margin: 0">
Original
  code
    here

<table border=0 cellpadding=0 cellspacing=0 style="background: orange;"><tr><td># patch starts here
</td></tr></table># orig code
# commented out
<table border=0 cellpadding=0 cellspacing=0 style="background: red;"><tr><td>  my new
  version
</td></tr></table># patch ends here

Rest of the
 original
  code
</pre>

#*





#####
#
# patched listings
# 2007oct23
#
#####

# «parselspaces»  (to ".parselspaces")
# «patched-listings»  (to ".patched-listings")
#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]

[lua:
-- (find-blogme3file "definers.lua" "_AA[short] = _G[long]")
-- (find-blogme3file "brackets.lua" "readqrest_  =")
-- (find-blogme3file "brackets.lua" "parsespaces =")

parselspaces = function () return parsebypattern("^([ \t]*\n?)()") end
_AA["_1Q"] = function () parselspaces(); return readqrest__() or "" end

def [[ L'  _1Q body     body ]]
def [[ PRERECTBG 2 bg,body
  "<table border=0 cellpadding=0 cellspacing=0 style=\"margin: 0; background: $bg\"><tr><td>" ..
  "$body</tr></td></table>" ]]

_listing_parts = {}
_listing_add = function (text)
    tinsert(_listing_parts, text)
    return text
  end

def [[ PATCH' _1Q body  PRERECTBG("orange", _listing_add(body)) ]]
def [[ OUT'   _1Q body  PRERECTBG("red",    _listing_add(body)) ]]
def [[ ORIG'  _1Q body  _listing_add(body) ]]
def [[ PLISTING 1 body  "<pre style=\"margin: 0\">$body</pre>" ]]
def [[ PLISTING 1 body  PRE(body) ]]
]

[PLISTING [set _listing_body
[ORIG'
Original
  code
    here

][PATCH'
# patch starts here
][OUT'
# orig code
# commented out
][PATCH'
my new version
# patch ends here
][ORIG'

Rest of the
 original
  code
]]]

[PREBOXBLOGME [$ _listing_body]]

[P [set foo Foo foo foo]
[BR] [$ foo] [$ foo]]

[PREBOXBLOGME [expr: table.concat(_listing_parts)]]


#*





#####
#
# invoking blogme
# 2007oct25
#
#####

# «invoking-blogme»  (to ".invoking-blogme")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
echo $PS1
export PS1='%d# '
cd /tmp/
cat > foo.blogme <<'%%%'
[lua: print("Hello!")
      PP(arg)
]
[htmlize [J Foo Bar]
   [P A paragraph]
]
Blah
%%%
lua51 ~/blogme3/blogme3.lua -o foo.html -i foo.blogme
cat foo.html






#####
#
# MDEF
# 2007oct27
#
#####

# «MDEF»  (to ".MDEF")
# (find-blogme3 "")
# (find-blogme3file "brackets.lua")
# (find-blogme3file "definers.lua")
# (find-blogme3file "definers.lua" "runwithvars =")
# (find-blogme3file "options.lua")
# (find-a2ps "~/blogme3/definers.lua")
# (find-a2ps "~/blogme3/options.lua")

# (find-blogme3file "brackets.lua" "withsubj =")

# (find-THgrep "grep -nwH -e 'set' *.blogme")
# (find-THgrep "grep -nwH -e 'DEF' *.blogme")
# (find-THgrep "grep -nH  -e 'DEF' *.blogme")
# (find-blogme3grep "grep -nwH -e set *.lua")
# (find-blogme3grep "grep -nwH -e DEF *.lua")
# (find-blogme3grep "grep -nH  -e DEF *.lua")

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:

_V = _V or {}
def_ [[ set 2 varname,text _G[varname] = text; return text ]]
def  [[ $   1 varname      _V[varname] or _G[varname]      ]]

printlayers = function (T) for depth,tbl in layers(T) do PP(depth, tbl) end end
printlayers_V = function () for depth,tbl in layers(_V) do PP(depth, tbl) end end

runwithlocalvars = function (varnames, values, f, ...)
    _V = over(_V, {})                -- create a new frame for local vars
    for i,varname in ipairs(split("a,b", "([^,]+)")) do -- for each varname
      _V[varname] = values[i]        -- set its value in the new frame
    end
    local results = pack(f(...))     -- run f (with the new local vars)
    _V = under(_V)                   -- drop the new frame
    return unpack(results)
  end

PP(over, under)
-- PP(runwithlocalvars, "a,b", {44, 55}, printlayers_V)
-- PP(runwithlocalvars("a,b", {44, 55}, printlayers_V))
PP(runwithlocalvars("a,b", {44, 55}, doblogme, "(a: [$ a], b: [$ b])"))

-- (find-blogme3file "definers.lua" "def_set_B =")
-- (find-blogme3file "definers.lua" "def_set_G =")
-- (find-blogme3file "definers.lua" "def_as_lua =")

def_set_A("AB", "2")
def_set_G("AB", [=[function (a,b)
    return runwithlocalvars("a,b", {a,b}, doblogme, "(a: [$ a], b: [$ b])")
  end]=])
print(AB(66, 77))

def_set_AG("AB", "2", [=[function (a,b)
    return runwithlocalvars("a,b", {a,b}, doblogme, "(a: [$ a], b: [$ b])")
  end]=])

def [=[ MDEF 4Q name,apspec,arglist,body
    def_set_AG(name, apspec,
        format([==[function (%s)
            return runwithlocalvars(%q, {%s}, doblogme, %q)
          end]==], arglist, arglist, arglist, body))
    ]=]

MDEF("AC", "2", "a,c", "(a: [$ a], c: [$ c])")

print(defs_as_lua())

]

#*


  


#####
#
# lua2html and org2html
# 2007nov11
#
#####

# «lua2html»  (to ".lua2html")
# «org2html»  (to ".org2html")
# I haven't used these options in a while...
# Tests:

* (eepitch-shell)
cd /tmp/
cp -v ~/blogme3/blogme3.lua .
lua51 ~/blogme3/blogme3.lua -o blogme3.lua.html -lua2html blogme3.lua
cp -v ~/ORG/index.org .
lua51 ~/blogme3/blogme3.lua -o index.org.html   -org2html index.org

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
blogmedir = ee_expand("~/blogme3/")
dofile(ee_expand("~/blogme3/blogme3.lua"))
loada2html()
= ("foo = function"):match"^([A-Za-z0-9_.]+)([ \t]+=.*)$"
= htmlizeline_lua("foo = function")




#####
#
# diagrams with (hyperlinked) words
# 2007nov27
#
#####

# «diagrams-with-words»  (to ".diagrams-with-words")
# (find-blogme3 "anggdefs.lua" "_TARGETS")
# (find-TH "emacs" "call-diagrams")
# (find-TH "plurall")
#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
  lpeg.togsub = lpeg_togsub
  lpeg.gsub_  = lpeg_gsub_
  lpeg.gsub   = lpeg_gsub
  f     = function (s) return BG("blue", Q(s)) end
  f     = function (s) return _target[s] and BG("blue", Q(s)) or Q(s) end
  f     = function (s) return _target[s] and __(s, Q(s)) or Q(s) end
  Word  = lpeg.R("az")^1
  Dash  = lpeg.P("-")
  Words = (Word * (Dash * Word)^0) / f
  WordsGsubt = Words:togsub():Ct()
  def [[ TRANSWORDS 1q body WordsGsubt:gsub_(body, Q) ]]
  def [[ TRANSWORDS 1q body Words:gsub(body, Q) ]]
]
[_TARGETS
  code-c-d -> (find-eev "eev.el" "code-c-d")
]

[PREBOXBLOGME [TRANSWORDS
.                                code-c-d   find-code-c-d
                                    |     /       |
                                    v    v        v
            find-fline <----- ee-code-c-d   find-estring-elisp
          /  |              /                     |
         v   |             v                      v
ee-expand    |    find-node                 find-eoutput-rerun
             |        |
             v        v
            ee-goto-position
                  |
                  v
            ee-goto-rest

Top-level words:
  find-fline    - hyperlink to a file
  find-node     - hyperlink to an info node
  code-c-d      - to define `find-xxxfile' and `find-xxxnode' words
  find-code-c-d - inspect the code that `code-c-d' would run
]]

#*



#####
#
# logs with traffic-light chars (^A-^E)
# 2007dec05
#
#####

# «traffic-lights»  (to ".traffic-lights")
# (find-angg ".emacs" "find-epalette")
# (find-epalette my-palette)
# (find-ecolors)

(insert
 (propertize "a" 'face '(:foreground "firebrick1" :background "firebrick"))
 (propertize "b" 'face '(:foreground "purple1" :background "purple4"))
 (propertize "b" 'face '(:foreground "orange1" :background "orange4"))
 (propertize "c" 'face '(:foreground "darkolivegreen1" :background "darkolivegreen4"))
)

(insert
 (propertize "a" 'face '(:foreground "firebrick1" :background "firebrick"))
 "(gdb)"
 (propertize "b" 'face '(:foreground "orange1" :background "orange4"))
 " command"
 (propertize "c" 'face '(:foreground "darkolivegreen1" :background "darkolivegreen4"))
 "\noutput output\noutput"
)
  
;; «traffic-lights-glyphs»  (to ".traffic-lights-glyphs")
;; (find-angg ".emacs" "eev-traffic-light-glyphs")
;; (find-blogme3 "anggdefs.lua" "TRAFFIC")
;; (eev-traffic-light-glyphs)

;; (find-eevfile "eev-math-glyphs.el" "eev-glyphs-set-face 'eev-glyph-face-Greek")
;; (find-eevfile "eev-math-glyphs.el" "defvar eev-math-glyphs-name-to-char")
;; (eev-math-glyphs-edrx)
;;
(add-to-alist 'eev-math-glyphs-name-to-char '("^a" . ?a))
(add-to-alist 'eev-math-glyphs-name-to-char '("^b" . ?b))
(add-to-alist 'eev-math-glyphs-name-to-char '("^c" . ?c))
(eev-glyphs-set-face 'eev-glyph-face-cfont-a "firebrick1"      "firebrick")
(eev-glyphs-set-face 'eev-glyph-face-cfont-b "orange1"         "orange4")
(eev-glyphs-set-face 'eev-glyph-face-cfont-c "darkolivegreen1" "darkolivegreen4")
(eev-math-glyphs-set 'eev-glyph-face-cfont-a "^a" "^a" "")
(eev-math-glyphs-set 'eev-glyph-face-cfont-b "^b" "^b" "")
(eev-math-glyphs-set 'eev-glyph-face-cfont-c "^c" "^c" "")


#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
  traffic = function (char, str)
      if char == "\01" then return COLOR("red",   Q(str)) end
      if char == "\02" then return COLOR("green", Q(str)) end
      return Q(str)
    end
  def [[ TRAFFIC 1 body
         ("\03"..body):gsub("([\01-\03])([^\01-\03]*)", traffic) ]]
]

[PRE [TRAFFIC ['
Current directory is /home/edrx/usrc/lua-5.1.2/src/
Using host libthread_db library "/lib/tls/i686/cmov/libthread_db.so.1".
(gdb) set args /tmp/foo.lua
(gdb) br math_sin
Breakpoint 1 at 0x80673ef: file lmathlib.c, line 32.
(gdb) run
Starting program: /home/edrx/usrc/lua-5.1.2/src/lua_O0 /tmp/foo.lua

Breakpoint 1, math_sin (L=0x8071008) at lmathlib.c:32
(gdb) call lua_pushstring(L, "print")
(gdb) call lua_gettable(L, -10002)
(gdb) call lua_pushstring(L, "Foo!")
(gdb) call lua_pushstring(L, "Bar!")
(gdb) p lua_gettop(L)
$1 = 4
(gdb) call lua_call(L, 2, 0)
Foo!    Bar!
(gdb) p lua_gettop(L)
$2 = 1
(gdb)
]]]

#*






#####
#
# dump_E4s
# 2007dec11
#
#####

# (find-blogme3 "elisp.lua" "_E4s_as_lua")




#####
#
# build a blogme.tgz, test on a NetBSD box
# 2007dec27
#
#####

# «blogme3.tgz»  (to ".blogme3.tgz")

# (find-angg ".emacs" "caramelo")
# (find-blogme3 "Makefile")
# (find-blogme3file "")
# (find-blogme3file "anggmake.lua" " blogme3/")
# (find-THfile "")
# (find-blogme3file "Makefile")
# (find-es "lua5")
# (find-node "(make)Automatic Variables")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)

rm -Rv /tmp/blogmetest/
mkdir  /tmp/blogmetest/
mkdir  /tmp/blogmetest/TH/
cd     /tmp/blogmetest/
cp -v ~/blogme3/*.lua          /tmp/blogmetest/
cp -v ~/blogme3/Makefile       /tmp/blogmetest/
cp -v ~/LUA/lua50init.lua      /tmp/blogmetest/
cp -v ~/TH/speedbar.blogme     /tmp/blogmetest/TH/
cp -v ~/TH/blogme3.blogme      /tmp/blogmetest/TH/
# cp -v ~/blogme3/testcgi.blogme /tmp/blogmetest/TH/

cd     /tmp/blogmetest/
{TZ=GMT date; date;} > VERSION
tar -cvzf ~/blogme3/blogme3.tgz *

# Note that we build a tgz in ~/blogme3/blogme3.tgz, but then we
# upload it to http://angg.twu.net/blogme3.tgz - no "/blogme3/".

# (find-twusfile "" "blogme3")
# (ee-cp "~/blogme3/blogme3.tgz" (ee-twupfile "blogme3.tgz") 'over)
# (ee-cp "~/blogme3/blogme3.tgz" (ee-twusfile "blogme3.tgz") 'over)
# (eev "Scp ~/blogme3/blogme3.tgz edrx@angg.twu.net:slow_html/")
# (eev "Scp ~/blogme3/blogme3.tgz edrx@angg.twu.net:public_html/")

# (find-blogme3 "Makefile")
rm -Rv /tmp/blogmetest/usrc/
make S=$S testb

# Older tests:
make S=$S |& tee om
make S=$S luatest
make S=$S lpegtest
make S=$S test

# (find-blogme3file "Makefile")




#####
#
# testing blogme3 at caramelo
# 2007dec28
#
#####

# «blogme3-at-caramelo»  (to ".blogme3-at-caramelo")

* (eepitch-caramelo)
* (eepitch-kill)
* (eepitch-caramelo)
* (ee-cp "~/blogme3/blogme3.tgz" (ee-caramelofile "tmp/blogme3.tgz") 'over)

rm -Rv /tmp/blogmetest/
mkdir  /tmp/blogmetest/
cd     /tmp/blogmetest/
tar -xvzf ~edrx/tmp/blogme3.tgz

make LUAOS=bsd luatest
make LUAOS=bsd lpegtest
make LUAOS=bsd test
make LUAOS=bsd testb

# (find-blogme3 "Makefile")
# (find-es "lua5" "install-5.1.2")
# (find-es "make" "environment")
# (find-node "(make)Instead of Execution" "`-n'")
# (find-node "(make)Setting" "FOO ?= bar")




#####
#
# blogme3 at zumbi
# 2007dec28
#
#####

# «blogme3-at-zumbi»  (to ".blogme3-at-zumbi")
# http://zumbi/~edrx/tmp/
# http://zumbi/~edrx/tmp/foo
# http://zumbi/~edrx/tmp/foo.html
# (find-zumbipagefile "tmp/foo")
# (find-zumbifile "")

# (find-fline "~/blogme3/blogme3.tgz")
# (find-caramelofile "")
# (find-zumbifile    "")
# (find-caramelofile "blogme3/")
# (find-zumbifile    "blogme3/")
# (find-caramelofile "blogme3/blogme3.tgz")
# (find-zumbifile    "blogme3/blogme3.tgz")

* (ee-cp "~/blogme3/blogme3.tgz" (ee-caramelofile "blogme3/blogme3.tgz") 'over)
* (ee-cp "~/blogme3/blogme3.tgz" (ee-zumbifile    "blogme3/blogme3.tgz") 'over)

* (eepitch-caramelo)
* (eepitch-kill)
* (eepitch-caramelo)
cd ~/blogme3/
tar -xvzf blogme3.tgz
cat VERSION
make clean
make LUAOS=bsd ANGGBASE=http://10.1.0.101/TH/R/

* (eepitch-zumbi)
* (eepitch-kill)
* (eepitch-zumbi)
cd ~/blogme3/
tar -xvzf blogme3.tgz
cat VERSION
make clean
make LUAOS=bsd ANGGBASE=http://10.1.0.101/TH/R/


* (eepitch-zumbi)
* (eepitch-kill)
* (eepitch-zumbi)
cd ~/public_html/
rm -Rv www/wiki/
rm -Rv www/
export 'CVSROOT=:ext:edrx@_zumbi:/omnisys/cvsroot'
export 'CVSROOT=/omnisys/cvsroot'
cvs checkout www/wiki
cd ~/public_html/www/wiki/
cvs --help
cvs --help-commands
for i in note* project*; do
  ~edrx/blogme3/w2html $i
done

* (ee-cp "~/e/netbsd.e" (ee-zumbipagefile "www/wiki/") 'over)
~edrx/blogme3/t2html netbsd.e
# ^ Too slow!!!
# (find-blogme3 "anggdefs.lua" "wikirefs")
# (find-zumbipagefile "www/wiki/")
# http://zumbi/~edrx/www/wiki/project.cla-tlm.GuiIoMessages.html
# http://zumbi/~edrx/www/wiki/netbsd.e.html

# file:///home/edrx/TH/L/e/netbsd.e.html
# (find-zumbifile "")
# (find-zumbipagefile "www/wiki/")
# (find-es "netbsd")






# old stuff:

# (find-es "ssh" "sshaskpass")
# (find-es "blogme" "blogme3.tgz")

* (eepitch-zumbi)
* (eepitch-kill)
* (eepitch-zumbi)
* (ee-cp "~/blogme3/blogme3.tgz" (ee-zumbifile "tmp/blogme3.tgz") 'over)
# (find-es "blogme" "blogme3.tgz")
cd ~/public_html/tmp/
~edrx/blogme3/blogme3 -anggat -o http://10.1.0.101/TH/R/ foo.html -a2html foo




#####
#
# the ".a2html" target in makefiles
# 2007dec28
#
#####

# «makefile-a2html»  (to ".makefile-a2html")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/fooo
mkdir  /tmp/fooo
cd     /tmp/fooo
cat > Makefile <<'%%%'
BLOGME3 = ~edrx/blogme3/blogme3
BLOGME3A2HTML = $(BLOGME3) -anggat http://10.1.0.101/TH/R/
%.a2html:
	$(BLOGME3A2HTML) -o $*.html -a2html $*
%%%
echo "http://angg.twu.net/" > foo
make foo.a2html

# file:///tmp/fooo/foo.html



#####
#
# running a2html at zumbi
# 2007dec28
#
#####

# «a2html-at-zumbi»  (to ".a2html-at-zumbi")
# (find-zumbifile "")
# (find-zumbifile "bin/a2html")
# (find-zumbipagefile "tmp/")

* (eepitch-zumbi)
* (eepitch-kill)
* (eepitch-zumbi)
cd ~/public_html/tmp/
ls
ls | grep -v '\.html$' | grep -v '~$'
for i in $(ls | grep -v '\.html$' | grep -v '~$'); do echo $i; done
for i in $(ls | grep -v '\.html$' | grep -v '~$'); do ~/bin/a2html $i; done

# http:///zumbi/~edrx/tmp/
# http:///zumbi/~edrx/tmp/TODO.html





#####
#
# tests for the parsechangelog module
# 2007dec27
#
#####

# «parsechangelog-tests»  (to ".parsechangelog-tests")

# (find-blogme3 "")
# (find-blogme3 "escripts.lua")
# (find-es "lua5" "lpeg-quickref")
# (find-es "blogme")
# (find-angg "LUA/parsechangelog.lua")

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
-- (find-angg "LUA/parsechangelog.lua")
-- (find-es "lua5" "lpeg-quickref")
-- HOME = os.getenv "HOME"

dofile(ee_expand "~/LUA/parsechangelog.lua")

changelog    = readfile(ee_expand "~/tmp/Changelog")
c = ((SeparatorT * FieldsT)^0):Ct():match(changelog)
= #c
PP(c[1])
PP(c[2])

for fieldname, body in prfields(fields) do
  PP(fieldname, body)
end

PP(c[2])
for fieldname, body in changelogfields(c[2]) do
  PP(fieldname, body)
end

PP(fieldsandvalues(fields, changelogfields))
PP(changelogfieldsandvalues(fields))
PP(prfieldsandvalues(fields))
PP(changelogfieldsandvalues(c[2]))

print(sqlizefields("tbl1", changelogfieldsandvalues(c[2])))

-- (find-angg "LUA/parsechangelog.lua")
-- (find-es "sqlite" "pr.sqlitedb")
-- (find-es "lua5")




#####
#
# CGIs in blogme3
# 2008jan02
#
#####

# «cgis»  (to ".cgis")
# (find-blogme3 "blogme3")
# (find-blogme3file "Makefile")
# (find-blogme3file "Makefile" "blogme3:")

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[PRE [Q
[expr: getoutput("set")]
]]

#*




#####
#
# CGIs in blogme, at zumbi
# 2008jan03
#
#####

# «cgis-at-zumbi»  (to ".cgis-at-zumbi")
# (find-zumbipagefile "tmp/set.cgi")




#####
#
# wikirefs
# 2008jan03
#
#####

# «wikirefs»  (to ".wikirefs")
# (find-blogme3 "anggdefs.lua" "wikirefs")
# (find-blogme3 "anggdefs.lua" "wikirefs" "replacewikirefs =")

#*
[# (eeblogme-now-bounded)
 # file:///tmp/ee.html
 #]
[lua:
  def [[ WIKIREFS 1 bigstr replacewikirefs(bigstr) ]]
]

[PRE [WIKIREFS ['
# $Id: project.cla-tlm.GuiIoMessages,v 1.2 2008/01/02 22:30:55 silas Exp $

This is the document that describes the algorithms responsible for transfering
messages from IO to Gui and vice-versa. This process is similar to the
communication between IO and Recorder.

In main() an object of TlmGuiMain is created and its method init() is called.
This method creates almost all the object intances of the program, including
d_gio, which is an object of the type TlmGuiIO [_ tlmguiio]. After creating
this object, its method init(s) have to be called. "s" is an string which has
the path for the socket.

-- TODO: talk about the difference in TlmRecIO::init() and TlmGuiIO::init()

The init() method calls _init(), which is a method of the TlmUnixSock class,
implemented in [_ tlm_gui-io]. As TlmGuiIO inherites TlmUnixSock, its
protected methods and variables are also accessible.

-- TODO: tell why TlmRecIO::init() don't call _init(). tell that it receives
-- the ready file descriptor from tlmgui, that called tlmrec.

_init(), then, creates the socket with socket() and return a valid
filedescriptor. init() resumes the process, configuring the socket and
dup()ing, so it can use it for reading and writing.

-- TODO: continue...

# refs
# tlmgui_io http://zumbi/cgi-bin/cvsweb.cgi/cla-telemedidas/ihmtelm/tlmgui_io.cpp
# tlm_gui-io http://zumbi/cgi-bin/cvsweb.cgi/cla-telemedidas/ihmtelm/tlm_gui-io.cpp
# sfer

# vim: tw=78 ts=4 et:
]]]

#*







#####
#
# blogme3 in macosx
# 2008feb17
#
#####

# «blogme3-in-macosx»  (to ".blogme3-in-macosx")
# (find-eev "find-eev-update-links")
# (find-blogme3 "Makefile")
# (find-blogme3file "Makefile" "luaunpack:")




#####
#
# The "audios/" dir at angg.twu.net
# 2013aug08
#
#####

# «angg-audios» (to ".angg-audios")
# (find-es "html" "html5-audio")
# http://angg.twu.net/audios/
#      (find-THLfile "audios/")
#       (find-THfile "audios/")
#       (find-TH     "audios/2012set20-ict")
#       (find-TH     "audios/2012nov22-ict")
#       (find-TH     "audios/2012dez13-ict")



# «audio-sexps» (to ".audio-sexps")
# (find-TH      "html5-audio")

[lua:
-- (find-blogme3 "anggdefs.lua" "Sexp")
elispSPECIAL["find-rlmb-audio"] = meta_seek
]

[PREBOXBLOGME
[SQ
(find-rlmb-audio "0:00" "comment")
(find-rlmb-audio "1:23" "comment")
]
]





#####
#
# Local videos
# 2013sep16
#
#####

# «local-videos» (to ".local-videos")
# (find-angg "LUA/youtube.lua")
# (find-blogme3  "youtube.lua")
# (find-blogme3 "anggdefs.lua" "youtube")
#
# (find-TH "videos-locais")
# (find-TH "local-videos")
# (find-TH "linkdasruas")
# (find-THfile "linkdasruas.txt")
# (find-THLfile "local-videos.html")
# (find-THLfile "videos-locais.html")
# file:///home/edrx/TH/L/videos-locais.html
# file:///home/edrx/TH/L/local-videos.html

(find-2a 
  ' (find-fline "/sda5/videos/manifs/")
  ' (find-fline "~/TH/L/manifs/")
  )

# (find-wget "http://angg.twu.net/linkdasruas.txt")
# http://angg.twu.net/linkdasruas.txt
# http://angg.twu.net/linkdasruas.html
# http://angg.twu.net/videos-locais.html
# http://angg.twu.net/local-videos.html



# «local-videos-pen-drive» (to ".local-videos-pen-drive")
# (find-pen-links)

* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)

mkdir /tmp/pen/
sudo mount -o uid=$UID         /dev/sdb1 /tmp/pen/
# (find-fline "/tmp/pen/")

# cp -v ~/TH/L/videos-locais.html /tmp/pen/
# cp -v ~/TH/L/local-videos.html  /tmp/pen/
# mkdir                           /tmp/pen/manifs/
# cp -v ~/TH/L/manifs/*           /tmp/pen/manifs/

mkdir                           /tmp/pen/manifs/
cp -v ~/TH/L/videos-locais.html /tmp/pen/manifs/
cp -v ~/TH/L/local-videos.html  /tmp/pen/manifs/
cp -v ~/TH/L/local-videos.js    /tmp/pen/manifs/
#cp -v ~/TH/L/tmp.html          /tmp/pen/manifs/
cp -v ~/TH/L/linkdasruas.html   /tmp/pen/manifs/
cp -v ~/TH/L/pendrive.jpg       /tmp/pen/manifs/
mkdir                           /tmp/pen/manifs/manifs/
cp -v ~/TH/L/manifs/*           /tmp/pen/manifs/manifs/

# (find-fline      "~/audios/")
# (find-fline "~/TH/L/audios/")
mkdir                                /tmp/pen/manifs/audios/
cp -v ~/TH/L/audios/2013dec04-aduff* /tmp/pen/manifs/audios/

# file:///tmp/pen/manifs/
# file:///tmp/pen/manifs/linkdasruas.html
# file:///tmp/pen/manifs/audios/

# Or:
# (find-sh "cd ~/TH/L/manifs/ && du -ch *.mp4")
# (find-sh "cd ~/TH/L/manifs/ && du -ch [1-N]*.mp4")
# (find-sh "cd ~/TH/L/manifs/ && du -ch [O-z]*.mp4")
#
cp -v ~/TH/L/manifs/[1-N]*      /tmp/pen/manifs/manifs/
cp -v ~/TH/L/manifs/[P-z]*      /tmp/pen/manifs/manifs/

# (find-angg ".emacs" "chomsky")
# (find-fline "/sda5/torrents/Consenso_fabricado/")
cp -v /sda5/torrents/Consenso_fabricado/*.avi /tmp/pen/

# file:///tmp/pen/manifs/linkdasruas.html
#
# file:///tmp/pen/videos-locais.html
# file:///tmp/pen/local-videos.html
# file:///tmp/pen/manifs/
# file:///tmp/pen/manifs/tmp.html
# file:///home/edrx/TH/L/videos-locais.html
# file:///home/edrx/TH/L/local-videos.html

cp -v /sda5/torrents/Consenso_fabricado/*.avi /tmp/pen/


sudo umount /tmp/pen
sync


* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)
mount







#####
#
# Debugging the scripts for local videos
# 2013sep18
#
#####

# «local-videos-debug» (to ".local-videos-debug")

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
loadblogme3()
chdir "~/TH/L/"
youtube_copy_to = "/foo/"
youtube_ls "ls manifs/*"
li = "http://www.youtube.com/watch?v=nHGwYC6n4bY Gordao do Trem"
bigstr = [[
http://www.youtube.com/watch?v=nHGwYC6n4bY Gordao do Trem
http://www.youtube.com/watch?v=nhgwyc6n4by gordao do trem
http://www.youtube.com/watch?v=nhgwyc6n4by gordao do trem
]]
= Yline(li)
= Ylines(bigstr)
= Ythumbs(bigstr)
= Yline "ello"
youtube_add_urls(bigstr)
PP(youtube_database)
PP(youtube_split_url0(li))




#####
#
# linkdasruas
# 2013oct01
#
#####

# «linkdasruas» (to ".linkdasruas")
# (find-TH      "linkdasruas")
# (find-THLfile "linkdasruas.html")
# (find-angg    "linkdasruas.txt")
# (find-THLfile "local-videos.js")
# (find-blogme3 "local-videos.js")
# (find-TH      "tmp")
# (find-THLfile "tmp.html")
# file:///home/edrx/TH/L/tmp.html

# (find-TH "local-videos")
# (find-TH "videos-locais")
# (find-es "blogme" "local-videos")

# (find-wdgrefgrep "grep -nrH -e charset *")
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
# (find-blogme3file "anggdefs.lua" "metastr =")




#####
#
# albums
# 2014jan07
#
#####

# «albums» (to ".albums")
# (find-wget "http://angg.twu.net/natal-2013/index.html")

# (find-fline "~/FOTOS/natal-2013/")
# file:///home/edrx/FOTOS/natal-2013/index.html

[lua:
  def [[ PIC0 1 n "file:///home/edrx/FOTOS/natal-2013/_DSC0"..n.."_r4.jpg" ]]
  def [[ PIC0 1 n "_DSC0"..n.."_r4.jpg" ]]
  def [[ PIC  1 n SCALEDIMAGE("30%", PIC0(n)) ]]
  def [[ PICS 1L ns mapconcat(PIC, ns, "\n") ]]
]
[htmlize0 [J]

[expr: PICS(seq(325, 347))]

]



#####
#
# Building complex patterns with gsub
# 2014mar20
#
#####

# «gsub-build» (to ".gsub-build")

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)

id   = "edrx"
body = "thin"

f = function (id,body)
    local a = {}
    local r = function (s) return (s:gsub("%$([a-z]+)", a)) end
    a.id      = id
    a.qbody   = body
    a.preid   = r 'pre id="$id"'
    a.preidz  = r 'pre id="$id" style="margin:0px 0px;"'
    a.preidzr = r 'pre id="$id" style="margin:0px 0px; color:red;"'
    a.qpre    = r '<$preidzr>&lt;$preid&gt;</pre>'
    a.qspre   = r '<$preidzr>&lt;/pre&gt;</pre>'
    return      r '$qpre\n<$preidz>\n$qbody</pre>\n$qspre\n'
  end

g = function (id,c,r,body)
    local a = {}
    local r = function (s) return (s:gsub("%$([a-z]+)", a)) end
    a.id      = id
    a.qbody   = body
    a.ticr    = r 'textarea id="$id" cols=$c rows=$r'
    a.preidzr = r 'pre id="$id" style="margin:0px 0px; color:red;"'
    a.qta     = r '<$preidzr>&lt;$ticr&gt;</pre>'
    a.qsta    = r '<$preidzr>&lt;/textarea&gt;</pre>'
    return      r '$qta\n<$ticr>\n$qbody</textarea>\n$qsta\n'
  end

= f("edrx", "thin")
= g("ID", 3, 4, "thin")




#####
#
# running blogme3 interactively
# 2014aug31
#
#####

# «interactive» (to ".interactive")
# (find-angg ".emacs" "blogme3")
# (find-angg "LUA/lua50init.lua" "loadblogme3")

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
blogmedir = ee_expand "~/blogme3/"
dofile(blogmedir.."blogme3.lua")
b = doblogme
=b "[BF Hello]"

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
lua51 -e 'loadblogme3(true)' -i
=b "[BF Hello]"

* (eepitch-blogme3)
* (eepitch-kill)
* (eepitch-blogme3)
=b "[BF Hello]"




#####
#
# withindex
# 2014sep01
#
#####

# «withindex2» (to ".withindex2")

* (eepitch-blogme3)
* (eepitch-kill)
* (eepitch-blogme3)
-- (find-blogme3 "anggdefs.lua" "WITHINDEX" " INDEX ")
__secn = "0"; secindex = {}
def [[ WITHINDEX0 1 body LIST2(secindex)..body ]]
def [[ WITHINDEX0 1 body SMALL(table.concat(secindex, "\n")).."\n"..body ]]
=b [=[
[WITHINDEX0
[sec <rorschach> (to ".rorschach")
  H2 [++N]. O teste de Rorschach]
[sec <rorschach2> (to ".rorschach")
  H2 [++N]. O teste de Rorschach 2]
]
]=]


* (eepitch-blogme3)
* (eepitch-kill)
* (eepitch-blogme3)
-- (find-blogme3 "brackets.lua" "readvword")
-- (find-blogme3 "definers.lua" "_AA")
_AA["QR"] = function () return readqword(), readvrest() end
def [[ DELAY  QR a,b doblogme(a)..b ]]
__secn = "0"; secindex = {}
=b [==[
[DELAY [++N] [++N] [++N]]
]==]


readqvrest
readqvrest =

def [[ FOO 2Q a,b PP(doblogme(a),b) ]]
=b [==[
[FOO [IT foo] bar [plic]]
]==]


def [[ SWAP 2 a,b b..a ]]
=b [==[ [SWAP foo bar] ]==]

=b [==[[SWAP [J
[sec <rorschach> (to ".rorschach")
  J [++N]. O teste de Rorschach]
[sec <rorschach2> (to ".rorschach")
  J [++N]. O teste de Rorschach 2]
]
[SMALL [expr: table.concat(secindex, "\n")]]
]]==]









#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: