General cleanup

This commit is contained in:
mez 2023-12-19 20:03:59 +00:00
parent 9fe64dfe5d
commit bf8b65601b
7 changed files with 14 additions and 51 deletions

View file

@ -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 "ovely")
(let ((user-full-name "Tré")
(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=\"/fic/tufte.css\"/><link rel=\"stylesheet\" href=\"/home/mdd/Documents/drive/proj/fic-archive/build/tufte.css\"/>")
(org-export-with-author t)
(org-latex-default-class "memoir"))

View file

@ -10,11 +10,12 @@
(org-refile)))
(defun filedate ()
"Insert timestamp based on file name"
"Insert timestamp if required based on file name"
(interactive)
(goto-char (point-min))
(setq thedate (file-name-base))
(insert (concat "<" thedate ">"))
(org-ctrl-c-ctrl-c)
(insert "\n\n")
(goto-char (point-min)))
(unless (eq ?< (char-after))
(setq thedate (file-name-base))
(insert (concat "<" thedate ">"))
(org-ctrl-c-ctrl-c)
(insert "\n\n")
(goto-char (point-min))))