Add functions for ASAL exporting
This commit is contained in:
parent
d569665412
commit
a222e03bc5
3 changed files with 61 additions and 4 deletions
25
config.org
25
config.org
|
@ -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
|
||||
|
|
38
custom/asal-clean.el
Normal file
38
custom/asal-clean.el
Normal file
|
@ -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 won’t work otherwise
|
||||
(replace-match " –/"))
|
||||
(goto-char (region-beginning))
|
||||
(while (re-search-forward " \\.\\.\\." nil t)
|
||||
(replace-match " …"))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue