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)))