tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak ASAL export settings

Browse source
This commit is contained in:
mez 2024-11-29 23:57:56 +00:00
parent 55e65b87a0
commit d51620cbe8
2 changed files with 61 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

54
custom/fic.el
View file

@ -68,7 +68,7 @@
(goto-char (point-min))
(while (re-search-forward "\\[fn:\\([0-9]*\\):\\([^•]*\\)•\\]" nil t)
(replace-match "@@html:<label for=\"\\1\" class=\"margin-toggle sidenote-number\"></label><input type=\"checkbox\" id=\"\\1\" class=\"margin-toggle\"/><span class=\"sidenote\">@@@@latex:\\\\footnote{@@\\2@@html:</span>@@@@latex:}@@"))
(let ((user-full-name "Tré")
(let ((user-full-name "“Tré”")
(org-html-head "<link rel=\"stylesheet\" href=\"/fic/tufte.css\"/>\n<link rel=\"stylesheet\" href=\"/home/mdd/Documents/proj/fic-archive/build/tufte.css\"/>\n<meta name=\"theme-color\" media=\"(prefers-color-scheme: light)\" content=\"#fffff8\" />\n<meta name=\"theme-color\" media=\"(prefers-color-scheme: dark)\" content=\"#151515\" />\n<meta property=\"og:title\" content=\"Tré’s fanfiction\">\n<meta property=\"og:type\" content=\"article\">\n<meta property=\"og:image\" content=\"https://tre.praze.net/ab.png\">\n<meta name=\"description\" property=\"og:description\" content=\"Fanfiction on tre.praze.net\">\n<meta property=\"og:locale\" content=\"en_GB\">\n<meta property=\"og:site_name\" content=\"tre.praze.net\">\n<meta name=\"fediverse:creator\" content=\"@tre@ple.praze.net\">")
(org-export-with-author t)
(org-latex-default-class "memoir"))
@ -210,38 +210,46 @@
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\\\begin{document}\n\\\\chapter\*{\\\\thetitle}"))))))
(if multichapter
(if title
(if asal
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{empty}" nil t))
(goto-char (point-min))
(while (re-search-forward "\\\\end{titlingpage}" nil t)
(replace-match "\\end{titlingpage}\n\\pagestyle{multititlechapters}\n\\tableofcontents\*" nil t)))
(if multichapter
(if title
(if chaptertitles
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multititlechapters}" nil t))
(goto-char (point-min))
(while (re-search-forward "\\\\end{titlingpage}" nil t)
(replace-match "\\end{titlingpage}\n\\tableofcontents\*" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multititlenochapters}" nil t))))
(if chaptertitles
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multititlechapters}" nil t))
(goto-char (point-min))
(while (re-search-forward "\\\\end{titlingpage}" nil t)
(replace-match "\\end{titlingpage}\n\\tableofcontents\*" nil t)))
(progn
(replace-match "\\begin{document}\n\\pagestyle{multinotitlechapters}\n\\tableofcontents\*" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multititlenochapters}" nil t))))
(if chaptertitles
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multinotitlechapters}\n\\tableofcontents\*" nil t)))
(replace-match "\\begin{document}\n\\pagestyle{multinotitlenochapters}" nil t)))))
(if title
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multinotitlenochapters}" nil t)))))
(if title
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{singletitle}" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{singletitle}" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{plain}" nil t)))))
(replace-match "\\begin{document}\n\\pagestyle{plain}" nil t))))))
(goto-char (point-max))
(save-buffer)
;; (unless draftmode

34
fic-export-files/header.tex
View file

@ -105,14 +105,19 @@
\vspace*{0.1\textheight}
\endgroup}
\newcommand*{\titleasal}{\begingroup
\newcommand*{\titleasal}{
\begin{center}
{\scshape A Shot At Life}
\end{center}
\cleardoublepage
\begingroup
\begin{minipage}{0.05\textwidth}
\color{red}
\rule{6pt}{\textheight}
\end{minipage}
\hspace{0.05\textwidth}
\begin{minipage}{0.6\textwidth}
{\Large TRÉ} \\
{\Large ``TRÉ''} \\
\rule{0.9\textwidth}{1pt} \par
\vspace{3\baselineskip}
{\noindent\Huge\bfseries A SHOT} \par
@ -123,7 +128,7 @@
\vspace{0.4\baselineskip}
\rule{0.9\textwidth}{1pt} \par
\vspace{\baselineskip}
{\Large \the\year}
{\Large 2025}
\end{minipage}
\hfill
\begin{minipage}{0.15\textwidth}
@ -136,4 +141,25 @@
{\yevon E}
}\par
\end{minipage}
\endgroup}
\endgroup
\begin{center}
{\yevon A}
\end{center}
\vspace*{\fill}
\noindent
Written in 2021--2025, at approximately 54.6,-5.9.
\noindent
Typeset by the author in Linux Libertine, Noto Sans, and FFXYevon, using Emacs and
\LaTeX.
\noindent
This work of fanfiction is licensed under \textbf{Creative Commons
Attribution-NonCommercial 4.0 International}.
\noindent
For chapter summaries, warnings, metadata, and additional
information, see \url{https://tre.praze.net/ffx/asal}.
\noindent
{\scriptsize{\yevon Now is the time to shape your stories Your fate is in your hands!}}}