Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- sexp.lua - new code to handle elisp hyperlinks. -- This is experimental and loaded by only a few files: -- (find-THgrep "grep --color -nH -e sexp.lua *.blogme") -- It uses: -- (find-angg "LUA/lua50init.lua" "EevIntro") -- (find-angg "LUA/lua50init.lua" "ELispH") -- (find-angg "LUA/lua50init.lua" "ELispHF") -- (find-angg "LUA/lua50init.lua" "SexpSkel") -- (find-angg "LUA/lua50init.lua" "ELispInfo") -- -- Test and debug with: -- (eek "M-h M-k M-h b ;; find-sexptotarget-links") -- (find-efunction 'find-sexptotarget-links) -- (find-angg ".emacs" "sexptotarget") -- (to "tests") -- -- This is part of blogme3. -- Author: Eduardo Ochs <eduardoochs@gmail.com> -- Version: 2019feb28 -- <http://anggtwu.net/blogme3/sexp.lua> -- <http://anggtwu.net/blogme3/sexp.lua.html> -- License: GPL. -- «.find-xxx-intros» (to "find-xxx-intros") -- «.find-xxxnodes» (to "find-xxxnodes") -- «.code-c-d-angg» (to "code-c-d-angg") -- «.STOH» (to "STOH") -- «.tests» (to "tests") -- «find-xxx-intros» (to ".find-xxx-intros") -- See: (find-blogme3 "eevintros.lua" "listofintros") -- (find-fline "~/eev-intros/README" " (find-eev-intro)") ee_intro_stems_generator = function () local bigstr = ee_readfile "~/eev-intros/README" local pat = "\n %(find%-([!-~]*)%-intro%)" return bigstr:gmatch(pat) end ee_intro_stems = [[ anchors audiovideo bounded brxxx channels code-c-d debootstrap defun dot-emacs edit-index eejump eepitch eev eev-exercises eev-install eev-levels eev-quick elisp emacs emacs-keys escripts eval git here-links kl-here kla lean4 lexical links-conv links lua-tutorial multiwindow org pdf-like prepared psne rcirc refining rstdoc saving-links show2 strange-functions templates three-main-keys try-sly videos video-links windows-beginner wrap lisptree show-conses ]] for _,stem in ipairs(split(ee_intro_stems)) do local f=format("find-%s-intro", stem) _EHF[f] = ELispHF.newintro(f) end -- «find-xxxnodes» (to ".find-xxxnodes") -- (find-blogme3 "angglisp.lua" "code_c_m_b_s") -- (find-es "lua5" "ELispInfo") -- (find-angg "LUA/lua50init.lua" "ELispInfo") code_c_m_b = function (c, manual, basedir) infomanual_basedir[manual] = basedir local find_cnode = "find-"..c.."node" _EHF[find_cnode] = ELispHF.newnode(find_cnode, c, manual) end code_c_m_b("e", "emacs", "http://www.gnu.org/software/emacs/manual/html_node/emacs/") code_c_m_b("el", "elisp", "http://www.gnu.org/software/emacs/manual/html_node/elisp/") code_c_m_b("eli", "eintr", "http://www.gnu.org/software/emacs/emacs-lisp-intro/html_node/") code_c_m_b("efaq", "efaq", "https://www.gnu.org/software/emacs/manual/html_node/efaq/") code_c_m_b("cl", "cl", "http://www.gnu.org/software/emacs/manual/html_node/cl/") code_c_m_b("gnus", "gnus", "http://www.gnu.org/software/emacs/manual/html_node/gnus/") code_c_m_b("message", "message", "http://www.gnu.org/software/emacs/manual/html_node/message/") code_c_m_b("woman", "woman", "http://www.gnu.org/software/emacs/manual/html_node/woman/") code_c_m_b("rcirc", "rcirc", "http://www.gnu.org/software/emacs/manual/html_node/rcirc/") code_c_m_b("org", "org", "http://www.gnu.org/software/emacs/manual/html_node/org/") code_c_m_b("gst", "gst", "http://www.gnu.org/software/smalltalk/manual/html_node/") code_c_m_b("gstbase", "gst-base", "http://www.gnu.org/software/smalltalk/manual-base/html_node/") code_c_m_b("gstlibs", "gst-libs", "http://www.gnu.org/software/smalltalk/manual-libs/html_node/") code_c_m_b("pclcvs", "pcl-cvs", "http://www.gnu.org/software/emacs/manual/html_node/pcl-cvs/") code_c_m_b("autotype", "autotype", "http://www.gnu.org/software/emacs/manual/html_node/autotype/") code_c_m_b("libc", "libc", "http://www.gnu.org/software/libc/manual/html_node/") code_c_m_b("make", "make", "http://www.gnu.org/software/make/manual/html_node/") code_c_m_b("grub", "grub", "https://www.gnu.org/software/grub/manual/grub/html_node/") code_c_m_b("gawk", "gawk", "http://www.gnu.org/software/gawk/manual/html_node/") code_c_m_b("texi", "texinfo", "http://www.gnu.org/software/texinfo/manual/texinfo/html_node/") code_c_m_b("gcc", "gcc-4.1", "http://gcc.gnu.org/onlinedocs/gcc-4.2.2/gcc/") code_c_m_b("coreutils", "coreutils", "http://www.gnu.org/software/coreutils/manual/html_node/") code_c_m_b("bash", "bash", "http://www.gnu.org/software/bash/manual/html_node/") code_c_m_b("bash", "bashref", "http://www.gnu.org/software/bash/manual/html_node/") code_c_m_b("wget", "wget", "http://www.gnu.org/software/wget/manual/html_node/") code_c_m_b("slime", "slime", "http://common-lisp.net/project/slime/doc/html/") code_c_m_b("bison", "bison", "http://www.gnu.org/software/bison/manual/html_node/") code_c_m_b("octave", "octave", "http://www.gnu.org/software/octave/doc/interpreter/") code_c_m_b("rcirc", "rcirc", "http://www.gnu.org/software/emacs/manual/html_node/rcirc/") code_c_m_b("binutils", "binutils", "http://sourceware.org/binutils/docs/binutils/") code_c_m_b("gdb", "gdb", "http://sourceware.org/gdb/download/onlinedocs/gdb/") code_c_m_b("parted", "parted", "https://www.gnu.org/software/parted/manual/html_node/") -- «code-c-d-angg» (to ".code-c-d-angg") -- (find-blogme3 "angglisp.lua" "code_c_d_angg") code_c_d_angg = function (c, d, suffix) local find_c = "find-"..c local find_cfile = "find-"..c.."file" _EHF[find_c ] = ELispHF.newangg(find_c, d, suffix or ".html") _EHF[find_cfile] = ELispHF.newangg(find_c, d, ".html") end code_c_d_angg("angg", "") code_c_d_angg("es", "e/", ".e.html") code_c_d_angg("dednat4", "dednat4/") code_c_d_angg("dn4", "dednat4/") code_c_d_angg("dn4ex", "dednat4/examples/") code_c_d_angg("dn5", "dednat5/") code_c_d_angg("dn6", "LATEX/dednat6/") code_c_d_angg("dednat6", "dednat6/") code_c_d_angg("dednat6lua", "dednat6/dednat6/") code_c_d_angg("blogme", "blogme/") code_c_d_angg("blogme3", "blogme3/") code_c_d_angg("blogme4", "blogme4/") code_c_d_angg("eev", "eev-current/") code_c_d_angg("flua", "flua/") code_c_d_angg("rubyforth", "rubyforth/") code_c_d_angg("miniforth", "miniforth/") code_c_d_angg("vtutil", "vtutil/") code_c_d_angg("vtutil4", "vtutil4/") code_c_d_angg("RETRO", "RETRO/") code_c_d_angg("gab", "gab/") code_c_d_angg("eevvideos", "eev-videos/") code_c_d_angg("quadr", "quadradinho/") code_c_d_angg("ydb", "youtube-db/") code_c_d_angg("fbcache", "fbcache/") code_c_d_angg("clg", "2019-CLG/") code_c_d_angg("books", "books/") -- «STOH» (to ".STOH") -- Sexp to html, sexp to target, sexp to section name... def [[ STOH 1 line SexpSkel.fromline(line:gsub("%s+", " ")):tosexphtml() ]] def [[ STOT 1 line SexpSkel.fromline(line:gsub("%s+", " ")):totarget() ]] def [[ STOSN 1 line '"'..R(STOT(line), (line:match'"(.*)"'))..'"' ]] -- «tests» (to ".tests") --[[ -- (find-angg "LUA/lua50init.lua" "loadblogme3") -- (find-es "blogme" "interactive") -- (find-angg ".emacs" "blogme3") -- (find-blogme3 "angglisp.lua" "code_c_d_angg") * (eepitch-blogme3) * (eepitch-kill) * (eepitch-blogme3) require "sexp" for stem in ee_intro_stems_generator() do print(stem) end = _EHF = STOH '(find-eev-quick-intro "1. Installing eev")' = STOH '(find-three-main-keys-intro)' = STOH 'foo (find-eev-quick-intro "1. Installing eev") ' = STOH '(find-enode "Top") ' = STOT '(find-grubnode "Overview") ' = STOH '(find-blogme3 "sexp.lua") ' = STOH '(find-blogme3 "sexp.lua" "STOH") ' _EHF["code-video"] = ELispHF {f="codevideo"} = STOH '(code-video "ECvideo" "/foo/bar-86yiRG8YJD0.mp4")' = STOH '(find-ECvideo "1:23")' * (eepitch-lua51) * (eepitch-kill) * (eepitch-lua51) dofile "sexp.lua" --]]