Update ASAL functions
This commit is contained in:
parent
306c253fff
commit
eb5399f8a4
5 changed files with 96 additions and 84 deletions
57
config.org
57
config.org
|
@ -466,6 +466,14 @@ Set general TODO keywords.
|
|||
'((sequence "TODO" "|" "DONE" "CANCELLED")))
|
||||
#+END_SRC
|
||||
|
||||
Track when I complete todos.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-log-done 'time)
|
||||
#+END_SRC
|
||||
|
||||
*** Export settings
|
||||
|
||||
In =emacs27= and above, I can set certain headlines not to be exported. I haven’t used this yet but it sounds useful.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
@ -475,12 +483,35 @@ In =emacs27= and above, I can set certain headlines not to be exported. I haven
|
|||
(ox-extras-activate '(ignore-headlines)))
|
||||
#+END_SRC
|
||||
|
||||
Settings for export, fairly basic because the only thing I regularly export is HTML DW post previews.
|
||||
Add the =memoir= class for LaTeX export.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(unless (version< emacs-version "27")
|
||||
(add-to-list 'org-latex-classes
|
||||
'("memoir"
|
||||
"\\documentclass[9pt,b6paper]{memoir}
|
||||
[NO-DEFAULT-PACKAGES]
|
||||
\\input{header.tex}"
|
||||
("\\chapter{%s}" . "\\chapter*{%s}")
|
||||
("\\section{%s}" . "\\section*{%s}")
|
||||
("\\subsection{%s}" . "\\subsection*{%s}")
|
||||
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))))
|
||||
#+END_SRC
|
||||
|
||||
Settings for export, mostly for DW post previews but also fic??
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-export-headline-levels 6)
|
||||
(setq org-html-head-include-default-style nil)
|
||||
(setq org-html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://tre.praze.net/fic/fic2.css\" />")
|
||||
(setq org-footnote-define-inline t)
|
||||
(setq org-export-with-creator nil)
|
||||
(setq org-export-with-toc nil)
|
||||
(setq org-export-time-stamp-file nil)
|
||||
(setq org-latex-default-class "memoir")
|
||||
(setq org-latex-compiler "xelatex")
|
||||
(setq org-html-validation-link nil)
|
||||
(setq org-html-doctype "html5")
|
||||
#+END_SRC
|
||||
|
||||
Export non-breaking spaces properly; from, believe it or not, [[https://orgmode.org/manual/Advanced-Export-Configuration.html][the Org Manual]].
|
||||
|
@ -499,26 +530,6 @@ Export non-breaking spaces properly; from, believe it or not, [[https://orgmode.
|
|||
'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.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(setq org-log-done 'time)
|
||||
#+END_SRC
|
||||
|
||||
*** Packages
|
||||
|
||||
**** =org-agenda-property=
|
||||
|
@ -801,8 +812,8 @@ Support for various types of emoge.
|
|||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package emojify
|
||||
:init
|
||||
(add-hook 'after-init-hook #'global-emojify-mode))
|
||||
:hook
|
||||
(text-mode . emojify-mode))
|
||||
#+END_SRC
|
||||
|
||||
*** =hl-line=
|
||||
|
|
|
@ -13,6 +13,9 @@
|
|||
(while (re-search-forward "<hr />\n\n<p>" nil t)
|
||||
(replace-match "</section>\n<section>\n<p class=\"newthought\">"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "<hr>\n\n<p>" nil t)
|
||||
(replace-match "</section>\n<section>\n<p class=\"newthought\">"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "<div class=\"outline-text-2\" id=\".*\">" nil t)
|
||||
(replace-match ""))
|
||||
(goto-char (point-min))
|
||||
|
@ -28,6 +31,12 @@
|
|||
(while (re-search-forward "section-number-2\">\\([0-9]*\\)<" nil t)
|
||||
(replace-match "section-number-2\">\\1\.<"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "<p class=\"author.*</p>" nil t)
|
||||
(replace-match ""))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\n\n</body>" nil t)
|
||||
(replace-match "\n</article>\n</body>"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\\\\noindent\\\\rule{\\\\textwidth}{0.5pt}" nil t)
|
||||
(replace-match "\\sephim" nil t))
|
||||
(goto-char (point-min))
|
||||
|
@ -42,44 +51,13 @@
|
|||
|
||||
(defun asal-pre ()
|
||||
(interactive)
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " -" nil t)
|
||||
(replace-match " –"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " –" nil t)
|
||||
(replace-match " –"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "/ –" nil t)
|
||||
(replace-match " –/"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \\.\\.\\." nil t)
|
||||
(replace-match " …"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " …" nil t)
|
||||
(replace-match " …"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "'" nil t)
|
||||
(replace-match "’"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \n" nil t)
|
||||
(replace-match "\n"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\n\"" nil t)
|
||||
(replace-match "\n“"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \"" nil t)
|
||||
(replace-match " “"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\"" nil t)
|
||||
(replace-match "”"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "“/" nil t)
|
||||
(replace-match "/“"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "/”" nil t)
|
||||
(replace-match "”/"))
|
||||
(org-format)
|
||||
(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\">\\2</span>@@@@latex:\\\\footnote{\\2}@@"))
|
||||
(goto-char (point-min))
|
||||
(insert "#+TITLE: A Shot At Life\n#+AUTHOR: ovely\n#+STARTUP: fninline\n#+OPTIONS: toc:nil author:nil creator:nil date:nil timestamp:nil html-style:nil\n#+HTML_HEAD: <link rel=\"preconnect\" href=\"https://fonts.googleapis.com\"/><link rel=\"preconnect\" href=\"https://fonts.gstatic.com\" crossorigin/><link href=\"https://fonts.googleapis.com/css2?family=EB+Garamond:ital,wght@0,400;0,700;1,400;1,700&display=swap\" rel=\"stylesheet\"/><link rel=\"stylesheet\" href=\"https://tre.praze.net/fic/tufte.css\"/>\n#+LATEX_COMPILER: xelatex\n#+LATEX_CLASS: memoir\n#+LATEX_CLASS_OPTIONS: [9pt,b6paper]\n#+LATEX_HEADER: \\input{header.tex}\n\n"))
|
||||
(replace-match "@@html:<label for=\"\\1\" class=\"margin-toggle sidenote-number\"></label><input type=\"checkbox\" id=\"\\1\" class=\"margin-toggle\"/><span class=\"sidenote\">\\2</span>@@@@latex:\\\\footnote{\\2}@@")))
|
||||
|
||||
(defun asal-export ()
|
||||
(interactive)
|
||||
(let ((org-html-head "<link rel=\"preconnect\" href=\"https://fonts.googleapis.com\"/><link rel=\"preconnect\" href=\"https://fonts.gstatic.com\" crossorigin/><link href=\"https://fonts.googleapis.com/css2?family=EB+Garamond:ital,wght@0,400;0,700;1,400;1,700&display=swap\" rel=\"stylesheet\"/><link rel=\"stylesheet\" href=\"https://tre.praze.net/fic/tufte.css\"/>"))
|
||||
(org-html-export-to-html))
|
||||
(org-latex-export-to-latex))
|
||||
|
|
|
@ -1,38 +1,50 @@
|
|||
(defun org-format ()
|
||||
(interactive)
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " -" nil t)
|
||||
(replace-match " –"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " –" nil t)
|
||||
(replace-match " –"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "/ –" nil t)
|
||||
(replace-match " –/"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \\.\\.\\." nil t)
|
||||
(replace-match " …"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " …" nil t)
|
||||
(replace-match " …"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "'" nil t)
|
||||
(replace-match "’"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \n" nil t)
|
||||
(replace-match "\n"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\n\"" nil t)
|
||||
(replace-match "\n“"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward " \"" nil t)
|
||||
(replace-match " “"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "\"" nil t)
|
||||
(replace-match "”"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "“/" nil t)
|
||||
(replace-match "/“"))
|
||||
(goto-char (region-beginning))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "/”" nil t)
|
||||
(replace-match "”/")))
|
||||
(replace-match "”/"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "=”" nil t)
|
||||
(replace-match "=\""))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "”>" nil t)
|
||||
(replace-match "\">"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "”/>" nil t)
|
||||
(replace-match "\"/>"))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "=\"\\([^>]*\\)”" nil t)
|
||||
(replace-match "=\"\\1\"")))
|
||||
|
|
|
@ -1,9 +0,0 @@
|
|||
(require 'ox-latex)
|
||||
(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}")))
|
20
org-export.el
Normal file
20
org-export.el
Normal file
|
@ -0,0 +1,20 @@
|
|||
(require 'ox-latex)
|
||||
(setq org-export-headline-levels 6)
|
||||
(setq org-html-head-include-default-style nil)
|
||||
(setq org-footnote-define-inline t)
|
||||
(setq org-export-with-creator nil)
|
||||
(setq org-export-with-toc nil)
|
||||
(setq org-export-time-stamp-file nil)
|
||||
(setq org-latex-default-class "memoir")
|
||||
(setq org-latex-compiler "xelatex")
|
||||
(setq org-html-validation-link nil)
|
||||
(setq org-html-doctype "html5")
|
||||
(add-to-list 'org-latex-classes
|
||||
'("memoir"
|
||||
"\\documentclass[9pt,b6paper]{memoir}
|
||||
[NO-DEFAULT-PACKAGES]
|
||||
\\input{header.tex}"
|
||||
("\\chapter{%s}" . "\\chapter*{%s}")
|
||||
("\\section{%s}" . "\\section*{%s}")
|
||||
("\\subsection{%s}" . "\\subsection*{%s}")
|
||||
("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
|
Loading…
Add table
Add a link
Reference in a new issue