X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=org-ref.org;h=8efc3c5133a60391e28bc917d6a357e5c21e1b99;hb=34b22c7c5d44d112d9dd3d5f857516ae34bf8007;hp=e4baf37dc61040d3dde844397c8b4d1ae2650e5a;hpb=7eeb57bb2e9a7f24f881d371cd5c4700b8586087;p=org-ref.git

diff --git a/org-ref.org b/org-ref.org
index e4baf37..8efc3c5 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -2795,7 +2795,6 @@ Now, let us define a function that inserts the cite links:
   "Insert selected KEYS as cite link. Append KEYS if you are on a link.
 Technically, this function should return a string that is inserted by helm. This function does the insertion and gives helm an empty string to insert. This lets us handle appending to a link properly."
   (let* ((object (org-element-context)))
-  (message-box "prefix is %s" helm-current-prefix-arg)
     (cond
      ;; case where we are in a link
      ((and (equal (org-element-type object) 'link)
@@ -2823,7 +2822,9 @@ Technically, this function should return a string that is inserted by helm. This
      (t
       (insert
        (concat (if helm-current-prefix-arg
-                  (ido-completing-read "Type: " org-ref-cite-types)
+		   (helm :sources `((name . "link types")
+				    (candidates . ,org-ref-cite-types)
+				    (action . (lambda (x) x))))
                org-ref-default-citation-link)
 	       ":"
 	       (s-join "," keys))))))