point to get a comma, or the end of the link, and then backwards
to get a comma, or the beginning of the link. that delimits the
keyword we clicked on. We also strip the text properties."
- (interactive)
(let* ((object (org-element-context))
(link-string (org-element-property :path object)))
;; you may click on the part before the citations. here we make
falling back to what the user has set in org-ref-default-bibliography
"
- (interactive)
(catch 'result
(save-excursion
(goto-char (point-min))
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
(defun org-ref-get-bibtex-key-and-file (&optional key)
"returns the bibtex key and file that it is in. If no key is provided, get one under point"
- (interactive)
(let ((org-ref-bibliography-files (org-ref-find-bibliography))
(file))
(unless key
(defun org-ref-get-doi-at-point ()
"Get doi for key at point."
- (interactive)
(let* ((results (org-ref-get-bibtex-key-and-file))
(key (car results))
(bibfile (cdr results))
We create the links by mapping the function onto the list of defined link types.
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-;;;###autoload
(defun org-ref-format-citation-description (desc)
"Return formatted citation description. If the cite link has a
description, it is optional text for the citation command. You
can specify pre and post text by separating these with ::, for
example [[cite:key][pre text::post text]]."
- (interactive)
(cond
((string-match "::" desc)
(format "[%s][%s]" (car (setq results (split-string desc "::"))) (cadr results)))
(t (format "[%s]" desc))))
-;;;###autoload
(defun org-ref-define-citation-link (type &optional key)
"Add a citation link of TYPE for org-ref.
With optional KEY, set the reftex binding. For example:
We need a convenient method to insert links. In reftex you use the keystroke C-c ], which gives you a minibuffer to search the bibtex files from. This function is bound to that same keystroke here [[*org-mode%20/%20reftex%20setup][org-mode / reftex setup]]. This function will append to a cite link if you call it while on a link.
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-;;;###autoload
(defun org-ref-insert-cite-link (alternative-cite)
"Insert a default citation link using reftex. If you are on a link, it
appends to the end of the link, otherwise, a new link is
Alternatively, you may shortcut the org-machinery with this command. You will be prompted for a citation type, and then offered key completion.
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-;;;###autoload
(defun org-ref-insert-cite-with-completion (type)
"Insert a cite link with completion"
(interactive (list (ido-completing-read "Type: " org-ref-cite-types)))
org-mode already defines a store link function for bibtex entries. It does not store the link I want though, it only stores a brief citation of the entry. I want a citation link. Here is a function to do that.
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-;;;###autoload
(defun org-ref-store-bibtex-entry-link ()
"Save a citation link to the current bibtex entry. Saves in the default link type."
(interactive)
** open pdf from bibtex
We bind this to a key here: [[*key%20bindings%20for%20utilities][key bindings for utilities]].
#+BEGIN_SRC emacs-lisp :tangle org-ref.el
-;;;###autoload
(defun org-ref-open-bibtex-pdf ()
"open pdf for a bibtex entry, if it exists. assumes point is in
the entry of interest in the bibfile. but does not check that."
(setf (nth j keys) tempi))
keys)
-;;;###autoload
+
(defun org-ref-swap-citation-link (direction)
"move citation at point in direction +1 is to the right, -1 to the left"
(interactive)
(point)))))
(throw 'result "!!! NO CONTEXT FOUND !!!"))))
-;;;###autoload
+
(defun org-ref-link-message ()
"Print a minibuffer message about the link that point is on."
(interactive)
(split-string kstring "\\(,\\|;\\)[ \n]*\\|{\\|}" t)))
keywords)))
-;;;###autoload
+
(defun org-ref-set-bibtex-keywords (keywords &optional arg)
"Add KEYWORDS to a bibtex entry.
If KEYWORDS is a list, it is converted to a comma-separated string. The KEYWORDS are added to the beginning of the field. Otherwise KEYWORDS should be a string of comma-separate keywords."
(concat ", " (bibtex-autokey-get-field "keywords"))))))
(save-buffer))
-;;;###autoload
+
(defun helm-tag-bibtex-entry ()
"Helm interface to add keywords to a bibtex entry.
Run this with the point in a bibtex entry."
((equal arg '(16))
(org-ref-helm-insert-label-link))))
-(require 'helm-bibtex)
;; add our own fallback entries where we want them. These appear in reverse order of adding in the menu
(setq helm-bibtex-fallback-options
'org-ref-helm-user-candidates
'("Example" . (lambda () (message-box "You did it!")))
t)
+
;;;###autoload
(defun org-ref-cite-click-helm (key)
- "subtle points.
+ "Open helm for actions on a cite link.
+subtle points.
1. get name and candidates before entering helm because we need the org-buffer.
2. switch back to the org buffer before evaluating the action. most of them need the point and buffer."
(interactive)