From d51620cbe870c76092065715670692a9827d47d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?tr=C3=A9meur?= <git@praze.net>
Date: Fri, 29 Nov 2024 23:57:56 +0000
Subject: [PATCH] Tweak ASAL export settings

---
 custom/fic.el               | 54 +++++++++++++++++++++----------------
 fic-export-files/header.tex | 34 ++++++++++++++++++++---
 2 files changed, 61 insertions(+), 27 deletions(-)

diff --git a/custom/fic.el b/custom/fic.el
index 628ae0c..523c964 100644
--- a/custom/fic.el
+++ b/custom/fic.el
@@ -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 chaptertitles
+      (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{multititlechapters}" nil t))
+		      (replace-match "\\begin{document}\n\\pagestyle{multititlenochapters}" nil t))))
+	      (if chaptertitles
+		  (progn
 		    (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
+		    (while (re-search-forward "\\\\begin{document}" nil t)
+		      (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{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
diff --git a/fic-export-files/header.tex b/fic-export-files/header.tex
index cd37431..ca2c527 100644
--- a/fic-export-files/header.tex
+++ b/fic-export-files/header.tex
@@ -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}
\ No newline at end of file
+  \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!}}}
\ No newline at end of file