tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Table of contents for fic exports, save elfeed db, automatically track dwpost

Browse source
This commit is contained in:
trémeur 2023-02-04 14:54:41 +00:00
parent a636884879
commit 5842a69d22
6 changed files with 43 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

11
custom/dwpost.el
View file

@ -98,6 +98,14 @@
(sleep-for 0)
(insert (concat "post-music: " music "\n"))))
(defun dw-posted ()
(find-file-noselect "~/Documents/drive/org/calendar/habit.org")
(with-current-buffer "habit.org"
(goto-char (point-min))
(re-search-forward "RECUR dw posts")
(org-shiftright)
(save-buffer)))
(defun dwpost (psubject tags)
(interactive (list (read-string "Post title (REQUIRED): ")
(read-string "Tags (comma-separated): ")))
@ -118,4 +126,5 @@
(kill-buffer newname)
(kill-buffer (concat "*sent mail to " dw-username "*"))
(with-current-buffer oldname
(delete-file newname)))
(delete-file newname))
(dw-posted))

9
custom/fic.el
View file

@ -187,7 +187,10 @@
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multititlechapters}" nil t)))
(replace-match "\\begin{document}\n\\pagestyle{multititlechapters}" nil t))
(goto-char (point-min))
(while (re-search-forward "\\\\end{titlingpage}" nil t)
(replace-match "\\end{titlingpage}\n\\tableofcontents\*" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
@ -196,7 +199,7 @@
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
(replace-match "\\begin{document}\n\\pagestyle{multinotitlechapters}" nil t)))
(replace-match "\\begin{document}\n\\pagestyle{multinotitlechapters}\n\\tableofcontents\*" nil t)))
(progn
(goto-char (point-min))
(while (re-search-forward "\\\\begin{document}" nil t)
@ -216,7 +219,7 @@
(format "xelatex -interaction=batchmode %s"
(shell-quote-argument (buffer-file-name))))
(shell-command
(format "xelatex -interaction=batchmode -halt-on-error %s"
(format "xelatex -interaction=batchmode %s"
(shell-quote-argument (buffer-file-name))))
(kill-current-buffer))
(delete-file "FFXYevon.ttf")