-- sexpdefs.lua - new code to handle things like code-c-d. Experimental, not used yet.
-- This is part of blogme3.
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
-- Version: 2018mai19
-- <http://anggtwu.net/blogme3/sexp.lua>
-- <http://anggtwu.net/blogme3/sexp.lua.html>
-- License: GPL.

-- «.find-angg_»	(to "find-angg_")
-- «.elisp_def»		(to "elisp_def")
-- «.code-c-d»		(to "code-c-d")






-- «find-angg_» (to ".find-angg_")
intro_link = function (stem)
    return format("http://anggtwu.net/eev-intros/find-%s-intro.html", stem)
  end
dot_html_tag = function (path, tag)
    local isdir = (path == "" or path:match"/$")
    if isdir
    then return ""
    else return ".html"..(tag and "#"..tag or "")
    end
  end
angg_anchor_link = function (fname, anchor)
    if not fname then return end
    return format("http://anggtwu.net/%s%s", fname, dot_html_tag(fname, anchor))
  end
find_angg__ = function (d, fname, anchor)
    if not fname then return end
    return intro_link("eev-quick"), angg_anchor_link(d..fname, anchor)
  end
find_angg_ = function (d)
    return function (fname, anchor)
        return find_angg__(d, fname, anchor)
      end
  end

--[==[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "sexp.lua"   -- (find-blogme3 "sexp.lua")
dofile "sexpdefs.lua"
= find_angg_ "blogme3/" ()
= find_angg_ "blogme3/" (nil,        "getsexphtml")
= find_angg_ "blogme3/" ("sexp.lua")
= find_angg_ "blogme3/" ("sexp.lua", "getsexphtml")

--]==]



-- «elisp_def» (to ".elisp_def")
-- For tests. A "real" version of elisp_def should put everything in _EE.
elisp_def = function (name, f)
    local name_ = name:gsub("%-", "_")
    _G[name]  = f
    _G[name_] = f
  end

-- «code-c-d» (to ".code-c-d")
-- (find-code-c-d "lua51" "~/usrc/lua-5.1.4/")
-- (find-eevfile "eev-code.el" "code-c-d: top-level functions")
elisp_def("code-c-d",
    function (c, d)
      if not (c and d) then return end
      local funname = format("find-%s", c)
      elisp_def(funname, find_angg_(d))
      return intro_link("code-c-d")
  end)

--[==[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "sexp.lua"   -- (find-blogme3 "sexp.lua")
dofile "sexpdefs.lua"
code_c_d("angg",    "")
code_c_d("blogme3", "blogme3/")
= find_angg   ("",         "tag")
= find_angg   (".emacs",   "tag")
= find_blogme3("",         "tag")
= find_blogme3("sexp.lua", "tag")

--]==]






-- (find-blogme3 "angglisp.lua")
-- (find-blogme3 "angglisp.lua" "code_c_d_angg")

code_c_d("angg",       "")
code_c_d("es",         "e/")
code_c_d("dednat4",    "dednat4/")
code_c_d("dn4",        "dednat4/")
code_c_d("dn4ex",      "dednat4/examples/")
code_c_d("dn5",        "dednat5/")
code_c_d("dn6",        "LATEX/dednat6/")
code_c_d("dednat6",    "dednat6/")
code_c_d("dednat6lua", "dednat6/lua/")
code_c_d("blogme",     "blogme/")
code_c_d("blogme3",    "blogme3/")
code_c_d("blogme4",    "blogme4/")
code_c_d("eev",        "eev-current/")
code_c_d("flua",       "flua/")
code_c_d("rubyforth",  "rubyforth/")
code_c_d("vtutil",     "vtutil/")
code_c_d("vtutil4",    "vtutil4/")
code_c_d("RETRO",      "RETRO/")
code_c_d("gab",        "gab/")
code_c_d("eevvideos",  "eev-videos/")
code_c_d("quadr",      "quadradinho/")
code_c_d("ydb",        "youtube-db/")
code_c_d("fbcache",    "fbcache/")

code_c_d("twus",    "")
code_c_d("twup",    "")

-- (find-blogme3 "sexp.lua" "getsexptarget")
--[==[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "sexp.lua"   -- (find-blogme3 "sexp.lua")
dofile "sexpdefs.lua"
gst = function (li) print(getsexptarget(li)); print() end
gst [[  (find-blogme3 "sexp.lua")]]
gst [[  (find-blogme3 "sexp.lua" "hi")]]

--]==]