all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
@ 2020-09-14  5:08 Frederic Santos
  2020-09-14  7:06 ` Colin Baxter
  0 siblings, 1 reply; 8+ messages in thread
From: Frederic Santos @ 2020-09-14  5:08 UTC (permalink / raw)
  To: emacs-orgmode

Hi everyone,

After upgrading to Emacs 27, I noticed that, for any org document, =C-c
C-e l o= now behaves on my computer as =C-c C-e l p=; i.e., the pdf is
correctly produced, but is not displayed anymore on side window.

Several users (using various operating systems) confirmed the bug on
StackExchange:
https://emacs.stackexchange.com/questions/60379/c-c-c-e-l-o-does-not-open-the-pdf-anymore

Is there any simple workaround to solve that?

Cheers,
Frédéric
------------------------------------------------------------------------



Emacs  : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.22, cairo version 1.17.3)
 of 2020-08-28
Package: Org mode version 9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer)
 org-latex-minted-langs '((SAS "sas") (R "r") (emacs-lisp "common-lisp") (cc "c++")
                          (cperl "perl") (shell-script "bash") (caml "ocaml"))
 org-latex-listings 'minted
 org-link-shell-confirm-function 'yes-or-no-p
 org-babel-after-execute-hook '(org-display-inline-images)
 org-static-blog-publish-url "https://f-santos.gitlab.io/"
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-reveal-root "/home/fsantos/PACEA_MyCore/Logiciels/reveal_js"
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-pretty-entities t
 org-static-blog-enable-tags t
 org-enforce-todo-dependencies t
 org-edit-src-content-indentation 0
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
                              (insert
                               (format "cite:%s\n" (org-entry-get (point) "Custom_ID")))
                              )
                             )
 org-src-tab-acts-natively t
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-static-blog-use-preview t
 org-latex-pdf-process '("latexmk -shell-escape -bibtex -f -pdf %f")
 org-agenda-files '("~/PACEA_MyCore/todo.org")
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-mode-hook '(#[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2]
                 (lambda nil
                  (local-set-key (kbd "C-u C-c C-x C-a")
                   #'org-reverse-datetree-archive-subtree)
                  )
                 org-ref-org-menu org-display-inline-images
                 ob-ipython-auto-configure-kernels turn-on-visual-line-mode
                 org-tempo-setup
                 #[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
                 org-ref-setup-label-finders)
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-export-with-smart-quotes t
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-static-blog-page-preamble "<div class=\"header\"><a href=\"https://f-santos.gitlab.io/\">Frédéric Santos' notebook</a><div class=\"slogan\">Emacs and R tricks for anthropologists and archaeologists.</div><div class=\"sitelinks\"><a href=\"https://f-santos.gitlab.io/\"> Home </a>|<a href=\"https://f-santos.gitlab.io/about.html\"> About </a>|<a href=\"https://f-santos.gitlab.io/rpackages.html\"> R packages </a>|<a href=\"https://f-santos.gitlab.io/teaching.html\"> Teaching (Master BGS) </a>| <div class=\"dropdown\"><a href=\"https://f-santos.gitlab.io/tags.html\" class=\"dropbtn\"> Tags </a><div class=\"dropdown-content\"><a href=\"https://f-santos.gitlab.io/tag-blog.html\">blog</a><a href=\"https://f-santos.gitlab.io/tag-emacs.html\">emacs</a><a href=\"https://f-santos.gitlab.io/tag-r.html\">r</a><a href=\"https://f-santos.gitlab.io/tag-statistics.html\">statistics</a><a href=\"https://f-santos.gitlab.io/tag-teaching.html\">teaching</a></div></div></div></div>"
 org-ref-clean-bibtex-key-function '(lambda (key) (replace-regexp-in-string ":" "" key))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-log-reschedule 'note
 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-starter-alternative-find-function 'org-starter-sparse-tree-on-file
 org-ref-bibliography-notes "~/PACEA_MyCore/refs_notes.org"
 org-babel-load-languages '((ein . t) (emacs-lisp . t) (ipython . t) (julia . t)
                            (latex . t) (makefile . t) (octave . t) (org . t) (python . t)
                            (R . t) (shell . t))
 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-static-blog-drafts-directory "~/PACEA_MyCore/Blog/drafts/"
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-static-blog-publish-directory "~/PACEA_MyCore/Blog/public/"
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-ref-open-notes-function '(lambda nil (org-show-entry) (outline-show-branches)
                               (outline-show-children) (org-cycle '(64))
                               (recenter-top-bottom 0))
 org-src-lang-modes '(("jupyter-python" . python) ("jupyter-R" . R)
                      ("jupyter-julia" . julia) ("ipython" . python) ("ein-julia" . julia)
                      ("ein-r" . R) ("ein-R" . R) ("ein-python" . python) ("ein" . python)
                      ("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-src-preserve-indentation t
 org-occur-hook '(org-first-headline-recenter)
 org-log-into-drawer t
 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-structure-template-alist '(("n" . "notes")
                                ("init" . "src emacs-lisp :tangle init.el")
                                ("el" . "src emacs-lisp :results output")
                                ("o" . "src octave :results output :session :exports both")
                                ("jfig" .
                                 "src julia :results graphics file :session *julia* :exports results :var plot_filename='FILENAME.png'\nplot!(size=(600,400))\n\nsavefig('FILENAME.png')")
                                ("j" .
                                 "src julia :results output :session *julia* :exports both")
                                ("einp" .
                                 "src ein-python :results output :session localhost :exports both")
                                ("pfig" .
                                 "src python :results file :session :exports both :var plot_filename='FILENAME.png'\nimport matplotlib.pyplot as plt\n\nplt.savefig(plot_filename)\nplot_filename")
                                ("ip" .
                                 "src ipython :results output :session ip1 :exports both")
                                ("p" . "src python :results output :session :exports both")
                                ("rtab" .
                                 "src R :results value table :colnames yes :rownames yes :session *R* :exports both")
                                ("rfig" .
                                 "src R :results graphics file :file FILENAME.png :exports both :width 600 :height 400 :session *R*")
                                ("r" . "src R :results output :session *R* :exports both")
                                ("a" . "export ascii") ("c" . "center") ("C" . "comment")
                                ("e" . "example") ("E" . "export") ("h" . "export html")
                                ("l" . "export latex") ("q" . "quote") ("s" . "src")
                                ("v" . "verse"))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO(t)" "IN-PROGRESS(p)" "SOMEDAY(s)" "WAITING(w@)" "|"
                      "DONE(d)" "CANCELED(c@)")
                     )
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-ref-default-bibliography '("~/PACEA_MyCore/complete_biblio.bib")
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py") ("julia" . "jl")
                              ("emacs-lisp" . "el") ("elisp" . "el"))
 org-ref-pdf-to-bibtex-function 'copy-file
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("attachment" :follow org-attach-open-link :export
                        org-attach-export-link :complete org-attach-complete-link)
                       ("id" :follow org-id-open)
                       ("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)
                       ("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)
                       ("mu4e" :follow mu4e-org-open :store mu4e-org-store-link)
                       ("printindex" :follow org-ref-index :export
                        #[(path desc format) "\301=\205	\0\300\302!\207"
                          [format latex "\\printindex"] 2]
                        )
                       ("index" :follow #[(path) "\301!\207" [path occur] 2] :export
                        #[(path desc format) "\302=\205\n\0\300\303	\"\207"
                          [format path latex "\\index{%s}"] 3]
                        )
                       ("bibentry" :follow
                        (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export
                        org-ref-format-bibentry :complete org-bibentry-complete-link
                        :help-echo
                        (lambda (window object position)
                         (when org-ref-show-citation-on-enter
                          (save-excursion (goto-char position)
                           (let
                            ((s
                              (org-ref-format-entry (org-ref-get-bibtex-key-under-cursor)))
                             )
                            (with-temp-buffer (insert s) (fill-paragraph) (buffer-string)))
                           )
                          )
                         )
                        :face org-ref-cite-link-face-fn :display full :keymap
                        (keymap
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-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 org-bibtex-goto-citation :export nil :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
                         (tab lambda nil (interactive)
                          (funcall org-ref-insert-cite-function))
                         (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive) (org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive) (org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left . org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point (car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at point." (interactive)
                          (kill-new (org-element-property :path (org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point" (interactive)
                          (org-ref-open-citation-at-point) (org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
                         (16777327 . org-ref-cite-hydra/body) (follow-link . mouse-face)
                         (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse))
                        :store org-ref-bibtex-store-link)
                       ("Cref" :follow org-ref-ref-follow :export org-ref-Cref-export
                        :complete org-ref-complete-link :face org-ref-ref-face-fn
                        :help-echo org-ref-ref-help-echo)
                       ("cref" :follow org-ref-ref-follow :export org-ref-cref-export
                        :complete org-ref-complete-link :face org-ref-ref-face-fn
                        :help-echo org-ref-ref-help-echo)
                       ("autoref" :follow org-ref-ref-follow :export
                        org-ref-autoref-export :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("eqref" :follow org-ref-ref-follow :export org-ref-eqref-export
                        :complete org-ref-complete-link :face org-ref-ref-face-fn
                        :help-echo org-ref-ref-help-echo)
                       ("nameref" :follow org-ref-ref-follow :export
                        org-ref-export-nameref :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("pageref" :follow org-ref-ref-follow :export
                        #[(path desc format)
                          "\302\267\202\0\300\303	\"\207\300\304	\"\207\305\207"
                          [format path #s
                           (hash-table size 2 test eq rehash-size 1.5 rehash-threshold
                            0.8125 purecopy t data (html 6 latex 11))
                           "(<pageref>%s</pageref>)" "\\pageref{%s}" nil]
                          3]
                        :face org-ref-ref-face-fn :complete org-pageref-complete-link
                        :help-echo org-ref-ref-help-echo)
                       ("ref" :follow org-ref-ref-follow :export org-ref-ref-export
                        :complete org-ref-complete-link :face org-ref-ref-face-fn
                        :help-echo org-ref-ref-help-echo)
                       ("label" :follow
                        #[(label)
                          "\302!\303\304\305	\211\306U\204\0	\307V\203\0\310\202\0\311#\302!\")\207"
                          [label count org-ref-count-labels message format
                           "%s occurence%s" 0 1 "s" ""]
                          6
                          "On clicking count the number of label tags used in the buffer.\nA number greater than one means multiple labels!"]
                        :export
                        #[(keyword desc format)
                          "\302\267\202\0\300\303	\"\207\300\304	\"\207\300\305	\"\207\306\207"
                          [format
                           
                           keyword
                           
                           #s
                           
                           (hash-table
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            size
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            3
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            test
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            eq
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            rehash-size
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            1.5
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            rehash-threshold
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            0.8125
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            purecopy
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            t
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            data
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            (html 6 md 11 latex 16)
                            
                                                                                                          
                                                                                                            
                                                                                                                    
                            )
                           
                           "<div id=\"%s\"></div>" "<a name=\"%s\"></a>" "\\label{%s}" nil]
                          3]
                        :store org-label-store-link :face org-ref-label-face-fn :help-echo
                        #[(window object position)
                          "\212b\210\303 \304\305!r\nq\210\306\216	c\210\307 \210\310 -\207"
                          [position
                           
                           s
                           
                           temp-buffer
                           
                           org-ref-link-message
                           
                           generate-new-buffer
                           
                           " *temp*"
                           
                           #[nil
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             "\301!\205	\0\302!\207"
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             [temp-buffer buffer-name kill-buffer]
                             
                             
                             
                             
                             
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             2]
                           
                           fill-paragraph buffer-string]
                          2]
                        )
                       ("list-of-tables" :follow org-ref-list-of-tables :export
                        #[(keyword desc format) "\301=\205	\0\300\302!\207"
                          [format latex "\\listoftables"] 2]
                        )
                       ("list-of-figures" :follow org-ref-list-of-figures :export
                        #[(keyword desc format) "\301=\205	\0\300\302!\207"
                          [format latex "\\listoffigures"] 2]
                        )
                       ("addbibresource" :follow org-ref-follow-addbibresource :export
                        #[(keyword desc format)
                          "\302\267\202\0\300\303!\207\300\304	\"\207\305\207"
                          [format keyword #s
                           (hash-table size 2 test eq rehash-size 1.5 rehash-threshold
                            0.8125 purecopy t data (html 6 latex 10))
                           "" "\\addbibresource{%s}" nil]
                          3]
                        )
                       ("bibliographystyle" :export
                        #[(keyword desc format)
                          "\302=\204\f\0\303=\203\0\300\304	\"\207\305\207"
                          [format keyword latex beamer "\\bibliographystyle{%s}" ""] 3]
                        )
                       ("printbibliography" :follow org-ref-open-bibliography :export
                        #[(keyword desc format)
                          "\302\267\202\0\303 \207\304 \207	\207\305\207"
                          [format org-ref-printbibliography-cmd #s
                           (hash-table size 3 test eq rehash-size 1.5 rehash-threshold
                            0.8125 purecopy t data (org 6 html 9 latex 12))
                           org-ref-get-org-bibliography org-ref-get-html-bibliography nil]
                          2]
                        )
                       ("nobibliography" :follow org-ref-open-bibliography :export
                        org-ref-nobibliography-format)
                       ("bibliography" :follow org-ref-open-bibliography :export
                        org-ref-bibliography-format :complete
                        org-bibliography-complete-link :help-echo
                        #[(window object position)
                          "\212b\210\303 \304\305!r\nq\210\306\216	c\210\307 \210\310 -\207"
                          [position
                           
                           s
                           
                           temp-buffer
                           
                           org-ref-link-message
                           
                           generate-new-buffer
                           
                           " *temp*"
                           
                           #[nil
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             "\301!\205	\0\302!\207"
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             [temp-buffer buffer-name kill-buffer]
                             
                             
                             
                             
                             
                             
                                                                                                             
                                                                                                                       
                                                                                                                                           
                                                                                                                                                                
                                                                                                                                                                            
                                                                                                                                                                              
                             2]
                           
                           fill-paragraph buffer-string]
                          2]
                        :face org-ref-bibliography-face-fn)
                       ("Acp" :follow or-follow-acronym :face org-ref-acronym-face
                        :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("Acp" . "Glspl") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acp" . "glspl") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("Ac" . "Gls") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("ac" . "gls") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrfull" . "acrfull") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrlong" . "acrlong") (latex beamer) 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>\203
\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrshort" . "acrshort") (latex beamer) 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>\203\f\0\301\302#\207\301\303\"\207"
                          [(latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["glsdesc" (latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["glssymbol" (latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["Glspl" (latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["Gls" (latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["glspl" (latex beamer) 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>\203\f\0\302\303\300#\207\302\304\"\207"
                          ["gls" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
                       ("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell)
                       ("news" :follow
                        #[257 "\301\300\302Q!\207" ["news" browse-url ":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("mailto" :follow
                        #[257 "\301\300\302Q!\207" ["mailto" browse-url ":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("https" :follow
                        #[257 "\301\300\302Q!\207" ["https" browse-url ":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("http" :follow
                        #[257 "\301\300\302Q!\207" ["http" browse-url ":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("ftp" :follow
                        #[257 "\301\300\302Q!\207" ["ftp" browse-url ":"] 5
                          "\n\n(fn URL)"]
                        )
                       ("help" :follow org-link--open-help)
                       ("file" :complete org-link-complete-file)
                       ("elisp" :follow org-link--open-elisp)
                       ("doi" :follow doi-link-menu :export
                        #[(doi desc format)
                          "\304\267\202 \0\300\305	\n\206\0\306\nP$\207\300\307	\n\206\0\306\nP$\207\310\207"
                          [format
                           
                           doi-utils-dx-doi-org-url
                           
                           doi
                           
                           desc
                           
                           #s
                           
                           (hash-table
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            size
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            2
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            test
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            eq
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            rehash-size
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            1.5
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            rehash-threshold
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            0.8125
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            purecopy
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            t
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            data
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            (html 6 latex 19)
                            
                                                                                                                                    
                                                                                                                                      
                                                                                                                                           
                                                                                                                                               
                                                                                                                                                                        
                            )
                           
                           "<a href=\"%s%s\">%s</a>" "doi:" "\\href{%s%s}{%s}" nil]
                          6]
                        )
                       )
 org-static-blog-posts-directory "~/PACEA_MyCore/Blog/posts/"
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-capture-templates '(("j" "Jardin")
                         ("jt" "Nouvelle tâche au jardin" entry
                          (file+headline "~/Framadrive/garden.org" "Tâches")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/garden_task.txt")
                          )
                         ("p" "Notes et mémos de programmation")
                         ("pl" "Entrée de l'annuaire de fonctions Emacs Lisp" entry
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/Lisp_programming/annuaire_fonctions_elisp.org")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/lispfun_template.txt")
                          :empty-lines-before 1)
                         ("r" "Rendez-vous" entry
                          (file+headline "~/PACEA_MyCore/todo.org" "Rendez-vous")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/rdv_pacea.txt")
                          )
                         ("t" "Tâche PACEA")
                         ("ta" "Nouveau projet d'article" entry
                          (file+headline "~/PACEA_MyCore/todo.org" "Projets d'articles")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/article_pacea.txt")
                          )
                         ("td" "Nouveau projet de développement logiciel" entry
                          (file+headline "~/PACEA_MyCore/todo.org"
                           "Projets de développement")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/projet_dev.txt")
                          )
                         ("tf" "Nouvelle tâche d'autoformation" entry
                          (file+headline "~/PACEA_MyCore/todo.org" "Autoformation")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/autoformation_pacea.txt")
                          )
                         ("tt" "Nouvelle tâche (scientifique)" entry
                          (file+headline "~/PACEA_MyCore/todo.org" "Tâches PACEA")
                          (file
                           "~/PACEA_MyCore/Logiciels/Emacs/org-templates/tache_pacea.txt")
                          )
                         ("u" "Formations Urfist" entry
                          (file+headline "~/PACEA_MyCore/todo.org" "Formations Urfist")
                          (file "~/PACEA_MyCore/Logiciels/Emacs/org-templates/urfist.txt"))
                         )
 org-link-elisp-confirm-function 'yes-or-no-p
 org-todo-keyword-faces '(("TODO" . "red3") ("IN-PROGRESS" . "DarkOrange2")
                          ("SOMEDAY" . "blue") ("WAITING" . "gold2")
                          ("CANCELED" . "thistle4") ("DONE" . "forest green"))
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-tab-before-tab-emulation-hook '(org-tempo-complete-tag)
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-latex-caption-above nil
 org-latex-packages-alist '(("" "color"))
 org-clock-into-drawer "CLOCKING"
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-latex-classes '(("fsdoc" "\\documentclass{fsdoc}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("krantz" "\\documentclass{krantz}" ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("WileyNJD-v2" "\\documentclass{WileyNJD-V2}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("elsarticle" "\\documentclass{elsarticle}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("beamer" "\\documentclass[presentation]{beamer}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}"
                      ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     )
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-confirm-babel-evaluate nil
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-agenda-custom-commands '(("d" "Custom daily agenda"
                               ((agenda "" ((org-agenda-span 'day))
                                 (org-agenda-overriding-header "Agenda du jour"))
                                (tags "PRIORITY=\"A\""
                                 ((org-agenda-skip-function
                                   '(org-agenda-skip-entry-if 'todo 'done))
                                  (org-agenda-overriding-header
                                   "Tâches importantes à finaliser")
                                  )
                                 )
                                (todo "WAITING"
                                 ((org-agenda-overriding-header "Tâches en attente")))
                                (alltodo ""
                                 ((org-agenda-skip-function 'fs/org-search-for-quickpicks)
                                  (org-agenda-overriding-header "Tâches rapides"))
                                 )
                                )
                               )
                              )
 org-static-blog-page-header "<meta name=\"author\" content=\"Frédéric Santos\">\n<meta name=\"referrer\" content=\"no-referrer\">\n<link href= \"solarized-light.css\" rel=\"stylesheet\" type=\"text/css\" />\n<link rel=\"icon\" href=\"favicon.ico\">\n<script type=\"text/x-mathjax-config\">\n    MathJax.Hub.Config({\n        displayAlign: \"center\",\n        displayIndent: \"0em\",\n\n        \"HTML-CSS\": { scale: 100,\n                        linebreaks: { automatic: \"false\" },\n                        webFont: \"TeX\"\n                       },\n        SVG: {scale: 100,\n              linebreaks: { automatic: \"false\" },\n              font: \"TeX\"},\n        NativeMML: {scale: 100},\n        TeX: { equationNumbers: {autoNumber: \"AMS\"},\n               MultLineWidth: \"85%\",\n               TagSide: \"right\",\n               TagIndent: \".8em\"\n             }\n});\n</script>\n<script type=\"text/javascript\"\n        src=\"https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/MathJax.js?config=TeX-AMS_HTML\"></script>"
 org-ref-notes-function 'org-ref-notes-function-one-file
 org-publish-project-alist '(("orgfilesstatbook" :base-directory
                              "~/PACEA_MyCore/Templates/book_CRC/" :base-extension "org"
                              :publishing-directory
                              "~/PACEA_MyCore/Templates/book_CRC/Publish/"
                              :publishing-function org-latex-publish-to-latex :body-only t
                              :exclude-tags ("biblio" "noexport"))
                             ("imagesstatbook" :base-directory
                              "~/PACEA_MyCore/Templates/book_CRC/" :base-extension "png"
                              :publishing-directory
                              "~/PACEA_MyCore/Templates/book_CRC/Publish/"
                              :publishing-function org-publish-attachment)
                             ("imagesblog" :base-directory "~/PACEA_MyCore/Blog/posts/"
                              :base-extension "png\\|gif" :publishing-directory
                              "~/PACEA_MyCore/Blog/public/" :publishing-function
                              org-publish-attachment)
                             )
 org-static-blog-page-postamble "<hr> <footer> <center> <a itemprop=\"sameAs\" content=\"https://gitlab.com/f-santos\" href=\"https://gitlab.com/f-santos\" target=\"gitlab.widget\" rel=\"me noopener noreferrer\"> <img src=\"https://img.icons8.com/color/48/000000/gitlab.png\" style=\"width:1em;margin-right:.5em;\" alt=\"GitLab iD icon\">GitLab</a> | <a itemprop=\"sameAs\" content=\"https://orcid.org/0000-0003-1445-3871\" href=\"https://orcid.org/0000-0003-1445-3871\" target=\"orcid.widget\" rel=\"me noopener noreferrer\"> <img src=\"https://orcid.org/sites/default/files/images/orcid_16x16.png\" style=\"width:1em;margin-right:.5em;\" alt=\"ORCID iD icon\">ORCID</a></center>\n        <a rel=\"license\" href=\"http://creativecommons.org/licenses/by-nc-sa/4.0/\"><img alt=\"Creative Commons License\" style=\"border-width:0\" src=\"https://i.creativecommons.org/l/by-nc-sa/4.0/80x15.png\" /></a><br />All the material published in this blog is licensed under a <a rel=\"license\" href=\"http://creativecommons.org/licenses/by-nc-sa/4.0/\">Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International License</a>.</footer"
 org-archive-reversed-order t
 org-reverse-datetree-find-function 'org-reverse-datetree--find-or-insert
 org-static-blog-publish-title "Frédéric Santos' notebook"
 org-default-notes-file "~/PACEA_MyCore/notes.org"
 )


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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-14  5:08 Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)] Frederic Santos
@ 2020-09-14  7:06 ` Colin Baxter
  2020-09-15  3:27   ` Kyle Meyer
  0 siblings, 1 reply; 8+ messages in thread
From: Colin Baxter @ 2020-09-14  7:06 UTC (permalink / raw)
  To: emacs-orgmode

>>>>> Frederic Santos <frederic.santos@u-bordeaux.fr> writes:

    > Hi everyone, After upgrading to Emacs 27, I noticed that, for any
    > org document, =C-c C-e l o= now behaves on my computer as =C-c C-e
    > l p=; i.e., the pdf is correctly produced, but is not displayed
    > anymore on side window.

    > Several users (using various operating systems) confirmed the bug
    > on StackExchange:
    > https://emacs.stackexchange.com/questions/60379/c-c-c-e-l-o-does-not-open-the-pdf-anymore

    > Is there any simple workaround to solve that?

Does not happen to me. I'm on emacs-27.1 and org-mode from git (version
9.3.8 (release_9.3.8-777-g9c31cb). Perhaps try updating your org-mode.

Best wishes



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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-14  7:06 ` Colin Baxter
@ 2020-09-15  3:27   ` Kyle Meyer
  2020-09-15  9:15     ` Thomas Stenhaug
  0 siblings, 1 reply; 8+ messages in thread
