Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.
-- This file:
--   http://anggtwu.net/LATEX/2023headfoot.lua.html
--   http://anggtwu.net/LATEX/2023headfoot.lua
--          (find-angg "LATEX/2023headfoot.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun h () (interactive) (find-angg "LATEX/2023headfoot.lua"))
-- (find-code-show2 "~/LATEX/Show2.tex")
--      (code-show2 "~/LATEX/Show2.tex")
--
-- (find-angg "LUA/lua50init.lua" "Path")
-- (find-angg "LUA/Show2.lua" "texbody")

Path.prependtopath "~/LUA/?.lua"
require "Show2"
show = function () return Show.try(tostring(outertexbody)) end

outertexbody = Dang.from [=[
\documentclass{article}
\usepackage[<<geometry>>]{geometry}
\usepackage{lipsum}
\input edrxheadfoot.tex   % (find-LATEX "edrxheadfoot.tex")
<<defrepl1>>
<<usepackages>>
\begin{document}
<<defs>>
<<texbody>>
%
<<saysuccess>>
\end{document}
]=]

-- (find-angg "LUA/tikz1.lua" "repl2")
-- (find-angg "LUA/lua50init.lua" "Repl2.lua")
defrepl1 = [[
  % (find-angg "LUA/tikz1.lua" "repl2")
  \directlua{ dofile(os.getenv("LUA_INIT"):sub(2)) }
  \def\repl    {\directlua{ print(); run_repl2_now()  }}
  \def\condrepl{\directlua{ if os.getenv"REPL"=="1" then print(); run_repl2_now() end }}
  \nonstopmode
]]

texbody = [[
\section{SA}
\lipsum[3-9]
\section{SB}
\lipsum[3-9]
\section{SC}
\lipsum[3-9]
\condrepl
]]


--[==[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2023headfoot.lua"
= show()
* (etv)

-- (find-LATEX "edrxheadfoot.tex")
-- (find-LATEX "edrxheadfoot.tex")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/LATEX/ && REPL=1 lualatex Show2.tex
printmeaning "section"
printmeaning "@startsection"
printmeaning "@ssect"
printmeaning "@sect"
printmeaning "@dblarg"
printmeaning "@xdblarg"
printmeaning "@svsechd"
printmeaning "@xsect"

printmeaning "begin"
printmeaning "newpage"
printmeaning "@oddfoot"
printmeaning  "footertext"
printmeaning   "draftfooter"
printmeaning "@evenfoot"
printmeaning "@oddhead"
printmeaning "rightmark"
printmeaning "@rightmark"
printmeaning "firstmark"
printmeaning "@evenhead"

--]==]




-- Local Variables:
-- coding:  utf-8-unix
-- End: