[O] [PATCH 2/4] Warn if duplicate ID is created

[Matt Lundin]

* lisp/org-bibtex.el (org-bibtex-key-property): When storing key in
  ID, warn if a duplicate ID is generated.
---
 lisp/org-bibtex.el |   18 +++++++++++++-----
 1 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el
index f54a6bf..cf7fc49 100644
--- a/lisp/org-bibtex.el
+++ b/lisp/org-bibtex.el
@@ -239,7 +239,6 @@ not placed in the exported bibtex entry."
   :group 'org-bibtex
   :type 'boolean)
 
-;; TODO if ID, test to make sure ID is unique
 (defcustom org-bibtex-key-property "CUSTOM_ID"
   "Property that holds the bibtex key.
 By default, this is CUSTOM_ID, which enables easy linking to
@@ -364,10 +363,19 @@ This variable is relevant only if 
`org-bibtex-export-tags-as-keywords` is t."
   "Generate an autokey for the current headline"
   (org-bibtex-put org-bibtex-key-property
                   (if org-bibtex-autogen-keys
-                      (let ((entry (org-bibtex-headline)))
-                        (with-temp-buffer
-                          (insert entry)
-                          (bibtex-generate-autokey)))
+                      (let* ((entry (org-bibtex-headline))
+                            (key 
+                             (with-temp-buffer
+                               (insert entry)
+                               (bibtex-generate-autokey))))
+                       ;; test for duplicate IDs if using global ID
+                       (when (and
+                              (equal org-bibtex-key-property "ID")
+                              (featurep 'org-id)
+                              (hash-table-p org-id-locations)
+                              (gethash key org-id-locations))
+                         (warn "Another entry has the same ID"))
+                       key)
                     (read-from-minibuffer "id: "))))
 
 (defun org-bibtex-fleshout (type &optional optional)
-- 
1.7.5