From: Kyle Meyer @ 2020-09-15  3:27 UTC (permalink / raw)
  To: Frederic Santos, Colin Baxter; +Cc: emacs-orgmode

Colin Baxter writes:

>>>>>> Frederic Santos <frederic.santos@u-bordeaux.fr> writes:
>
>     > Hi everyone, After upgrading to Emacs 27, I noticed that, for any
>     > org document, =C-c C-e l o= now behaves on my computer as =C-c C-e
>     > l p=; i.e., the pdf is correctly produced, but is not displayed
>     > anymore on side window.
>
>     > Several users (using various operating systems) confirmed the bug
>     > on StackExchange:
>     > https://emacs.stackexchange.com/questions/60379/c-c-c-e-l-o-does-not-open-the-pdf-anymore
>
>     > Is there any simple workaround to solve that?
>
> Does not happen to me. I'm on emacs-27.1 and org-mode from git (version
> 9.3.8 (release_9.3.8-777-g9c31cb). Perhaps try updating your org-mode.

Thanks for checking.  And I can't trigger the issue with Emacs 27 and
the commit reported in the subject (ba2405) on a GNU/Linux system.

This goes through org-open-file, so it depends on the OS and system
configuration.  Frederic, I'd recommend trying to tweak org-file-apps to
see if you can land on something that displays the PDF again.

