emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData


From: Meyer-Wegener, Klaus
Subject: [O] Bug: LaTeX export to PDF [9.1.13 (9.1.13-elpa @ c:/Users/kmw/AppData/Roaming/.emacs.d/elpa/org-9.1.13/)]
Date: Tue, 12 Jun 2018 11:24:47 +0000

Message-ID: <address@hidden>
--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: smime.p7s
Description: S/MIME cryptographic signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]