ENH: Allow citekey to have multiple PDFs

Match any PDF files named '<citekey.pdf' or '<citekey>-*.pdf'. When
finding a PDF for a citekey, complete read to deterimine which file to
open.

2 files changed, 21 insertions, 5 deletions

diff --git a/bog-todo.org b/bog-todo.org
index ec72a62..f4b047f 100644
--- a/bog-todo.org
+++ b/bog-todo.org
@@ -64,7 +64,8 @@ Avoid filtering all bib file names.
 
 * PDF files
 
-** ENH Better handling of multiple PDFs
+** DONE Better handling of multiple PDFs
+   CLOSED: [2014-03-04 Tue 00:49]
 
 If multiple PDFs for a citekey, complete read.
 
diff --git a/bog.el b/bog.el
index dc8dbc6..fb84448 100644
--- a/bog.el
+++ b/bog.el
@@ -243,10 +243,25 @@ text under point if it matches `bog-citekey-format' or using
     (bog-open-citekey-pdf citekey)))
 
 (defun bog-open-citekey-pdf (citekey)
-  (let ((pdf-file (bog-citekey-as-pdf citekey)))
-    (unless (file-exists-p pdf-file)
-      (error "%s does not exist" pdf-file))
-    (start-process "bog-pdf" nil bog-pdf-opener pdf-file)))
+  (let* (citekey-pdf
+         (citekey-pdfs
+          (--mapcat (file-expand-wildcards
+                     (concat (file-name-as-directory bog-pdf-directory)
+                             citekey it ".pdf"))
+                    '("" "-*")))
+         (choices (-map 'file-name-nondirectory citekey-pdfs))
+         (num-choices (length choices)))
+    (cond
+     ((= 0 num-choices)
+      (error "No PDF found for %s" citekey))
+     ((= 1 num-choices)
+      (setq citekey-pdf (car citekey-pdfs)))
+     (t
+      (setq citekey-pdf
+            (expand-file-name (funcall bog-completing-read
+                                       "Select PDF file: " choices)
+                              bog-pdf-directory))))
+    (start-process "bog-pdf" nil bog-pdf-opener citekey-pdf)))
 
 ;;;###autoload
 (defun bog-rename-staged-pdf-to-citekey ()