And I think Nick's suggestion/question in the SE comment thread is a
good one:

    It's probably not an emacs issue at all: what happens when you run
    usr/bin/xdg-open /home/fs/Documents/essai.pdf from the command line?


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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-15  3:27   ` Kyle Meyer
@ 2020-09-15  9:15     ` Thomas Stenhaug
  2020-09-15 11:28       ` Frédéric Santos
  2020-09-15 12:52       ` Colin Baxter
  0 siblings, 2 replies; 8+ messages in thread
From: Thomas Stenhaug @ 2020-09-15  9:15 UTC (permalink / raw)
  To: Kyle Meyer; +Cc: Colin Baxter, emacs-orgmode, Frederic Santos

Kyle Meyer <kyle@kyleam.com> writes:

> Colin Baxter writes:
>
>>>>>>> Frederic Santos <frederic.santos@u-bordeaux.fr> writes:
>>
>>     > Hi everyone, After upgrading to Emacs 27, I noticed that, for any
>>     > org document, =C-c C-e l o= now behaves on my computer as =C-c C-e
>>     > l p=; i.e., the pdf is correctly produced, but is not displayed
>>     > anymore on side window.
>>
>>     > Several users (using various operating systems) confirmed the bug
>>     > on StackExchange:
>>     > https://emacs.stackexchange.com/questions/60379/c-c-c-e-l-o-does-not-open-the-pdf-anymore
>>
>>     > Is there any simple workaround to solve that?
>>
>> Does not happen to me. I'm on emacs-27.1 and org-mode from git (version
>> 9.3.8 (release_9.3.8-777-g9c31cb). Perhaps try updating your org-mode.
>
> Thanks for checking.  And I can't trigger the issue with Emacs 27 and
> the commit reported in the subject (ba2405) on a GNU/Linux system.
>
> This goes through org-open-file, so it depends on the OS and system
> configuration.  Frederic, I'd recommend trying to tweak org-file-apps to
> see if you can land on something that displays the PDF again.
>
> And I think Nick's suggestion/question in the SE comment thread is a
> good one:
>
>     It's probably not an emacs issue at all: what happens when you run
>     usr/bin/xdg-open /home/fs/Documents/essai.pdf from the command line?

