Add functions for ASAL exporting

master
trémeur 2 years ago
parent d569665412
commit a222e03bc5

@ -491,13 +491,32 @@ 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
Track when I complete todos.
Add the =memoir= class for LaTeX export.
#+BEGIN_SRC emacs-lisp
(setq org-log-done 'time)
(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.
#+BEGIN_SRC emacs-lisp
(setq org-log-done 'time)
#+END_SRC
*** Packages

@ -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 "}@@")))

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

Loading…
Cancel
Save