From: John Kitchin Date: Wed, 25 Mar 2015 14:32:16 +0000 (-0400) Subject: small layout changes, fixed bug in bibliographystyle link X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=commitdiff_plain;h=8221fe8e5378375494f24a25d46f95016d10c144;hp=31cdb1467c7db0277ce71e2bf8871e3ff1bb8744 small layout changes, fixed bug in bibliographystyle link --- diff --git a/org-ref.el b/org-ref.el index 7b2c096..6c7c437 100644 --- a/org-ref.el +++ b/org-ref.el @@ -423,7 +423,6 @@ Beware that all this only works with BibTeX database files. When citations are made from the \bibitems in an explicit thebibliography environment, only %l is available." ;; Format a citation from the info in the BibTeX ENTRY - (unless (stringp format) (setq format "\\cite{%l}")) (if (and reftex-comment-citations @@ -540,8 +539,8 @@ Format according to the type in `org-ref-bibliography-entry-format'." (defun org-ref-get-bibtex-entry-html (key) "Return an html string for the bibliography entry corresponding to KEY." - - (format "
  • [%s] %s
  • " key key (org-ref-get-bibtex-entry-citation key))) + (format "
  • [%s] %s
  • " + key key (org-ref-get-bibtex-entry-citation key))) (defun org-ref-get-html-bibliography () "Create an html bibliography when there are keys." @@ -749,10 +748,10 @@ Format according to the type in `org-ref-bibliography-entry-format'." (cond ((eq format 'latex) ;; write out the latex bibliography command - (format "\\bibliographystyle{%s}" keyword))) - ;; Other styles should not have an output for this - (t - ""))) + (format "\\bibliographystyle{%s}" keyword)) + ;; Other styles should not have an output for this + (t + "")))) (defun org-bibliographystyle-complete-link (&optional arg) @@ -2094,7 +2093,6 @@ This assumes you are in an article." (defun org-ref-bib-html-citation () "From a bibtex entry, create and return a simple citation with html links." - (bibtex-beginning-of-entry) (let* ((cb (current-buffer)) (bibtex-expand-strings t) @@ -2108,14 +2106,13 @@ This assumes you are in an article." (volume (reftex-get-bib-field "volume" entry)) (pages (reftex-get-bib-field "pages" entry)) (doi (reftex-get-bib-field "doi" entry)) - (url (reftex-get-bib-field "url" entry)) - ) + (url (reftex-get-bib-field "url" entry))) ;;authors, "title", Journal, vol(iss):pages (year). (concat (format "%s, \"%s\", %s, %s:%s (%s)." author title journal volume pages year) (when url (format " link" url)) - (when doi (format " doi" doi))) - )) + (when doi + (format " doi" doi))))) ;; ** Open pdf in bibtex entry (defun org-ref-open-bibtex-pdf ()