(interactive)
(let* ((object (org-element-context))
(type (org-element-property :type object)))
-
- (cond
+ (save-excursion
+ (cond
;; cite links
((-contains? org-ref-cite-types type)
(message (org-ref-get-citation-string-at-point)))
" occurence"
(when (or (= count 0)
(> count 1))
- "s"))))))))
+ "s")))))))))
(when org-ref-show-citation-on-enter
"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)