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)