emacs-orgmode
[Top][All Lists]
Advanced

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

[O] Bug: org-list-make-subtree produces incorrect level [9.2.3 (9.2.3-20


From: Felix Wiemuth
Subject: [O] Bug: org-list-make-subtree produces incorrect level [9.2.3 (9.2.3-20-g31873e-elpaplus @ /home/felix/.emacs.d/elpa/org-plus-contrib-20190527/)]
Date: Sat, 1 Jun 2019 19:30:55 +0000

In some situations, org-list-make-subtree does not create the tree at
the desired level. For example, in the following case, when executing
the command on the first list element, the resulting level is 3 instead
of 2:

* L1
  - List Item
** L2

The result is:

* L1
*** List Item
** L2

Expected result (as in most situations):

* L1
** List Item
** L2

The last item (L2) is necessary for this to happen, whether the list has 
multiple items or
subitems does not matter. The identation of the list item does not
matter either.

The same happens in deeper levels:

* L1
** L2a
** L2b
   - List Item
*** L3

It seems that the resulting tree is always put one level deeper than a
(deeper) heading following without a newline. Maybe this was intended
but it feels unintuitive to me.

* L1
  - List Item
*** L3

results in

* L1
**** List Item
*** L3

but

* L1
  - List Item

*** L3

results in

* L1
** List Item

*** L3

I think I also observed a case where the resulting level was 2 instead
of 4, so the other way round, but unfortunately I cannot reproduce it.

Emacs  : GNU Emacs 26.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.8)
 of 2019-04-12
Package: Org mode version 9.2.3 (9.2.3-20-g31873e-elpaplus @ 
/home/felix/.emacs.d/elpa/org-plus-contrib-20190527/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-blank-before-new-entry '((heading) (plain-list-item))
 org-babel-after-execute-hook '(spacemacs/ob-fix-inline-images)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
                              (insert (format "cite:%s\n" (org-entry-get 
(point) "Custom_ID"))))
                             )
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-imenu-depth 8
 org-download-annotate-function 'org-download-annotate-default
 org-agenda-files 
'("/dateien/Organisation/Computer/notes/programs/emacs/orgmodetest.org"
                    "/dateien/Sync/todo/todo.org")
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-mode-hook '(org-ref-org-menu #[0 "\301\211\207" 
[imenu-create-index-function org-imenu-get-tree] 2]
                 #[0 "\300\301\302\303\304$\207" [add-hook 
change-major-mode-hook org-show-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 
visual-line-mode spacemacs/load-yasnippet
                 toc-org-enable (lambda nil (require (quote org-ref))) 
org-download-enable org-bullets-mode
                 spacemacs//org-babel-do-load-languages 
spacemacs/add-org-surrounds evil-org-mode org-eldoc-load
                 spacemacs//init-company-org-mode company-mode)
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-agenda-restore-windows-after-quit t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-startup-with-inline-images t
 org-ref-clean-bibtex-key-function '(lambda (key) (replace-regexp-in-string ":" 
"" key))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn 
ENTRY)"]
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand)
 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 orcb-fix-spacing)
 org-log-done 'time
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS 
WIDTH)"]
 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-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" . php) 
("C" . c) ("C++" . c++)
                      ("asymptote" . asy) ("bash" . sh) ("beamer" . latex) 
("calc" . fundamental) ("cpp" . c++)
                      ("ditaa" . artist) ("dot" . fundamental) ("elisp" . 
emacs-lisp) ("ocaml" . tuareg)
                      ("screen" . shell-script) ("shell" . sh) ("sqlite" . sql))
 org-occur-hook '(org-first-headline-recenter)
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-ref-insert-link-function 'org-ref-helm-insert-cite-link
 org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
 org-clock-persist-file "/home/felix/.emacs.d/.cache/org-clock-save.el"
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-publish-timestamp-directory "/home/felix/.emacs.d/.cache/.org-timestamps/"
 org-export-async-init-file 
