Add functions for tracking music (performances and scrobbles)

custom/capture.el

@@ -18,12 +18,12 @@
       "Find or create heading for acquired books"
       (filedate)
       (goto-char (point-min))
-      (if (not (search-forward "** acquired" nil t))
+      (if (not (search-forward "** obtained" nil t))
           (if (not (search-forward "* books" nil t))
               (progn
                 (goto-char (point-max))
-                (insert "* books\n** acquired"))
-            (insert "\n** acquired"))))
+                (insert "* books\n** obtained"))
+            (insert "\n** obtained"))))
 
     (defun findwatched ()
       "Find or create heading for watched films"
@@ -81,6 +81,26 @@
         (setq visitend (read-string "End date (YYYY-MM-DD): " ))
         (setq visitreturn (concat " <" visitstart ">--<" visitend ">")))
       visitreturn)
+
+    (defun findperf ()
+      "Find or create heading for performances"
+      (filedate)
+      (goto-char (point-min))
+      (if (not (search-forward "* performances" nil t))
+          (progn
+            (goto-char (point-max))
+            (insert "* performances"))))
+
+    (defun setensemble ()
+      "Get the ensemble performed with"
+      (setq ensembles (s-split "\n" (f-read "~/Documents/drive/admin/emacs/ensembles.txt") t))
+      (setq theensemble (completing-read "Ensemble: " ensembles))
+      theensemble)
+
+    (defun setvenue ()
+      (setq venues (s-split "\n" (f-read "~/Documents/drive/admin/emacs/venues.txt") t))
+      (setq thevenue (completing-read "Venue: " venues))
+      thevenue)
     
     (setq org-default-notes-file (concat "~/Documents/drive/org/journal/" (format-time-string "%Y/%m/%Y-%m-%d") ".org"))
     
@@ -101,6 +121,10 @@
              (file+function "" findwatched)
              "* %^{Title} (%^{Year})%(therating)"
              :jump-to-captured t)
+            ("m" "Musical performance" entry
+             (file+function "" findperf)
+             "* %(setensemble)\n** %^{Performance name} (%(setvenue))\n%?"
+             :jump-to-captured t)
             ("p" "Visited place" entry
              (file+function "" findvisited)
              "* %^{Place}%(thevisitdate)"