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/)]

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/)]

[Felix Wiemuth]

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\x10\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\x01\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 "\x01\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) "\b\301=\205	\0\300\302!\207" [format latex "\\printindex"] 2])
                       ("index" :follow #[(path) "\301\b!\207" [path occur] 2] :export
                        #[(path desc format) "\b\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) "\b\302\267\202\x10\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\b!\x19\303\304\305	\211\306U\204\x14\0	\307V\203\x18\0\310\202\x19\0\311#\302\b!\")\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)
                          "\b\302\267\202\x15\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)
                          "\212\bb\210\303 \x19\304\305!\x1ar\nq\210\306\216	c\210\307 \210\310 -\207"
                          [position s temp-buffer org-ref-link-message generate-new-buffer " *temp*"
                           #[nil "\301\b!\205	\0\302\b!\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) "\b\301=\205	\0\300\302!\207" [format latex "\\listoftables"] 2])
                       ("list-of-figures" :follow org-ref-list-of-figures :export
                        #[(keyword desc format) "\b\301=\205	\0\300\302!\207" [format latex "\\listoffigures"] 2])
                       ("addbibresource" :follow org-ref-follow-addbibresource :export
                        #[(keyword desc format) "\b\302\267\202\x0f\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) "\b\302=\204\f\0\b\303=\203\x11\0\300\304	\"\207\305\207"
                          [format keyword latex beamer "\\bibliographystyle{%s}" ""] 3]
                        )
                       ("printbibliography" :follow org-ref-open-bibliography :export
                        #[(keyword desc format) "\b\302\267\202\x0e\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)
                          "\212\bb\210\303 \x19\304\305!\x1ar\nq\210\306\216	c\210\307 \210\310 -\207"
                          [position s temp-buffer org-ref-link-message generate-new-buffer " *temp*"
                           #[nil "\301\b!\205	\0\302\b!\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x05#\207\302\304\x04\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\x04\x04#\207\301\303\x04\"\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\x05#\207\302\304\x04\"\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\x05#\207\302\304\x04\"\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\x05#\207\302\304\x04\"\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\x05#\207\302\304\x04\"\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\x05#\207\302\304\x04\"\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\x05#\207\302\304\x04\"\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)
                          "\b\304\267\202 \0\300\305	\n\v\206\x11\0\306\nP$\207\300\307	\n\v\206\x1e\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"
 )

Re: 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/)]

[Nicolas Goaziou]

Hello,

Felix Wiemuth <felixwiemuth@hotmail.de> writes:

> 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.

I think this is now fixed in master.

Thank you.

Regards,

-- 
Nicolas Goaziou