I recently had the same problem, on Arch Linux with Emacs 27.1. If you
run xdg-open from an eshell, the problem should be the same.  It should
also go away if you replace "xdg-open" with "setsid xdg-open".

I ended up doing

  (push '("\\.pdf\\'" . "evince %s") org-file-apps)

to solve it for my case. It would have been preferable to change how the
default app is being resolved from "xdg-open" to "setsid xdg-open", but
I haven't been able to.


Thomas


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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-15  9:15     ` Thomas Stenhaug
@ 2020-09-15 11:28       ` Frédéric Santos
  2020-09-15 13:43         ` Thomas Stenhaug
  2020-09-15 12:52       ` Colin Baxter
  1 sibling, 1 reply; 8+ messages in thread
From: Frédéric Santos @ 2020-09-15 11:28 UTC (permalink / raw)
  To: Thomas Stenhaug; +Cc: Colin Baxter, emacs-orgmode


Le 2020-09-15 à 11:15:48 CEST, Thomas Stenhaug a écrit :

> I recently had the same problem, on Arch Linux with Emacs 27.1. If you
> run xdg-open from an eshell, the problem should be the same.  It should
> also go away if you replace "xdg-open" with "setsid xdg-open".
>
> I ended up doing
>
>   (push '("\\.pdf\\'" . "evince %s") org-file-apps)
>
> to solve it for my case.

Hi Thomas (and others),

Thanks for your answer! This does work... in some way. In the sense that
it manages to open evince to read the PDF outside of Emacs; but this
does not restore (of course) the "normal" behavior of =C-c C-e l o= to
display the PDF in a dedicated Emacs buffer.

I'm also on Arch/Manjaro, this might play a role... But it's not a big
deal anyway (and I've actually written a simple workaround in Elisp to
display and revert the associated PDF in its side window).

Cheers,
Frédéric


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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-15  9:15     ` Thomas Stenhaug
  2020-09-15 11:28       ` Frédéric Santos
@ 2020-09-15 12:52       ` Colin Baxter
  1 sibling, 0 replies; 8+ messages in thread
From: Colin Baxter @ 2020-09-15 12:52 UTC (permalink / raw)
  To: emacs-orgmode

>>>>> Thomas Stenhaug <thomas.stenhaug@gmail.com> writes:


    > I recently had the same problem, on Arch Linux with Emacs 27.1. If
    > you run xdg-open from an eshell, the problem should be the same.
    > It should also go away if you replace "xdg-open" with "setsid
    > xdg-open".

    > I ended up doing

    >   (push '("\\.pdf\\'" . "evince %s") org-file-apps)

    > to solve it for my case. It would have been preferable to change
    > how the default app is being resolved from "xdg-open" to "setsid
    > xdg-open", but I haven't been able to.

I firgot to add that I found it necessary to get rid of the default
org-file-apps for pdf files, which I think is (was?) docview. So I use: 

#+begin_src elsp
(add-hook 'org-mode-hook
           (lambda () 
            (delete '("\\.pdf\\'" . default) org-file-apps)
            (add-to-list 'org-file-apps '("\\.pdf\\'" . "xpdf %s"))))
#+end_src 

I don't like evince, sorry.

Best wishes,

Colin.



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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-15 11:28       ` Frédéric Santos
@ 2020-09-15 13:43         ` Thomas Stenhaug
  2020-09-15 16:45           ` Frederic Santos
  0 siblings, 1 reply; 8+ messages in thread
From: Thomas Stenhaug @ 2020-09-15 13:43 UTC (permalink / raw)
  To: Frédéric Santos; +Cc: Colin Baxter, emacs-orgmode


Frédéric Santos <frederic.santos@u-bordeaux.fr> writes:

> Le 2020-09-15 à 11:15:48 CEST, Thomas Stenhaug a écrit :
>
>> I recently had the same problem, on Arch Linux with Emacs 27.1. 
>> If you
>> run xdg-open from an eshell, the problem should be the same. 
>> It should
>> also go away if you replace "xdg-open" with "setsid xdg-open".
>>
>> I ended up doing
>>
>>   (push '("\\.pdf\\'" . "evince %s") org-file-apps)
>>
>> to solve it for my case.
>
> Hi Thomas (and others),
>
> Thanks for your answer! This does work... in some way. In the 
> sense that
> it manages to open evince to read the PDF outside of Emacs; but 
> this
> does not restore (of course) the "normal" behavior of =C-c C-e l 
> o= to
> display the PDF in a dedicated Emacs buffer.
>
> I'm also on Arch/Manjaro, this might play a role... But it's not 
> a big
> deal anyway (and I've actually written a simple workaround in 
> Elisp to
> display and revert the associated PDF in its side window).

Ah, in that case

    (push '("\\.pdf\\''" . emacs))

might be what you're looking for.


Best regards,

Thomas


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

* Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)]
  2020-09-15 13:43         ` Thomas Stenhaug
@ 2020-09-15 16:45           ` Frederic Santos
  0 siblings, 0 replies; 8+ messages in thread
From: Frederic Santos @ 2020-09-15 16:45 UTC (permalink / raw)
  To: Thomas Stenhaug; +Cc: Colin Baxter, emacs-orgmode

----- Mail original -----
> De: "Thomas Stenhaug" <thomas.stenhaug@gmail.com>
> À: "Frederic Santos" <frederic.santos@u-bordeaux.fr>
> Cc: "Kyle Meyer" <kyle@kyleam.com>, "Colin Baxter" <m43cap@yandex.com>, "emacs-orgmode" <emacs-orgmode@gnu.org>
> Envoyé: Mardi 15 Septembre 2020 15:43:29
> Objet: Re: Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @
> /home/fsantos/.emacs.d/elpa/org-20200907/)]

> Ah, in that case
> 
>    (push '("\\.pdf\\''" . emacs))
> 
> might be what you're looking for.

Very nice, many thanks Thomas ! ;) This works fine for me.
For reference, I've also posted your solution on StackExchange.

Cheers,
Frédéric


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

end of thread, other threads:[~2020-09-15 16:53 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-09-14  5:08 Bug: =C-c C-e l o= does not open the pdf anymore [9.3.7 (9.3.7-55-gba2405-elpa @ /home/fsantos/.emacs.d/elpa/org-20200907/)] Frederic Santos
2020-09-14  7:06 ` Colin Baxter
2020-09-15  3:27   ` Kyle Meyer
2020-09-15  9:15     ` Thomas Stenhaug
2020-09-15 11:28       ` Frédéric Santos
2020-09-15 13:43         ` Thomas Stenhaug
2020-09-15 16:45           ` Frederic Santos
2020-09-15 12:52       ` Colin Baxter

Code repositories for project(s) associated with this external index

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

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.