X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=fd9e3d65fd425b68d15e4cb3b08171f9d3bc00a7;hp=2047859e6d264b340e32f087f374c5570213d9c9;hb=a44a73d543f4412c4d261d003278a86487e459fd;hpb=61faeb6c6bbdceaa7c4bc899002dfc7b4285f263 diff --git a/org-ref.org b/org-ref.org index 2047859..fd9e3d6 100644 --- a/org-ref.org +++ b/org-ref.org @@ -1428,7 +1428,9 @@ The function must take no arguments and work on the key at point. Do not modify (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 @@ -1539,25 +1541,35 @@ Provides a menu of context sensitive actions. If the bibtex entry has a pdf, you '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 @@ -1570,6 +1582,9 @@ Provides a menu of context sensitive actions. If the bibtex entry has a pdf, you 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.