diff --git a/custom/capture.el b/custom/capture.el
index 119c34d..7eb579b 100644
--- a/custom/capture.el
+++ b/custom/capture.el
@@ -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)))
diff --git a/custom/fic.el b/custom/fic.el
index aeb2aba..17c3009 100644
--- a/custom/fic.el
+++ b/custom/fic.el
@@ -69,7 +69,7 @@
(while (re-search-forward "\\[fn:\\([0-9]*\\):\\([^•]*\\)•\\]" nil t)
(replace-match "@@html:@@@@latex:\\\\footnote{@@\\2@@html:@@@@latex:}@@"))
(let ((user-full-name "Tré")
- (org-html-head "")
+ (org-html-head "")
(org-export-with-author t)
(org-latex-default-class "memoir"))
(org-html-export-to-html)