emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)]
@ 2018-06-12 11:24 Meyer-Wegener, Klaus
  2018-06-26  9:39 ` Nicolas Goaziou
  0 siblings, 1 reply; 2+ messages in thread
From: Meyer-Wegener, Klaus @ 2018-06-12 11:24 UTC (permalink / raw)
  To: emacs-orgmode@gnu.org

[-- Attachment #1: Type: text/plain, Size: 147800 bytes --]

Message-ID: <86efhcp7v3.fsf@CS6-NOTEBOOK-08.i-did-not-set--mail-host-address--so-tickle-me>
--text follows this line--

Dear all,

LaTeX export stopped working when I installed org 9.1.13.  listp has the
wrong number of arguments:

 apply: Wrong type argument: listp, #("Klaus Meyer-Wegener" 0 19
 (:parent (#0)))

The string is the author field (my name), but in other files, it is
something else.

Thanks,
Klaus Meyer-Wegener

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------



Emacs  : GNU Emacs 25.1.1 (i686-w64-mingw32)
 of 2016-11-16
Package: Org mode version 9.1.13 (9.1.13-elpa @
c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)

current state:
==============
(setq
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
		      org-babel-header-arg-expand)
 org-link-parameters '(("id" :follow org-id-open)
		       ("rmail" :follow org-rmail-open :store
			org-rmail-store-link)
		       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
		       ("irc" :follow org-irc-visit :store org-irc-store-link)
		       ("info" :follow org-info-open :export org-info-export
			:store org-info-store-link)
		       ("gnus" :follow org-gnus-open :store
			org-gnus-store-link)
		       ("docview" :follow org-docview-open :export
			org-docview-export :store org-docview-store-link)
		       ("bbdb" :follow org-bbdb-open :export org-bbdb-export
			:complete org-bbdb-complete-link :store
			org-bbdb-store-link)
		       ("w3m" :store org-w3m-store-link)
		       ("printindex" :follow org-ref-index :export
			(lambda (path desc format)
			 (cond
			  ((eq format (quote latex)) (format "\\printindex")))
			 )
			)
		       ("index" :follow (lambda (path) (occur path)) :export
			(lambda (path desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\index{%s}" path))
			  )
			 )
			)
		       ("bibentry" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-bibentry :complete
			org-bibentry-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Autocites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Autocites :complete
			org-Autocites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("autocites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-autocites :complete
			org-autocites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("supercites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-supercites :complete
			org-supercites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Textcites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Textcites :complete
			org-Textcites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("textcites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-textcites :complete
			org-textcites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Smartcites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Smartcites :complete
			org-Smartcites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("smartcites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-smartcites :complete
			org-smartcites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("footcitetexts" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-footcitetexts :complete
			org-footcitetexts-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("footcites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-footcites :complete
			org-footcites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Parencites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Parencites :complete
			org-Parencites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("parencites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-parencites :complete
			org-parencites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Cites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Cites :complete
			org-Cites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("cites" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-cites :complete
			org-cites-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("fnotecite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-fnotecite :complete
			org-fnotecite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Pnotecite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Pnotecite :complete
			org-Pnotecite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("pnotecite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-pnotecite :complete
			org-pnotecite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Notecite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Notecite :complete
			org-Notecite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("notecite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-notecite :complete
			org-notecite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("footfullcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-footfullcite :complete
			org-footfullcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("fullcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-fullcite :complete
			org-fullcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeurl" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeurl :complete
			org-citeurl-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citedate*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citedate* :complete
			org-citedate*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citedate" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citedate :complete
			org-citedate-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citetitle*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citetitle* :complete
			org-citetitle*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citetitle" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citetitle :complete
			org-citetitle-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citeauthor*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citeauthor* :complete
			org-Citeauthor*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Autocite*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Autocite* :complete
			org-Autocite*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("autocite*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-autocite* :complete
			org-autocite*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Autocite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Autocite :complete
			org-Autocite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("autocite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-autocite :complete
			org-autocite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("supercite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-supercite :complete
			org-supercite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("parencite*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-parencite* :complete
			org-parencite*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("cite*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-cite* :complete
			org-cite*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Smartcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Smartcite :complete
			org-Smartcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("smartcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-smartcite :complete
			org-smartcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Textcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Textcite :complete
			org-Textcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("textcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-textcite :complete
			org-textcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("footcitetext" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-footcitetext :complete
			org-footcitetext-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("footcite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-footcite :complete
			org-footcite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Parencite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Parencite :complete
			org-Parencite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("parencite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-parencite :complete
			org-parencite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Cite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Cite :complete
			org-Cite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citeauthor" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citeauthor :complete
			org-Citeauthor-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citealp" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citealp :complete
			org-Citealp-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citealt" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citealt :complete
			org-Citealt-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citep" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citep :complete
			org-Citep-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("Citet" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-Citet :complete
			org-Citet-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeyearpar" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeyearpar :complete
			org-citeyearpar-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeyear*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeyear* :complete
			org-citeyear*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeyear" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeyear :complete
			org-citeyear-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeauthor*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeauthor* :complete
			org-citeauthor*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citeauthor" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citeauthor :complete
			org-citeauthor-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citetext" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citetext :complete
			org-citetext-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citenum" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citenum :complete
			org-citenum-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citealp*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citealp* :complete
			org-citealp*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citealp" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citealp :complete
			org-citealp-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citealt*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citealt* :complete
			org-citealt*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citealt" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citealt :complete
			org-citealt-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citep*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citep* :complete
			org-citep*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citep" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citep :complete
			org-citep-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citet*" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citet* :complete
			org-citet*-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("citet" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-citet :complete
			org-citet-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("nocite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-nocite :complete
			org-nocite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			)
		       ("cite" :follow
			(lambda (_)
			 (funcall org-ref-cite-onclick-function nil))
			:export org-ref-format-cite :complete
			org-cite-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s
			      (org-ref-format-entry
			       (org-ref-get-bibtex-key-under-cursor))
			      )
			     )
			    (with-temp-buffer (insert s) (fill-paragraph)
			     (buffer-string))
			    )
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display full :keymap
			(keymap (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive)
			  (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive)
			  (org-ref-swap-citation-link -1))
			 (C-right . org-ref-next-key)
			 (C-left . org-ref-previous-key)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first thing in the killring is a key."
			  (interactive)
			  (org-ref-insert-key-at-point (car kill-ring)))
			 (16777303 lambda nil "Copy all the keys at point."
			  (interactive)
			  (kill-new
			   (org-element-property :path (org-element-context)))
			  )
			 (16777335 lambda nil (interactive)
			  (kill-new (car (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion (org-ref-open-citation-at-point)
			   (kill-new (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at point"
			  (interactive) (org-ref-open-citation-at-point)
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 . org-ref-open-pdf-at-point)
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 . org-ref-open-citation-at-point)
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse)
			 (mouse-2 . org-open-at-mouse))
			:store org-ref-bibtex-store-link)
		       ("Cref" :follow org-ref-ref-follow :export
			org-ref-Cref-export :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("cref" :follow org-ref-ref-follow :export
			org-ref-cref-export :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("autoref" :follow org-ref-ref-follow :export
			org-ref-autoref-export :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("eqref" :follow org-ref-ref-follow :export
			org-ref-eqref-export :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("nameref" :follow org-ref-ref-follow :export
			org-ref-export-nameref :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("pageref" :follow org-ref-ref-follow :export
			(lambda (path desc format)
			 (cond
			  ((eq format (quote html))
			   (format "(<pageref>%s</pageref>)" path))
			  ((eq format (quote latex))
			   (format "\\pageref{%s}" path))
			  )
			 )
			:face org-ref-ref-face-fn :complete
			org-pageref-complete-link :help-echo
			org-ref-ref-help-echo)
		       ("ref" :follow org-ref-ref-follow :export
			org-ref-ref-export :complete org-ref-complete-link
			:face org-ref-ref-face-fn :help-echo
			org-ref-ref-help-echo)
		       ("label" :follow
			(lambda (label)
			 "On clicking count the number of label tags used in the buffer.\nA number
greater than one means multiple labels!"
			 (let
			  
			  ((count
			    
	

			    (org-ref-count-labels label)
			    
			    
	

	
)
	

			   )
			  
			  (message
			   
			   (format
			    
	

	

			    "%s occurence%s"
			    
	

	

			    count
			    
	

	

			    (if
			     
	

	

	

	

	

	

	

	

	

	

	

	

			     (or
			      
	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

			      (= count 0)
			      
	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

			      (> count 1)
			      
	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

	

			      )
			     
			     
			     
	

	

	

	

	

	

	

	

	

	

	

	

			     "s" "")
			    
	

	

			    )
			   
			   (org-ref-count-labels label)
			   
			   )
			  
			  )
			 )
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote html))
			   (format "<div id=\"%s\"></div>" keyword))
			  ((eq format (quote md))
			   (format "<a name=\"%s\"></a>" keyword))
			  ((eq format (quote latex))
			   (format "\\label{%s}" keyword))
			  )
			 )
			:store org-label-store-link :face
			org-ref-label-face-fn :help-echo
			(lambda (window object position)
			 (save-excursion (goto-char position)
			  (let ((s (org-ref-link-message)))
			   (let
			    ((temp-buffer (generate-new-buffer " *temp*")))
			    (save-current-buffer (set-buffer temp-buffer)
			     (unwind-protect
			      (progn (insert s) (fill-paragraph)
			       (buffer-string))
			      (and (buffer-name temp-buffer)
			       (kill-buffer temp-buffer))
			      )
			     )
			    )
			   )
			  )
			 )
			)
		       ("list-of-tables" :follow org-ref-list-of-tables
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote latex)) (format "\\listoftables"))
			  )
			 )
			)
		       ("list-of-figures" :follow org-ref-list-of-figures
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\listoffigures"))
			  )
			 )
			)
		       ("addbibresource" :follow org-ref-follow-addbibresource
			:export
			(lambda (keyword desc format)
			 (cond ((eq format (quote html)) (format ""))
			  ((eq format (quote latex))
			   (format "\\addbibresource{%s}" keyword))
			  )
			 )
			)
		       ("bibliographystyle" :export
			(lambda (keyword desc format)
			 (cond
			  ((or (eq format (quote latex))
			    (eq format (quote beamer)))
			   (format "\\bibliographystyle{%s}" keyword))
			  (t ""))
			 )
			)
		       ("printbibliography" :follow org-ref-open-bibliography
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote org))
			   (org-ref-get-org-bibliography))
			  ((eq format (quote html))
			   (org-ref-get-html-bibliography))
			  ((eq format (quote latex)) "\\printbibliography"))
			 )
			)
		       ("nobibliography" :follow org-ref-open-bibliography
			:export org-ref-nobibliography-format)
		       ("bibliography" :follow org-ref-open-bibliography
			:export org-ref-bibliography-format :complete
			org-bibliography-complete-link :help-echo
			(lambda (window object position)
			 (save-excursion (goto-char position)
			  (let ((s (org-ref-link-message)))
			   (let
			    ((temp-buffer (generate-new-buffer " *temp*")))
			    (save-current-buffer (set-buffer temp-buffer)
			     (unwind-protect
			      (progn (insert s) (fill-paragraph)
			       (buffer-string))
			      (and (buffer-name temp-buffer)
			       (kill-buffer temp-buffer))
			      )
			     )
			    )
			   )
			  )
			 )
			:face org-ref-bibliography-face-fn)
		       ("Acp" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "Acp" . "Glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acp" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acp" . "glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("Ac" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure ((mapping "Ac" . "Gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("ac" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure ((mapping "ac" . "gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrfull" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrfull" . "acrfull") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrlong" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrlong" . "acrlong") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrshort" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrshort" . "acrshort") (--dolist-tail--)
			  t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("glslink" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure (t) (path desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\glslink{%s}{%s}" path desc))
			  (t (format "%s" path)))
			 )
			)
		       ("glsdesc" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glsdesc") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("glssymbol" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glssymbol") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("Glspl" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "Glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("Gls" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "Gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("glspl" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("gls" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("bibtex" :follow org-bibtex-open :store
			org-bibtex-store-link)
		       ("file+sys") ("file+emacs")
		       ("doi" :follow doi-link-menu :export
			(lambda (doi desc format)
			 (cond
			  ((eq format (quote html))
			   (format "<a href=\"%s%s\">%s</a>"
			    doi-utils-dx-doi-org-url doi
			    (or desc (concat "doi:" doi)))
			   )
			  ((eq format (quote latex))
			   (format "\\href{%s%s}{%s}" doi-utils-dx-doi-org-url
			    doi (or desc (concat "doi:" doi)))
			   )
			  )
			 )
			)
		       ("elisp" :follow org--open-elisp-link)
		       ("file" :complete org-file-complete-link)
		       ("ftp" :follow
			(lambda (path) (browse-url (concat "ftp:" path))))
		       ("help" :follow org--open-help-link)
		       ("http" :follow
			(lambda (path) (browse-url (concat "http:" path))))
		       ("https" :follow
			(lambda (path) (browse-url (concat "https:" path))))
		       ("mailto" :follow
			(lambda (path) (browse-url (concat "mailto:" path))))
		       ("news" :follow
			(lambda (path) (browse-url (concat "news:" path))))
		       ("shell" :follow org--open-shell-link))
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
			      (insert
			       (format "cite:%s\n"
				(org-entry-get (point) "Custom_ID"))
			       )
			      )
			     )
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
		  org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-ref-notes-function 'org-ref-notes-function-one-file
 org-ref-open-notes-function '(lambda nil (org-show-entry)
			       (outline-show-branches) (outline-show-children)
			       (org-cycle (quote (64)))
			       (recenter-top-bottom 0))
 org-speed-command-hook '(org-speed-command-activate
			  org-babel-speed-command-activate)
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-babel-pre-tangle-hook '(save-buffer)
 org-occur-hook '(org-first-headline-recenter)
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-ref-clean-bibtex-entry-hook '(org-ref-bibtex-format-url-if-doi
				   orcb-key-comma org-ref-replace-nonascii
				   orcb-& orcb-% org-ref-title-case-article
				   orcb-clean-year orcb-key orcb-clean-doi
				   orcb-clean-pages orcb-check-journal
				   org-ref-sort-bibtex-entry)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-latex-classes '(("org-article"
		      "\\documentclass{org-article}\n       \\usepackage[AUTO]{inputenc}\n
[NO-DEFAULT-PACKAGES]\n       [PACKAGES]\n       [EXTRA]"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("article" "\\documentclass[11pt]{article}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("report" "\\documentclass[11pt]{report}"
		      ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     ("book" "\\documentclass[11pt]{book}"
		      ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     )
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-mode-hook '(org-ref-org-menu
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook org-show-block-all append
		    local]
		   5]
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook org-babel-show-result-all
		    append local]
		   5]
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ref-insert-link-function 'org-ref-helm-insert-cite-link
 org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
 org-latex-pdf-process '("latexmk -shell-escape -bibtex -f -pdf %f")
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-from-is-user-regexp nil
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
		     org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-ref-clean-bibtex-key-function '(lambda (key)
				     (replace-regexp-in-string ":" "" key))
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 )

--
Prof. Dr. Klaus Meyer-Wegener,
Universitaet Erlangen-Nuernberg, Informatik 6 Datenmanagement,
Martensstr. 3, 91058 Erlangen, Germany, Tel. +49-9131-85-27892,
https://www.cs6.tf.fau.de/lehrstuhl/personen/klaus-meyer-wegener/



[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 6390 bytes --]

^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)]
  2018-06-12 11:24 Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)] Meyer-Wegener, Klaus
@ 2018-06-26  9:39 ` Nicolas Goaziou
  0 siblings, 0 replies; 2+ messages in thread
From: Nicolas Goaziou @ 2018-06-26  9:39 UTC (permalink / raw)
  To: Meyer-Wegener, Klaus; +Cc: emacs-orgmode@gnu.org

Hello,

"Meyer-Wegener, Klaus" <klaus.meyer-wegener@fau.de> writes:

> LaTeX export stopped working when I installed org 9.1.13.  listp has the
> wrong number of arguments:
>
>  apply: Wrong type argument: listp, #("Klaus Meyer-Wegener" 0 19
>  (:parent (#0)))

It sounds like you have a mixed installation. Please make sure bundled
Org is not loaded when you install the new one from ELPA.

Regards,

-- 
Nicolas Goaziou

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2018-06-26  9:39 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-06-12 11:24 Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)] Meyer-Wegener, Klaus
2018-06-26  9:39 ` Nicolas Goaziou

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).