Add functions for ASAL exporting

config.org

@@ -491,7 +491,26 @@ Export non-breaking spaces properly; from, believe it or not, [[https://orgmode.
       (when (org-export-derived-backend-p backend 'html)
         (replace-regexp-in-string " " " " text)))
     (add-to-list 'org-export-filter-plain-text-functions
-                 'my-html-filter-nobreaks))
+                 'my-html-filter-nobreaks)
+    (defun my-latex-filter-nobreaks (text backend info)
+      (when (org-export-derived-backend-p backend 'latex)
+        (replace-regexp-in-string " " "~" text)))
+    (add-to-list 'org-export-filter-plain-text-functions
+                 'my-latex-filter-nobreaks))
+#+END_SRC
+
+Add the =memoir= class for LaTeX export.
+
+#+BEGIN_SRC emacs-lisp
+  (unless (version< emacs-version "27")
+    (add-to-list 'org-latex-classes
+                 '("memoir"
+                   "\\documentclass{memoir}
+  [NO-DEFAULT-PACKAGES]"
+                   ("\\chapter{%s}" . "\\chapter*{%s}")
+                   ("\\section{%s}" . "\\section*{%s}")
+                   ("\\subsection{%s}" . "\\subsection*{%s}")
+                   ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))))
 #+END_SRC
 
   Track when I complete todos.

custom/asal-clean.el

@@ -0,0 +1,38 @@
+(defun asal-clean ()
+  (interactive)
+  (goto-char (region-beginning))
+  (while (re-search-forward "<div id=\"content\"" nil t)
+    (replace-match "<article id=\"content\""))
+  (goto-char (region-beginning))
+  (while (re-search-forward "<div id=\"outline-container-" nil t)
+    (replace-match "<section id=\"outline-container-"))
+  (goto-char (region-beginning))
+  (while (re-search-forward "</div>\n</div>" nil t)
+    (replace-match "</div>\n</section>"))
+  (goto-char (region-beginning))
+  (while (re-search-forward "<hr />\n\n<p>" nil t)
+    (replace-match "</section>\n<section>\n<p class=\"newthought\">"))
+  (goto-char (region-beginning))
+  (while (re-search-forward "<div class=\"outline-text-2\" id=\".*\">" nil t)
+    (replace-match ""))
+  (goto-char (region-beginning))
+  (while (re-search-forward "<div id=\"postamble\" class=\"status\">" nil t)
+    (replace-match ""))
+  (goto-char (region-beginning))
+  (while (re-search-forward "<p class=\"validation\"><a href=.*>Validate</a></p>" nil t)
+    (replace-match ""))
+  (goto-char (region-beginning))
+  (while (re-search-forward "</div>" nil t)
+    (replace-match ""))
+  (goto-char (region-beginning))
+  (while (re-search-forward "\\\\noindent\\\\rule{\\\\textwidth}{0.5pt}" nil t)
+    (replace-match "\\sephim" nil t))
+  (goto-char (region-beginning))
+  (while (re-search-forward "\\\\maketitle" nil t)
+    (replace-match "\\begin{titlingpage}\n\\titleGM\n\\end{titlingpage}" nil t)))
+
+(defun asal-note ()
+  (interactive)
+  (setq footnotemark (read-string "Unique name: "))
+  (setq footnotecontent (read-string "Content of note: "))
+  (insert (concat "@@html:<label for=\"" footnotemark "\" class=\"margin-toggle sidenote-number\"></label><input type=\"checkbox\" id=\"" footnotemark "\" class=\"margin-toggle\"/><span class=\"sidenote\">" footnotecontent "</span>@@@@latex:\\footnote{" footnotecontent "}@@")))

custom/org-format.el

@@ -8,7 +8,7 @@
     (replace-match " –"))
   (goto-char (region-beginning))
   (while (re-search-forward "/ –" nil t)
-    (replace-match "/ –")) ;; italics won’t work otherwise
+    (replace-match " –/"))
   (goto-char (region-beginning))
   (while (re-search-forward " \\.\\.\\." nil t)
     (replace-match " …"))