"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)
(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))))))