(with-temp-buffer
(insert-file-contents bibfile)
(bibtex-search-entry key)
- (bibtex-autokey-get-field "doi")))))
+ (bibtex-autokey-get-field "doi")
+ ;; in case doi is a url, remove the url part.
+ (replace-regexp-in-string "^http://dx.doi.org/" "" doi)))))
;; functions that operate on key at point for click menu
'org-ref-cite-menu-funcs
'("P" "ubmed" org-ref-pubmed-at-point) t))
- (add-to-list
- 'org-ref-cite-menu-funcs
- '("q" "uit" (lambda ())) t)
-
;; add user functions
(dolist (tup org-ref-user-cite-menu-funcs)
(add-to-list
'org-ref-cite-menu-funcs
tup t))
+
+ ;; finally quit
+ (add-to-list
+ 'org-ref-cite-menu-funcs
+ '("q" "uit" (lambda ())) t)
;; now we make a menu
;; construct menu string as a message
(message
(concat
+ (let* ((results (org-ref-get-bibtex-key-and-file))
+ (key (car results))
+ (bibfile (cdr results)))
+ (save-excursion
+ (with-temp-buffer
+ (insert-file-contents bibfile)
+ (bibtex-search-entry key)
+ (org-ref-bib-citation))))
+ "\n"
(mapconcat
(lambda (tup)
(concat "[" (elt tup 0) "]"
(elt tup 1) " "))
- org-ref-cite-menu-funcs "") ": "))
+ org-ref-cite-menu-funcs "")))
;; get the input
(let* ((input (read-char-exclusive))
(choice (assoc
2))))))
#+END_SRC
+#+RESULTS:
+: org-ref-cite-onclick-minibuffer-menu
+
*** A function to format a cite link
Next, we define a formatting function for the cite link. This is done so that the cite link definition is very short, and easy to change. You just need to specify the functions in the definition. This function is deprecated. The formatting is defined later automatically.