From ba4e43b1c4693635d83072d9e67f4eb4ea7f76d7 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 3 Feb 2014 00:34:27 -0500
Subject: Add function rename staged PDF

---
 bog.el | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/bog.el b/bog.el
index aa52749..6eb3b27 100644
--- a/bog.el
+++ b/bog.el
@@ -50,6 +50,14 @@
   :group 'bog
   :type 'string)
 
+(defcustom bog-pdf-directory-stage
+  (expand-file-name "pdf-stage" bog-notes-directory)
+  "The name of the directory to search for new PDFs in.
+`bog-rename-staged-pdf-to-citekey' will search here for files to
+rename."
+  :group 'bog
+  :type 'string)
+
 (defcustom bog-read-file-name 'read-file-name
   "A function that will be used to promtp for file name.
 The function should accept one arguments, a string to use for the
@@ -153,6 +161,36 @@ first parent heading that matches `bog-citekey-format'."
       (error "%s does not exist" pdf-file))
     (start-process "bog-pdf" nil bog-pdf-opener pdf-file)))
 
+;;;###autoload
+(defun bog-rename-staged-pdf-to-citekey ()
+  "Rename PDF in  `bog-pdf-directory-stage' to `bog-pdf-directory'/<citekey>.pdf.
+The citekey will be taken from the text under point if it matches
+`bog-citekey-format' or from the first parent heading that
+matches `bog-citekey-format'."
+  (interactive)
+  (bog-citekey-action 'bog-rename-staged-pdf
+                      nil
+                      nil))
+
+(defun bog-rename-staged-pdf (citekey)
+  (let* ((pdf-file (bog-citekey-as-pdf citekey))
+         (choices
+          (file-expand-wildcards
+           (concat (file-name-as-directory bog-pdf-directory-stage) "*.pdf")))
+         (num-choices (length choices))
+         staged-pdf)
+    (cond
+     ((= 0 num-choices)
+      (setq staged-pdf (funcall bog-read-file-name
+                                "Select PDF file to rename: ")))
+     ((= 1 num-choices)
+      (setq staged-pdf (car choices)))
+     (t
+      (setq staged-pdf (funcall bog-completing-read
+                                "Select PDF file to rename: " choices))))
+    (rename-file staged-pdf pdf-file)
+    (message "Renamed %s to %s." staged-pdf pdf-file)))
+
 (defun bog-citekey-as-pdf (citekey)
   (expand-file-name (concat citekey ".pdf") bog-pdf-directory))
 
-- 
cgit v1.2.3