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

More capture functions, add (non-working?) theme colours for fic export

Browse source
This commit is contained in:
mez 2024-02-17 21:57:15 +00:00
parent 6971e1848c
commit 5137914290
2 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

30
custom/capture.el
View file

@ -47,6 +47,17 @@
(insert "* games\n** beaten"))
(insert "\n** beaten"))))
(defun findhundred ()
"Find or create heading for completed games"
(filedate)
(goto-char (point-min))
(if (not (search-forward "** completed" nil t))
(if (not (search-forward "* games" nil t))
(progn
(goto-char (point-max))
(insert "* games\n** completed"))
(insert "\n** completed"))))
(defun findobtained ()
"Find or create heading for acquired games"
(filedate)
@ -142,10 +153,17 @@
theensemble)
(defun setvenue ()
"Get the venue where a performance happened"
(setq venues (s-split "\n" (f-read "~/Documents/drive/admin/emacs/venues.txt") t))
(setq thevenue (completing-read "Venue: " venues))
thevenue)
(defun setconsole ()
"Get the console a game is played on"
(setq consoles (s-split "\n" (f-read "~/Documents/drive/admin/emacs/consoles.txt") t))
(setq theconsole (completing-read "Console: " consoles))
theconsole)
(defun bookcalc ()
"Read in or calculate position in book"
(setq ispageno (y-or-n-p "Calculate percentage from page number?"))
@ -178,8 +196,8 @@
"* %^{Title} (%^{Year})%(therating)"
:jump-to-captured t)
("g" "Beat game" entry
(file+function "" findgame)
"* %^{Title}%(therating)"
(file+function "" findbeaten)
"* %^{Title} (%setconsole)"
:jump-to-captured t)
("m" "Musical performance" entry
(file+function "" findperf)
@ -187,11 +205,11 @@
:jump-to-captured t)
("n" "Gameplay progress" entry
(file+function "" findgaming)
"* %^{Title}\n%?"
"* %^{Title} (%(setconsole))\n%?"
:jump-to-captured t)
("o" "Obtained game" entry
(file+function "" findobtained)
"* %^{Title}"
"* %^{Title} (%(setconsole))"
:jump-to-captured t)
("p" "Visited place" entry
(file+function "" findvisited)
@ -200,6 +218,10 @@
("r" "Reading progress" entry
(file+function "" findreading)
"* %^{Author} /%^{Title}/\n%(bookcalc)%?"
:jump-to-captured t)
("1" "Completed game" entry
(file+function "" findhundred)
"* %^{Title} (%setconsole)"
:jump-to-captured t)))
(global-set-key (kbd "C-c c") #'org-capture)))

2
custom/fic.el
View file

@ -69,7 +69,7 @@
(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 "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-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\"/><meta name=\"theme-color\" media=\"(prefers-color-scheme: light)\" content=\"#fffff8\" /><meta name=\"theme-color\" media=\"(prefers-color-scheme: dark)\" content=\"#151515\" />")
(org-export-with-author t)
(org-latex-default-class "memoir"))
(org-html-export-to-html)