"/home/felix/.emacs.d/layers/+emacs/org/local/org-async-init.el"
 org-id-locations-file "/home/felix/.emacs.d/.cache/.org-id-locations"
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("id" :follow org-id-open)
                       ("printindex" :follow org-ref-index :export
                        #[(path desc format) "\301=\205        
\0\300\302!\207" [format latex "\\printindex"] 2])
                       ("index" :follow #[(path) "\301!\207" [path occur] 2] 
:export
                        #[(path desc format) "\302=\205\n\0\300\303    \"\207" 
[format path latex "\\index{%s}"] 3])
                       ("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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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)
                         (16777327 . org-ref-cite-hydra/body) (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
                        #[(path desc format) "\302\267\202\0\300\303  
\"\207\300\304  \"\207\305\207"
                          [format path #s
                           (hash-table size 2 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (html 6 latex 11))
                           "(<pageref>%s</pageref>)" "\\pageref{%s}" nil]
                          3]
                        :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
                        #[(label)
                          "\302!\303\304\305  \211\306U\204\0        
\307V\203\0\310\202\0\311#\302!\")\207"
                          [label count org-ref-count-labels message format "%s 
occurence%s" 0 1 "s" ""] 6
                          "On clicking count the number of label tags used in 
the buffer.\nA number greater than one means multiple labels!"]
                        :export
                        #[(keyword desc format)
                          "\302\267\202\0\300\303     \"\207\300\304  
\"\207\300\305  \"\207\306\207"
                          [format keyword #s
                           (hash-table size 3 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (html 6 md 11 latex 16))
                           "<div id=\"%s\"></div>" "<a name=\"%s\"></a>" 
"\\label{%s}" nil]
                          3]
                        :store org-label-store-link :face org-ref-label-face-fn 
:help-echo
                        #[(window object position)
                          "\212b\210\303 \304\305!r\nq\210\306\216   
c\210\307 \210\310 -\207"
                          [position s temp-buffer org-ref-link-message 
generate-new-buffer " *temp*"
                           #[nil "\301!\205    \0\302!\207" [temp-buffer 
buffer-name kill-buffer] 2] fill-paragraph
                           buffer-string]
                          2]
                        )
                       ("list-of-tables" :follow org-ref-list-of-tables :export
                        #[(keyword desc format) "\301=\205     
\0\300\302!\207" [format latex "\\listoftables"] 2])
                       ("list-of-figures" :follow org-ref-list-of-figures 
:export
                        #[(keyword desc format) "\301=\205     
\0\300\302!\207" [format latex "\\listoffigures"] 2])
                       ("addbibresource" :follow org-ref-follow-addbibresource 
:export
                        #[(keyword desc format) 
"\302\267\202\0\300\303!\207\300\304  \"\207\305\207"
                          [format keyword #s
                           (hash-table size 2 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (html 6 latex 10))
                           "" "\\addbibresource{%s}" nil]
                          3]
                        )
                       ("bibliographystyle" :export
                        #[(keyword desc format) 
"\302=\204\f\0\303=\203\0\300\304    \"\207\305\207"
                          [format keyword latex beamer 
"\\bibliographystyle{%s}" ""] 3]
                        )
                       ("printbibliography" :follow org-ref-open-bibliography 
:export
                        #[(keyword desc format) "\302\267\202\0\303 \207\304 
\207     \207\305\207"
                          [format org-ref-printbibliography-cmd #s
                           (hash-table size 3 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (org 6 html 9 latex 12))
                           org-ref-get-org-bibliography 
org-ref-get-html-bibliography nil]
                          2]
                        )
                       ("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
                        #[(window object position)
                          "\212b\210\303 \304\305!r\nq\210\306\216   
c\210\307 \210\310 -\207"
                          [position s temp-buffer org-ref-link-message 
generate-new-buffer " *temp*"
                           #[nil "\301!\205    \0\302!\207" [temp-buffer 
buffer-name kill-buffer] 2] fill-paragraph
                           buffer-string]
                          2]
                        :face org-ref-bibliography-face-fn)
                       ("Acp" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("Acp" . "Glspl") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acp" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acp" . "glspl") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Ac" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("Ac" . "Gls") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("ac" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("ac" . "gls") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrfull" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrfull" . "acrfull") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrlong" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo or-acronym-tooltip
                        :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrlong" . "acrlong") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrshort" :follow or-follow-acronym :face 
org-ref-acronym-face :help-echo
                        or-acronym-tooltip :export
                        #[771 "\211\301\267\202
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrshort" . "acrshort") #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glslink" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        #[771 
"\211\300\267\202\f\0\301\302#\207\301\303\"\207"
                          [#s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\glslink{%s}{%s}" "%s"]
                          7 "\n\n(fn PATH DESC FORMAT)"]
                        )
                       ("glsdesc" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["glsdesc" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glssymbol" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["glssymbol" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Glspl" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["Glspl" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Gls" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo or-glossary-tooltip
                        :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["Gls" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glspl" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["glspl" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("gls" :follow or-follow-glossary :face 
org-ref-glossary-face :help-echo or-glossary-tooltip
                        :export
                        #[771 
"\211\301\267\202\f\0\302\303\300#\207\302\304\"\207"
                          ["gls" #s
                           (hash-table size 1 test eq rehash-size 1.5 
rehash-threshold 0.8125 purecopy t data
                            (latex 6))
                           format "\\%s{%s}" "%s"]
                          7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("eww" :follow eww :store org-eww-store-link)
                       ("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 
:export org-irc-export)
                       ("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)
                       ("bibtex" :follow org-bibtex-open :store 
org-bibtex-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) ("file+sys") 
("file+emacs")
                       ("orgit-rev" :store orgit-rev-store :follow 
orgit-rev-open :export orgit-rev-export :complete
                        orgit-rev-complete-link)
                       ("orgit-log" :store orgit-log-store :follow 
orgit-log-open :export orgit-log-export :complete
                        orgit-log-complete-link)
                       ("orgit" :store orgit-status-store :follow 
orgit-status-open :export orgit-status-export
                        :complete orgit-status-complete-link)
                       ("doi" :follow doi-link-menu :export
                        #[(doi desc format)
                          "\304\267\202 \0\300\305     
\n\206\0\306\nP$\207\300\307  \n\206\0\306\nP$\207\310\207"
                          [format

                           doi-utils-dx-doi-org-url

                           doi

                           desc

                           #s

                           (hash-table






                            size






                            2






                            test






                            eq






                            rehash-size






                            1.5






                            rehash-threshold






                            0.8125






                            purecopy






                            t






                            data






                            (html 6 latex 19)






                            )

                           "<a href=\"%s%s\">%s</a>" "doi:" "\\href{%s%s}{%s}" 
nil]
                          6]
                        )
                       ("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-latex-format-headline-function 'org-latex-format-headline-default-function
 org-present-mode-hook '(spacemacs//org-present-start)
 org-link-translation-function 'toc-org-unhrefify
 org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-image-actual-width nil
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-present-mode-quit-hook '(spacemacs//org-present-end)
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-ref-notes-function 'org-ref-notes-function-one-file
 org-download-abbreviate-filename-function 'file-relative-name
 org-default-notes-file "notes.org"
 )

reply via email to

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