|
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: