emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
@ 2019-11-01  7:52 Uwe Brauer
  2019-11-01  8:49 ` Fraga, Eric
                   ` (2 more replies)
  0 siblings, 3 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01  7:52 UTC (permalink / raw)
  To: emacs-orgmode


[-- Attachment #1.1: Type: text/plain, Size: 207830 bytes --]


Please consider the following latex constructs in a mail

\begin{displaymath}
  \int   f dx =0 
\end{displaymath}

\begin{equation*}
 \sum \alpha_{i}=0
\end{equation*}

which then will be converted to png before sending 

(org-mime-export-options is a variable defined in ‘org-mime.el’.
Its value is (:with-latex dvipng)

As the attached screenshots show, the png contain unwanted equations
numbers (displaymath adn equation* have been used which should not
generate those numbers).

I contacted the org-mime maintainer and he claims the fault is in org
(or the org preview engine)

Regards

Uwe Brauer 


Emacs  : GNU Emacs 27.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2019-08-26
Package: Org mode version 9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)

current state:
==============
(setq
 org-table-export-default-format "my-tbl-to-csv"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-latex-listings t
 org-capture-prepare-finalize-hook '(gnorb-registry-capture gnorb-org-capture-abort-cleanup)
 org-link-shell-confirm-function 'yes-or-no-p
 org-blank-before-new-entry '((heading . auto) (plain-list-item . t))
 org-babel-after-execute-hook '(org-display-inline-images)
 org-tempo-keywords-alist '(("T" . "latex") ("A" . "ascii") ("i" . "index"))
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-latex-to-mathml-jar-file "/home/oub/ALLES/src/MathWeb/mathtoweb.jar"
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-time-stamp-custom-formats '(" %d.%m.%Y " . " %d.%m.%Y %a %H:%M ")
 org-pretty-entities t
 org-enforce-todo-dependencies t
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree) (insert (format "cite:%s\n" (org-entry-get (point) "Custom_ID")))))
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-files '("~/ALLES/tex/Babba/Beihilfe-Debeka/erledigen.org" "~/ALLES/MathRev/ToDo/TODO.org")
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-latex-to-mathml-convert-command "java -jar %j -unicode -force -df %o %I"
 org-reveal-start-hook '(org-decrypt-entry)
 org-modules '(org-bibtex org-docview org-eww org-gnus org-info org-irc org-mhe org-rmail org-w3m org-bookmark)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-gnus-prefer-web-links t
 org-calc-default-modes '(calc-internal-prec 12 calc-float-format (float 4) calc-angle-mode deg calc-prefer-frac nil calc-symbolic-mode nil
                          calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm)) calc-display-working-message t)
 org-format-latex-header "\\documentclass{article}\n\\usepackage[usenames]{color}\n[PACKAGES]\n[DEFAULT-PACKAGES]\n\\pagestyle{empty}             % do not remove\n% The settings below are copied from fullpage.sty\n\\setlength{\\textwidth}{\\paperwidth}\n\\usepackage{amsmath,amssymb}\n\\addtolength{\\textwidth}{-3cm}\n\\setlength{\\oddsidemargin}{1.5cm}\n\\addtolength{\\oddsidemargin}{-2.54cm}\n\\setlength{\\evensidemargin}{\\oddsidemargin}\n\\setlength{\\textheight}{\\paperheight}\n\\addtolength{\\textheight}{-\\headheight}\n\\addtolength{\\textheight}{-\\headsep}\n\\addtolength{\\textheight}{-\\footskip}\n\\addtolength{\\textheight}{-3cm}\n\\setlength{\\topmargin}{1.5cm}\n\\newtheorem{thm}{Theorem}\n\\newtheorem{defn}{Definition}\n\\newtheorem{lem}{Lemma}\n\\newtheorem{cor}{Corollary}\n\\newtheorem{rem}{Remark}\n\\newtheorem{bei}{}\n\\newtheorem{prop}{Preposition}\n\\newcommand{\\setR}{{\\mathord{\\mathbb R}}}\n\\addtolength{\\topmargin}{-2.54cm} "
 org-mode-hook '(org-mode-reftex-setup #[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2]
                 navi-make-org-mode-promotion-headings-list
                 (lambda nil (local-set-key [C-M-up] 'org-table-move-single-cell-up)
                  (local-set-key [C-M-down] 'org-table-move-single-cell-down) (local-set-key [C-M-left] 'org-table-move-single-cell-left)
                  (local-set-key [C-M-right] 'org-table-move-single-cell-right))
                 org-ref-org-menu ob-ipython-auto-configure-kernels turn-on-diff-hl-mode turn-on-auto-fill my-org-keys turn-on-flyspell
                 turn-on-auto-capitalize-mode org-tempo-setup orgtbl-show-header org-auctex-keys-minor-mode
                 #[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-insert-cite-link
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-agenda-finalize-hook '(org-agenda-property-add-properties)
 org-ref-bibliography-entry-format '(("misc" . "%a %t <i>%h</i> (%y) <a href=\"%U\">link</a>")
                                     ("article" .
                                      "%a, %t, <i>%j</i>, <b>%v(%n)</b>, %p (%y). <a href=\"%U\">link</a>. <a href=\"http://dx.doi.org/%D\">doi</a>. <b>%N</b>")
                                     ("book" . "%a, %t, %u (%y).") ("techreport" . "%a, %t, %i, %u (%y).")
                                     ("proceedings" . "%e, %t in %S, %u (%y).") ("inproceedings" . "%a, %t, %p, in %b, edited by %e, %u (%y)"))
 org-ref-show-citation-on-enter nil
 org-startup-with-inline-images t
 org-ref-clean-bibtex-key-function '(lambda (key) (replace-regexp-in-string ":" "" key))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-ref-default-citation-link "citep"
 org-ref-insert-cite-key "C-c c"
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-html-table-default-attributes '(:border "2" :cellspacing "0" :cellpadding "6" :frame "border" :rules "all")
 org-ref-bibliography-notes '("/home/oub/ALLES/HGs/tex/bib/notes.org")
 org-babel-load-languages '((emacs-lisp . t) (R . 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-load-hook '(my-link-keys org-insert-dblock-bindings)
 org-ref-insert-label-function 'org-insert-link
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-highlight-latex-and-related '(latex)
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-ref-formatted-citation-formats '(("text"
                                       ("article" . "${author}, ${title}, ${journal}, ${volume}(${number}), ${pages} (${year}). ${doi}")
                                       ("miscellaneous" . "${author}, ${title}, ${howpublished},  (${year}).")
                                       ("inproceedings" .
                                        "${author}, ${title}, In ${editor}, ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("book" . "${author}, ${title} (${year}), ${address}: ${publisher}.")
                                       ("phdthesis" . "${author}, ${title} (Doctoral dissertation) (${year}). ${school}, ${address}.")
                                       ("inbook" .
                                        "${author}, ${title}, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("incollection" .
                                        "${author}, ${title}, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("proceedings" . "${editor} (Eds.), ${booktitle} (${year}). ${address}: ${publisher}.")
                                       ("unpublished" . "${author}, ${title} (${year}). Unpublished manuscript.")
                                       (nil . "${author}, ${title} (${year})."))
                                      ("org" ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("article" . "${author}, /${title}/, ${journal}, *${volume}(${number})*, ${pages} (${year}). ${doi}")
                                       ("inproceedings" .
                                        "${author}, /${title}/, In ${editor}, ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("book" . "${author}, /${title}/ (${year}), ${address}: ${publisher}.")
                                       ("phdthesis" . "${author}, /${title}/ (Doctoral dissertation) (${year}). ${school}, ${address}.")
                                       ("inbook" .
                                        "${author}, /${title}/, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("incollection" .
                                        "${author}, /${title}/, In ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
                                       ("proceedings" . "${editor} (Eds.), _${booktitle}_ (${year}). ${address}: ${publisher}.")
                                       ("unpublished" . "${author}, /${title}/ (${year}). Unpublished manuscript.")
                                       (nil . "${author}, /${title}/ (${year})."))
                                      )
 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-matlab" . matlab) ("jupyter-python" . python) ("ipython" . 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-annotate-file-add-search t
 org-occur-hook '(org-first-headline-recenter)
 outline-minor-mode-hook '(outshine-mode outshine--outline-minor-mode-hook)
 org-protocol-protocol-alist '(("capture-html" :protocol "capture-html" :function org-protocol-capture-html--with-pandoc :kill-client t))
 org-export-before-processing-hook '(f-ox-filter-table-column-del)
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-ref-insert-link-function 'org-ref-insert-cite-link
 org-ref-insert-ref-function 'org-insert-link
 org-structure-template-alist '(("a" . "export ascii") ("C" . "comment") ("e" . "example") ("E" . "export") ("h" . "export html")
                                ("m" . "src matlab :tangle mieuler.m :exports code  :padline no :eval never-export")
                                ("M" . "src matlab :exports code :eval never-export ") ("Q" . "quote") ("S" . "src")
                                ("s" . "src matlab :results output raw :exports code  :eval never-export")
                                ("q" . "src matlab :results output latex :exports code  :eval never-export :wrap latex") ("L" . "solution")
                                ("l" . "src latex :results latex replace :exports results :eval t")
                                ("w" .
                                 "src elisp :noexport\n(setq  org-odt-convert-process \"LibreOffice\")\n(setq org-odt-convert-processes\n'((\"LibreOffice\" \"/opt/libreoffice6.0/program/soffice --headless --convert-to %f%x --outdir %d %i\")\n (\"unoconv\" \"/usr/bin/unoconv -f %f -o %d %i\")))\n(setq org-odt-preferred-output-format \"docx\")\n")
                                ("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)" "WAIT(w@/!)" "|" "DONE(d@)" "CANCELED(c@)"))
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-ref-default-bibliography '("/home/oub/ALLES/HGs/tex/bib/bibgraf.bib")
 org-capture-mode-hook '(gnorb-org-capture-function)
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-html-with-latex 'mathjax
 org-latex-prefer-user-labels t
 org-odt-convert-process "gnumeric"
 org-babel-tangle-lang-exts '(("D" . "d") ("C++" . "cpp") ("perl" . "pl") ("ruby" . "rb") ("python" . "py") ("latex" . "tex")
                              ("emacs-lisp" . "el") ("elisp" . "el"))
 org-return-follows-link t
 org-format-latex-options '(:foreground default :background default :scale 1.5 :html-foreground "Black" :html-background "Transparent"
                            :html-scale 1 :matchers ("begin" "$1" "$" "$$" "\\(" "\\["))
 org-ref-pdf-to-bibtex-function 'copy-file
 org-export-with-author nil
 org-latex-listings-langs '((emacs-lisp "Lisp") (lisp "Lisp") (clojure "Lisp") (c "C") (cc "C++") (fortran "fortran") (perl "Perl")
                            (cperl "Perl") (python "Python") (ruby "Ruby") (html "HTML") (xml "XML") (tex "TeX") (latex "[LaTeX]TeX")
                            (shell-script "bash") (gnuplot "Gnuplot") (ocaml "Caml") (caml "Caml") (sql "SQL") (matlab "Matlab")
                            (sqlite "sql") (makefile "make"))
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("message" :follow org-mac-message-open) ("x-devonthink-item" :follow org-devonthink-item-open)
                       ("mac-evernote" :follow org-mac-evernote-note-open) ("mac-outlook" :follow org-mac-outlook-message-open)
                       ("acrobat" :follow org-mac-acrobat-open) ("skim" :follow org-mac-skim-open)
                       ("addressbook" :follow org-mac-addressbook-item-open) ("x-together-item" :follow org-mac-together-item-open)
                       ("w3m" :store org-w3m-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)
                       ("info" :follow org-info-open :export org-info-export :store org-info-store-link)
                       ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("eww" :follow eww :store org-eww-store-link)
                       ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link) ("tel")
                       ("citeauthorfull" :follow (lambda (_) (funcall org-ref-cite-onclick-function nil)) :export
                        org-ref-format-citeauthorfull :complete org-citeauthorfull-complete-link :help-echo
                        (lambda (window object position)
                         (when org-ref-show-citation-on-enter
                          (save-excursion (goto-char position)
                           (let ((s (org-ref-format-entry (org-ref-get-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))
                        )
                       ("printindex" :follow org-ref-index :export
                        #[(path desc format) "\b\301=\205	\300\302!\207" [format latex "\\printindex"] 2])
                       ("index" :follow #[(path) "\301\b!\207" [path occur] 2] :export
                        #[(path desc format) "\b\302=\205\n\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 (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))
                        :store org-ref-bibtex-store-link)
                       ("Cref" :follow org-ref-ref-follow :export org-ref-Cref-export :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("cref" :follow org-ref-ref-follow :export org-ref-cref-export :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("autoref" :follow org-ref-ref-follow :export org-ref-autoref-export :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("eqref" :follow org-ref-ref-follow :export org-ref-eqref-export :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("nameref" :follow org-ref-ref-follow :export org-ref-export-nameref :complete org-ref-complete-link :face
                        org-ref-ref-face-fn :help-echo org-ref-ref-help-echo)
                       ("pageref" :follow org-ref-ref-follow :export
                        #[(path desc format) "\b\302\267\202\0\300\303	\"\207\300\304	\"\207\305\207"
                          [format path #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 latex 11))
                           "(<pageref>%s</pageref>)" "\\pageref{%s}" nil]
                          3]
                        :face org-ref-ref-face-fn :complete org-pageref-complete-link :help-echo org-ref-ref-help-echo)
                       ("ref" :follow org-ref-ref-follow :export org-ref-ref-export :complete org-ref-complete-link :face org-ref-ref-face-fn
                        :help-echo org-ref-ref-help-echo)
                       ("label" :follow
                        #[(label) "\302\b!\303\304\305	\211\306U\204\0	\307V\203\0\310\202\0\311#\302\b!\")\207"
                          [label count org-ref-count-labels message format "%s occurence%s" 0 1 "s" ""] 6
                          "On clicking count the number of label tags used in the buffer.\nA number greater than one means multiple labels!"]
                        :export
                        #[(keyword desc format) "\b\302\267\202\0\300\303	\"\207\300\304	\"\207\300\305	\"\207\306\207"
                          [format keyword #s
                           (hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 6 md 11 latex 16))
                           "<div id=\"%s\"></div>" "<a name=\"%s\"></a>" "\\label{%s}" nil]
                          3]
                        :store org-label-store-link :face org-ref-label-face-fn :help-echo
                        #[(window object position) "\212\bb\210\303 \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\b!\205	\302\b!\207" [temp-buffer buffer-name kill-buffer] 2] fill-paragraph buffer-string]
                          2]
                        )
                       ("list-of-tables" :follow org-ref-list-of-tables :export
                        #[(keyword desc format) "\b\301=\205	\300\302!\207" [format latex "\\listoftables"] 2])
                       ("list-of-figures" :follow org-ref-list-of-figures :export
                        #[(keyword desc format) "\b\301=\205	\300\302!\207" [format latex "\\listoffigures"] 2])
                       ("addbibresource" :follow org-ref-follow-addbibresource :export
                        #[(keyword desc format) "\b\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) "\b\302=\204\f\b\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) "\b\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) "\212\bb\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\b!\205	\302\b!\207" [temp-buffer buffer-name kill-buffer] 2] fill-paragraph buffer-string]
                          2]
                        :face org-ref-bibliography-face-fn)
                       ("Acp" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301=\203\0\302\303\300A#\207\302\304\226\"\207" [("Acp" . "Glspl") latex 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 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 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 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 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 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 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\301\302\x04#\207\301\303\"\207" [latex 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\302\303\300#\207\302\304\"\207" ["glsdesc" latex 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\302\303\300#\207\302\304\"\207" ["glssymbol" latex 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\302\303\300#\207\302\304\"\207" ["Glspl" latex 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\302\303\300#\207\302\304\"\207" ["Gls" latex 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\302\303\300#\207\302\304\"\207" ["glspl" latex 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\302\303\300#\207\302\304\"\207" ["gls" latex format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
                       ("attachment" :follow org-attach-open-link :export org-attach-export-link :complete org-attach-complete-link)
                       ("id" :follow org-id-open)
                       ("researcherid" :follow
                        #[257 "\300\301\302\"!\207" [browse-url format "http://www.researcherid.com/rid/%s"] 5 "\n\n(fn LINK-STRING)"]
                        :export
                        #[771 "\211\300=\205\0\301\302\x04\206\0#\207"
                          [html format "<a href=\"http://www.researcherid.com/rid/%s\">ResearcherID:%s</a>"] 7 "\n\n(fn KEYWORD DESC FORMAT)"]
                        )
                       ("orcid" :follow #[257 "\300\301\302\"!\207" [browse-url format "http://orcid.org/%s"] 5 "\n\n(fn LINK-STRING)"]
                        :export
                        #[771 "\211\300=\205\0\301\302\x04\206\0#\207" [html format "<a href=\"http://orcid.org/%s\">orcid:%s</a>"] 7
                          "\n\n(fn KEYWORD DESC FORMAT)"]
                        )
                       ("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-elisp) ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)
                       ("doi" :follow doi-link-menu :export
                        #[(doi desc format)
                          "\b\304\267\202 \300\305	\n\v\206\0\306\nP$\207\300\307	\n\v\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-latex-format-headline-function 'org-latex-format-headline-default-function
 org-capture-templates '(("m" "Mail options")
                         ("me" "Est+Num" entry (file+headline "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Hojas.org" "Examen")
                          "* %T %^{Title} : %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("mi" "mailimportant" entry (file+headline "~/ALLES/Mail/README.org" "Important Mail")
                          "* TODO %^{Task} %T : %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("ml" "maillavi" entry (file+headline "~/ALLES/HGs/Karp/Pub/Letter.org" "To the Editor")
                          "* %T %^{Title} : %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("mr" "MailMathRev" entry (file+headline "~/ALLES/MathRev/ToDo/TODO.org" "To the Editor")
                          "* TODO %T  %^{Task} : %:subject %^G\nSCHEDULED: %t\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i" :kill-buffer t)
                         ("r" "Reply" entry (file+headline "~/Mail/TODO-email.org" "Emails") "** %T REPLY %a %?" :gnus-attachments t)
                         ("l" "LaTeX(headline) Generic README.org" entry
                          (file+headline (lambda nil (expand-file-name (read-file-name "Name of file (curr dir;headline-format format)!: ")))
                           "Overview")
                          "* TODO %?, %^g %^{prompt} Link: %A\n\n %i")
                         ("c" "Contacts" entry (file "~/ALLES/contacts.org")
                          "* %(org-contacts-template-name)\n:PROPERTIES:\n:EMAIL: %(org-contacts-template-email)\n:PHONE:\n:ALIAS:\n:NICKNAME:\n:IGNORE:\n:ICON:\n:NOTE:\n:ADDRESS:\n:BIRTHDAY:\n:END:")
                         ("j" "Journal Entry" entry (file+olp+datetree "~/ALLES/journal.org") "* %?" :empty-lines 1)
                         ("X" "ChangeLog README" entry (file+olp+datetree "./README.org") "* %? \n   %U \n %f" :prepend t)
                         ("G" "Generic README.org file (table format)" table-line
                          (file+headline (lambda nil (expand-file-name (read-file-name "Name of file (curr dir;table format)!: "))) "Overview")
                          "|%f| %U|%A|" :prepend t)
                         ("w" "Web site" entry (file "/home/oub/ALLES/download.org") "* %a :website:\n\n%U %?\n\n%:initial"))
 org-agenda-file-regexp "\\`[^.].*\\.org\\|.todo\\'"
 org-link-elisp-confirm-function 'yes-or-no-p
 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-attach-id-to-path-function 'org-attach-id-folder-format
 outline-mode-hook '(hide-body)
 org-latex-packages-alist '(("numbered,framed" "matlab-prettifier" t))
 org-image-actual-width 400
 org-display-custom-times t
 org-export-with-toc nil
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-latex-classes '(("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}"))
                     ("exam" "\\documentclass[12pt, addpoints, answers]{exam}"
                      ("\\begin{questions}%%%s" "\\end{questions}" "\\begin{questions}%%%s" "\\end{questions}") ("\\titledquestion{%s}" . "")
                      ("\\begin{parts}%%%s" "\\end{parts}" "\\begin{parts}%%%s" "\\end{parts}") ("\\part[%s] " . "")
                      ("\\begin{subparts}%%%s" "\\end{subparts}" "\\begin{subparts}%%%s" "\\end{subparts}") ("\\subpart[%s] " . "")
                      ("\\begin{solution}[%s]" "\\end{solution}" "\\begin{solution}[%s]" "\\end{solution}")
                      ("\\begin{solutionorbox}[%s]" "\\end{solutionorbox}" "\\begin{solutionorbox}[%s]" "\\end{solutionorbox}"))
                     )
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-entities-user '(("implies" "\\Rightarrow" t "&rArr;" "=>" "=>" "⇒") ("iff" "\\iff" t "&hArr;" "<=>" "<=>" "⇔"))
 org-ref-cite-onclick-function 'org-ref-cite-onclick-minibuffer-menu
 org-link-from-user-regexp "\\<oub@Utnapischtim\\>\\|\\<Uwe Brauer\\>"
 org-ref-notes-function 'org-ref-notes-function-one-file
 org-latex-listings-options '(("style" "Matlab-editor") ("basicstyle" "\\mlttfamily") ("escapechar" "\"") ("mlshowsectionrules" "true")
                              ("mathescape" "true") ("morecomment" "[s]{\\%\\{}{\\%\\}}"))
 org-ref-formatted-citation-backend "org"
 org-odt-convert-processes '(("gnumeric" "/usr/bin/ssconvert %i %o"))
 org-list-allow-alphabetical t
 )

[-- Attachment #1.2: preview-numbers.png --]
[-- Type: image/png, Size: 10841 bytes --]

[-- Attachment #2: S/MIME Cryptographic Signature --]
[-- Type: application/pkcs7-signature, Size: 5088 bytes --]

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01  7:52 Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
@ 2019-11-01  8:49 ` Fraga, Eric
  2019-11-01 13:55   ` Uwe Brauer
  2019-11-01 13:01 ` John Kitchin
  2020-02-11  8:20 ` Bastien
  2 siblings, 1 reply; 22+ messages in thread
From: Fraga, Eric @ 2019-11-01  8:49 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: emacs-orgmode@gnu.org

On Friday,  1 Nov 2019 at 08:52, Uwe Brauer wrote:
> As the attached screenshots show, the png contain unwanted equations
> numbers (displaymath adn equation* have been used which should not
> generate those numbers).

Uwe,

when I invoke org-mime-htmlize with your equations, as written, I do not get any equation numbers.

-- 
Eric S Fraga via Emacs 27.0.50, Org release_9.2.6-544-gd215c3

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01  7:52 Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
  2019-11-01  8:49 ` Fraga, Eric
@ 2019-11-01 13:01 ` John Kitchin
  2019-11-01 13:59   ` Uwe Brauer
  2020-02-11  8:20 ` Bastien
  2 siblings, 1 reply; 22+ messages in thread
From: John Kitchin @ 2019-11-01 13:01 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: org-mode-email

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

I also see this. I wonder if you use any scimax functions?

Do you see any advice on org-create-formula-image:

C-h f org-create-formula-image

I have some advice on that function for putting numbers on fragments in
org-buffers. I don't know if that could cause the issue you are seeing. The
numbers look kind of odd in the org-mime results.

John

-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu



On Fri, Nov 1, 2019 at 3:53 AM Uwe Brauer <oub@mat.ucm.es> wrote:

>
> Please consider the following latex constructs in a mail
>
> \begin{displaymath}
>   \int   f dx =0
> \end{displaymath}
>
> \begin{equation*}
>  \sum \alpha_{i}=0
> \end{equation*}
>
> which then will be converted to png before sending
>
> (org-mime-export-options is a variable defined in ‘org-mime.el’.
> Its value is (:with-latex dvipng)
>
> As the attached screenshots show, the png contain unwanted equations
> numbers (displaymath adn equation* have been used which should not
> generate those numbers).
>
> I contacted the org-mime maintainer and he claims the fault is in org
> (or the org preview engine)
>
> Regards
>
> Uwe Brauer
>
>
> Emacs  : GNU Emacs 27.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, Xaw3d
> scroll bars)
>  of 2019-08-26
> Package: Org mode version 9.2.5 (release_9.2.5-521-gdea0c7 @
> /home/oub/emacs/site-lisp/packages/org/)
>
> current state:
> ==============
> (setq
>  org-table-export-default-format "my-tbl-to-csv"
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
>  org-latex-listings t
>  org-capture-prepare-finalize-hook '(gnorb-registry-capture
> gnorb-org-capture-abort-cleanup)
>  org-link-shell-confirm-function 'yes-or-no-p
>  org-blank-before-new-entry '((heading . auto) (plain-list-item . t))
>  org-babel-after-execute-hook '(org-display-inline-images)
>  org-tempo-keywords-alist '(("T" . "latex") ("A" . "ascii") ("i" .
> "index"))
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>  org-latex-to-mathml-jar-file "/home/oub/ALLES/src/MathWeb/mathtoweb.jar"
>  org-html-format-inlinetask-function
> 'org-html-format-inlinetask-default-function
>  org-time-stamp-custom-formats '(" %d.%m.%Y " . " %d.%m.%Y %a %H:%M ")
>  org-pretty-entities t
>  org-enforce-todo-dependencies t
>  org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree) (insert
> (format "cite:%s\n" (org-entry-get (point) "Custom_ID")))))
>  org-odt-format-headline-function 'org-odt-format-headline-default-function
>  org-agenda-files '("~/ALLES/tex/Babba/Beihilfe-Debeka/erledigen.org"
> "~/ALLES/MathRev/ToDo/TODO.org")
>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>  org-latex-to-mathml-convert-command "java -jar %j -unicode -force -df %o
> %I"
>  org-reveal-start-hook '(org-decrypt-entry)
>  org-modules '(org-bibtex org-docview org-eww org-gnus org-info org-irc
> org-mhe org-rmail org-w3m org-bookmark)
>  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
>  org-gnus-prefer-web-links t
>  org-calc-default-modes '(calc-internal-prec 12 calc-float-format (float
> 4) calc-angle-mode deg calc-prefer-frac nil calc-symbolic-mode nil
>                           calc-date-format (YYYY "-" MM "-" DD " " Www ("
> " hh ":" mm)) calc-display-working-message t)
>  org-format-latex-header
> "\\documentclass{article}\n\\usepackage[usenames]{color}\n[PACKAGES]\n[DEFAULT-PACKAGES]\n\\pagestyle{empty}
>            % do not remove\n% The settings below are copied from
> fullpage.sty\n\\setlength{\\textwidth}{\\paperwidth}\n\\usepackage{amsmath,amssymb}\n\\addtolength{\\textwidth}{-3cm}\n\\setlength{\\oddsidemargin}{1.5cm}\n\\addtolength{\\oddsidemargin}{-2.54cm}\n\\setlength{\\evensidemargin}{\\oddsidemargin}\n\\setlength{\\textheight}{\\paperheight}\n\\addtolength{\\textheight}{-\\headheight}\n\\addtolength{\\textheight}{-\\headsep}\n\\addtolength{\\textheight}{-\\footskip}\n\\addtolength{\\textheight}{-3cm}\n\\setlength{\\topmargin}{1.5cm}\n\\newtheorem{thm}{Theorem}\n\\newtheorem{defn}{Definition}\n\\newtheorem{lem}{Lemma}\n\\newtheorem{cor}{Corollary}\n\\newtheorem{rem}{Remark}\n\\newtheorem{bei}{}\n\\newtheorem{prop}{Preposition}\n\\newcommand{\\setR}{{\\mathord{\\mathbb
> R}}}\n\\addtolength{\\topmargin}{-2.54cm} "
>  org-mode-hook '(org-mode-reftex-setup #[0 "\301\211\207"
> [imenu-create-index-function org-imenu-get-tree] 2]
>                  navi-make-org-mode-promotion-headings-list
>                  (lambda nil (local-set-key [C-M-up]
> 'org-table-move-single-cell-up)
>                   (local-set-key [C-M-down]
> 'org-table-move-single-cell-down) (local-set-key [C-M-left]
> 'org-table-move-single-cell-left)
>                   (local-set-key [C-M-right]
> 'org-table-move-single-cell-right))
>                  org-ref-org-menu ob-ipython-auto-configure-kernels
> turn-on-diff-hl-mode turn-on-auto-fill my-org-keys turn-on-flyspell
>                  turn-on-auto-capitalize-mode org-tempo-setup
> orgtbl-show-header org-auctex-keys-minor-mode
>                  #[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-insert-cite-link
>  org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
>  org-archive-hook '(org-attach-archive-delete-maybe)
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-agenda-finalize-hook '(org-agenda-property-add-properties)
>  org-ref-bibliography-entry-format '(("misc" . "%a %t <i>%h</i> (%y) <a
> href=\"%U\">link</a>")
>                                      ("article" .
>                                       "%a, %t, <i>%j</i>, <b>%v(%n)</b>,
> %p (%y). <a href=\"%U\">link</a>. <a href=\"http://dx.doi.org/%D\">doi</a>.
> <b>%N</b>")
>                                      ("book" . "%a, %t, %u (%y).")
> ("techreport" . "%a, %t, %i, %u (%y).")
>                                      ("proceedings" . "%e, %t in %S, %u
> (%y).") ("inproceedings" . "%a, %t, %p, in %b, edited by %e, %u (%y)"))
>  org-ref-show-citation-on-enter nil
>  org-startup-with-inline-images t
>  org-ref-clean-bibtex-key-function '(lambda (key)
> (replace-regexp-in-string ":" "" key))
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3
> "\n\n(fn ENTRY)"]
>  org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
>  org-ref-default-citation-link "citep"
>  org-ref-insert-cite-key "C-c c"
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
>  org-html-table-default-attributes '(:border "2" :cellspacing "0"
> :cellpadding "6" :frame "border" :rules "all")
>  org-ref-bibliography-notes '("/home/oub/ALLES/HGs/tex/bib/notes.org")
>  org-babel-load-languages '((emacs-lisp . t) (R . 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-load-hook '(my-link-keys org-insert-dblock-bindings)
>  org-ref-insert-label-function 'org-insert-link
>  org-ref-open-pdf-function 'org-ref-open-pdf-at-point
>  org-highlight-latex-and-related '(latex)
>  org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS
> WIDTH)"]
>  org-ref-formatted-citation-formats '(("text"
>                                        ("article" . "${author}, ${title},
> ${journal}, ${volume}(${number}), ${pages} (${year}). ${doi}")
>                                        ("miscellaneous" . "${author},
> ${title}, ${howpublished},  (${year}).")
>                                        ("inproceedings" .
>                                         "${author}, ${title}, In
> ${editor}, ${booktitle} (pp. ${pages}) (${year}). ${address}:
> ${publisher}.")
>                                        ("book" . "${author}, ${title}
> (${year}), ${address}: ${publisher}.")
>                                        ("phdthesis" . "${author}, ${title}
> (Doctoral dissertation) (${year}). ${school}, ${address}.")
>                                        ("inbook" .
>                                         "${author}, ${title}, In ${editor}
> (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
>                                        ("incollection" .
>                                         "${author}, ${title}, In ${editor}
> (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}: ${publisher}.")
>                                        ("proceedings" . "${editor} (Eds.),
> ${booktitle} (${year}). ${address}: ${publisher}.")
>                                        ("unpublished" . "${author},
> ${title} (${year}). Unpublished manuscript.")
>                                        (nil . "${author}, ${title}
> (${year})."))
>                                       ("org" ("misc" . "${author},
> /${title}/ *${howpublished}* (${year}).")
>                                        ("article" . "${author},
> /${title}/, ${journal}, *${volume}(${number})*, ${pages} (${year}). ${doi}")
>                                        ("inproceedings" .
>                                         "${author}, /${title}/, In
> ${editor}, ${booktitle} (pp. ${pages}) (${year}). ${address}:
> ${publisher}.")
>                                        ("book" . "${author}, /${title}/
> (${year}), ${address}: ${publisher}.")
>                                        ("phdthesis" . "${author},
> /${title}/ (Doctoral dissertation) (${year}). ${school}, ${address}.")
>                                        ("inbook" .
>                                         "${author}, /${title}/, In
> ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}:
> ${publisher}.")
>                                        ("incollection" .
>                                         "${author}, /${title}/, In
> ${editor} (Eds.), ${booktitle} (pp. ${pages}) (${year}). ${address}:
> ${publisher}.")
>                                        ("proceedings" . "${editor} (Eds.),
> _${booktitle}_ (${year}). ${address}: ${publisher}.")
>                                        ("unpublished" . "${author},
> /${title}/ (${year}). Unpublished manuscript.")
>                                        (nil . "${author}, /${title}/
> (${year})."))
>                                       )
>  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-matlab" . matlab) ("jupyter-python" .
> python) ("ipython" . 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-annotate-file-add-search t
>  org-occur-hook '(org-first-headline-recenter)
>  outline-minor-mode-hook '(outshine-mode outshine--outline-minor-mode-hook)
>  org-protocol-protocol-alist '(("capture-html" :protocol "capture-html"
> :function org-protocol-capture-html--with-pandoc :kill-client t))
>  org-export-before-processing-hook '(f-ox-filter-table-column-del)
>  org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
>  org-ref-insert-link-function 'org-ref-insert-cite-link
>  org-ref-insert-ref-function 'org-insert-link
>  org-structure-template-alist '(("a" . "export ascii") ("C" . "comment")
> ("e" . "example") ("E" . "export") ("h" . "export html")
>                                 ("m" . "src matlab :tangle mieuler.m
> :exports code  :padline no :eval never-export")
>                                 ("M" . "src matlab :exports code :eval
> never-export ") ("Q" . "quote") ("S" . "src")
>                                 ("s" . "src matlab :results output raw
> :exports code  :eval never-export")
>                                 ("q" . "src matlab :results output latex
> :exports code  :eval never-export :wrap latex") ("L" . "solution")
>                                 ("l" . "src latex :results latex replace
> :exports results :eval t")
>                                 ("w" .
>                                  "src elisp :noexport\n(setq
> org-odt-convert-process \"LibreOffice\")\n(setq
> org-odt-convert-processes\n'((\"LibreOffice\"
> \"/opt/libreoffice6.0/program/soffice --headless --convert-to %f%x --outdir
> %d %i\")\n (\"unoconv\" \"/usr/bin/unoconv -f %f -o %d %i\")))\n(setq
> org-odt-preferred-output-format \"docx\")\n")
>                                 ("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)" "WAIT(w@/!)" "|" "DONE(d@)"
> "CANCELED(c@)"))
>  org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate)
>  org-ref-default-bibliography '("/home/oub/ALLES/HGs/tex/bib/bibgraf.bib")
>  org-capture-mode-hook '(gnorb-org-capture-function)
>  org-odt-format-inlinetask-function
> 'org-odt-format-inlinetask-default-function
>  org-html-with-latex 'mathjax
>  org-latex-prefer-user-labels t
>  org-odt-convert-process "gnumeric"
>  org-babel-tangle-lang-exts '(("D" . "d") ("C++" . "cpp") ("perl" . "pl")
> ("ruby" . "rb") ("python" . "py") ("latex" . "tex")
>                               ("emacs-lisp" . "el") ("elisp" . "el"))
>  org-return-follows-link t
>  org-format-latex-options '(:foreground default :background default :scale
> 1.5 :html-foreground "Black" :html-background "Transparent"
>                             :html-scale 1 :matchers ("begin" "$1" "$" "$$"
> "\\(" "\\["))
>  org-ref-pdf-to-bibtex-function 'copy-file
>  org-export-with-author nil
>  org-latex-listings-langs '((emacs-lisp "Lisp") (lisp "Lisp") (clojure
> "Lisp") (c "C") (cc "C++") (fortran "fortran") (perl "Perl")
>                             (cperl "Perl") (python "Python") (ruby "Ruby")
> (html "HTML") (xml "XML") (tex "TeX") (latex "[LaTeX]TeX")
>                             (shell-script "bash") (gnuplot "Gnuplot")
> (ocaml "Caml") (caml "Caml") (sql "SQL") (matlab "Matlab")
>                             (sqlite "sql") (makefile "make"))
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-link-parameters '(("message" :follow org-mac-message-open)
> ("x-devonthink-item" :follow org-devonthink-item-open)
>                        ("mac-evernote" :follow org-mac-evernote-note-open)
> ("mac-outlook" :follow org-mac-outlook-message-open)
>                        ("acrobat" :follow org-mac-acrobat-open) ("skim"
> :follow org-mac-skim-open)
>                        ("addressbook" :follow
> org-mac-addressbook-item-open) ("x-together-item" :follow
> org-mac-together-item-open)
>                        ("w3m" :store org-w3m-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)
>                        ("info" :follow org-info-open :export
> org-info-export :store org-info-store-link)
>                        ("gnus" :follow org-gnus-open :store
> org-gnus-store-link) ("eww" :follow eww :store org-eww-store-link)
>                        ("docview" :follow org-docview-open :export
> org-docview-export :store org-docview-store-link) ("tel")
>                        ("citeauthorfull" :follow (lambda (_) (funcall
> org-ref-cite-onclick-function nil)) :export
>                         org-ref-format-citeauthorfull :complete
> org-citeauthorfull-complete-link :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let ((s (org-ref-format-entry
> (org-ref-get-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))
>                         )
>                        ("printindex" :follow org-ref-index :export
>                         #[(path desc format) " \301=\205
> \300\302!\207" [format latex "\\printindex"] 2])
>                        ("index" :follow #[(path) "\301 !\207" [path occur]
> 2] :export
>                         #[(path desc format) " \302=\205\n\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 (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))
>                         :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 \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
>  \307V\203 \310\202 \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 \300\303
> \"\207\300\304  \"\207\300\305  \"\207\306\207"
>                           [format keyword #s
>                            (hash-table size 3 test eq rehash-size 1.5
> rehash-threshold 0.8125 purecopy t data (html 6 md 11 latex 16))
>                            "<div id=\"%s\"></div>" "<a name=\"%s\"></a>"
> "\\label{%s}" nil]
>                           3]
>                         :store org-label-store-link :face
> org-ref-label-face-fn :help-echo
>                         #[(window object position) "\212 b\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    \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
>  \300\302!\207" [format latex "\\listoftables"] 2])
>                        ("list-of-figures" :follow org-ref-list-of-figures
> :export
>                         #[(keyword desc format) " \301=\205
>  \300\302!\207" [format latex "\\listoffigures"] 2])
>                        ("addbibresource" :follow
> org-ref-follow-addbibresource :export
>                         #[(keyword desc format) " \302\267\202
> \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 \303=\203
> \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 \303
> \207\304 \207       \207\305\207"
>                           [format org-ref-printbibliography-cmd #s
>                            (hash-table size 3 test eq rehash-size 1.5
> rehash-threshold 0.8125 purecopy t data (org 6 html 9 latex 12))
>                            org-ref-get-org-bibliography
> org-ref-get-html-bibliography nil]
>                           2]
>                         )
>                        ("nobibliography" :follow org-ref-open-bibliography
> :export org-ref-nobibliography-format)
>                        ("bibliography" :follow org-ref-open-bibliography
> :export org-ref-bibliography-format :complete
>                         org-bibliography-complete-link :help-echo
>                         #[(window object position) "\212 b\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    \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
> \302\303\300A#\207\302\304\226\"\207" [("Acp" . "Glspl") latex 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
> \302\303\300A#\207\302\304\226\"\207" [("acp" . "glspl") latex 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
> \302\303\300A#\207\302\304\226\"\207" [("Ac" . "Gls") latex 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
> \302\303\300A#\207\302\304\226\"\207" [("ac" . "gls") latex 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
> \302\303\300A#\207\302\304\226\"\207"
>                           [("acrfull" . "acrfull") latex 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
> \302\303\300A#\207\302\304\226\"\207"
>                           [("acrlong" . "acrlong") latex 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
> \302\303\300A#\207\302\304\226\"\207"
>                           [("acrshort" . "acrshort") latex 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\301\302
> #\207\301\303\"\207" [latex 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\302\303\300#\207\302\304\"\207" ["glsdesc" latex 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\302\303\300#\207\302\304\"\207" ["glssymbol" latex 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\302\303\300#\207\302\304\"\207" ["Glspl" latex 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\302\303\300#\207\302\304\"\207" ["Gls" latex 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\302\303\300#\207\302\304\"\207" ["glspl" latex 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\302\303\300#\207\302\304\"\207" ["gls" latex format
> "\\%s{%s}" "%s"] 7
>                           "\n\n(fn PATH _ FORMAT)"]
>                         )
>                        ("bibtex" :follow org-bibtex-open :store
> org-bibtex-store-link)
>                        ("attachment" :follow org-attach-open-link :export
> org-attach-export-link :complete org-attach-complete-link)
>                        ("id" :follow org-id-open)
>                        ("researcherid" :follow
>                         #[257 "\300\301\302\"!\207" [browse-url format "
> http://www.researcherid.com/rid/%s"] 5 "\n\n(fn LINK-STRING)"]
>                         :export
>                         #[771 "\211\300=\205 \301\302 \206 #\207"
>                           [html format "<a href=\"
> http://www.researcherid.com/rid/%s\">ResearcherID:%s</a>"] 7 "\n\n(fn
> KEYWORD DESC FORMAT)"]
>                         )
>                        ("orcid" :follow #[257 "\300\301\302\"!\207"
> [browse-url format "http://orcid.org/%s"] 5 "\n\n(fn LINK-STRING)"]
>                         :export
>                         #[771 "\211\300=\205 \301\302 \206 #\207" [html
> format "<a href=\"http://orcid.org/%s\">orcid:%s</a>"] 7
>                           "\n\n(fn KEYWORD DESC FORMAT)"]
>                         )
>                        ("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-elisp) ("file"
> :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)
>                        ("doi" :follow doi-link-menu :export
>                         #[(doi desc format)
>                           " \304\267\202 \300\305       \n \206
> \306\nP$\207\300\307    \n \206 \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-latex-format-headline-function
> 'org-latex-format-headline-default-function
>  org-capture-templates '(("m" "Mail options")
>                          ("me" "Est+Num" entry (file+headline
> "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Hojas.org" "Examen")
>                           "* %T %^{Title} : %:subject %^G\n- From ::
> %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
>                          ("mi" "mailimportant" entry (file+headline
> "~/ALLES/Mail/README.org" "Important Mail")
>                           "* TODO %^{Task} %T : %:subject %^G\n- From ::
> %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
>                          ("ml" "maillavi" entry (file+headline
> "~/ALLES/HGs/Karp/Pub/Letter.org" "To the Editor")
>                           "* %T %^{Title} : %:subject %^G\n- From ::
> %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
>                          ("mr" "MailMathRev" entry (file+headline
> "~/ALLES/MathRev/ToDo/TODO.org" "To the Editor")
>                           "* TODO %T  %^{Task} : %:subject %^G\nSCHEDULED:
> %t\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email ::
> %a\n\n%?\n%i" :kill-buffer t)
>                          ("r" "Reply" entry (file+headline
> "~/Mail/TODO-email.org" "Emails") "** %T REPLY %a %?" :gnus-attachments t)
>                          ("l" "LaTeX(headline) Generic README.org" entry
>                           (file+headline (lambda nil (expand-file-name
> (read-file-name "Name of file (curr dir;headline-format format)!: ")))
>                            "Overview")
>                           "* TODO %?, %^g %^{prompt} Link: %A\n\n %i")
>                          ("c" "Contacts" entry (file "~/ALLES/contacts.org
> ")
>                           "*
> %(org-contacts-template-name)\n:PROPERTIES:\n:EMAIL:
> %(org-contacts-template-email)\n:PHONE:\n:ALIAS:\n:NICKNAME:\n:IGNORE:\n:ICON:\n:NOTE:\n:ADDRESS:\n:BIRTHDAY:\n:END:")
>                          ("j" "Journal Entry" entry (file+olp+datetree
> "~/ALLES/journal.org") "* %?" :empty-lines 1)
>                          ("X" "ChangeLog README" entry (file+olp+datetree
> "./README.org") "* %? \n   %U \n %f" :prepend t)
>                          ("G" "Generic README.org file (table format)"
> table-line
>                           (file+headline (lambda nil (expand-file-name
> (read-file-name "Name of file (curr dir;table format)!: "))) "Overview")
>                           "|%f| %U|%A|" :prepend t)
>                          ("w" "Web site" entry (file "/home/oub/ALLES/
> download.org") "* %a :website:\n\n%U %?\n\n%:initial"))
>  org-agenda-file-regexp "\\`[^.].*\\.org\\|.todo\\'"
>  org-link-elisp-confirm-function 'yes-or-no-p
>  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-attach-id-to-path-function 'org-attach-id-folder-format
>  outline-mode-hook '(hide-body)
>  org-latex-packages-alist '(("numbered,framed" "matlab-prettifier" t))
>  org-image-actual-width 400
>  org-display-custom-times t
>  org-export-with-toc nil
>  org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
>  org-latex-classes '(("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}"))
>                      ("exam" "\\documentclass[12pt, addpoints,
> answers]{exam}"
>                       ("\\begin{questions}%%%s" "\\end{questions}"
> "\\begin{questions}%%%s" "\\end{questions}") ("\\titledquestion{%s}" . "")
>                       ("\\begin{parts}%%%s" "\\end{parts}"
> "\\begin{parts}%%%s" "\\end{parts}") ("\\part[%s] " . "")
>                       ("\\begin{subparts}%%%s" "\\end{subparts}"
> "\\begin{subparts}%%%s" "\\end{subparts}") ("\\subpart[%s] " . "")
>                       ("\\begin{solution}[%s]" "\\end{solution}"
> "\\begin{solution}[%s]" "\\end{solution}")
>                       ("\\begin{solutionorbox}[%s]" "\\end{solutionorbox}"
> "\\begin{solutionorbox}[%s]" "\\end{solutionorbox}"))
>                      )
>  org-html-format-headline-function
> 'org-html-format-headline-default-function
>  org-entities-user '(("implies" "\\Rightarrow" t "&rArr;" "=>" "=>" "⇒")
> ("iff" "\\iff" t "&hArr;" "<=>" "<=>" "⇔"))
>  org-ref-cite-onclick-function 'org-ref-cite-onclick-minibuffer-menu
>  org-link-from-user-regexp "\\<oub@Utnapischtim\\>\\|\\<Uwe Brauer\\>"
>  org-ref-notes-function 'org-ref-notes-function-one-file
>  org-latex-listings-options '(("style" "Matlab-editor") ("basicstyle"
> "\\mlttfamily") ("escapechar" "\"") ("mlshowsectionrules" "true")
>                               ("mathescape" "true") ("morecomment"
> "[s]{\\%\\{}{\\%\\}}"))
>  org-ref-formatted-citation-backend "org"
>  org-odt-convert-processes '(("gnumeric" "/usr/bin/ssconvert %i %o"))
>  org-list-allow-alphabetical t
>  )
>

[-- Attachment #2: Type: text/html, Size: 258807 bytes --]

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01  8:49 ` Fraga, Eric
@ 2019-11-01 13:55   ` Uwe Brauer
  2019-11-02  6:22     ` Thibault Marin
  0 siblings, 1 reply; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01 13:55 UTC (permalink / raw)
  To: emacs-orgmode

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

>>> "FE" == Fraga, Eric <e.fraga@ucl.ac.uk> writes:

   > On Friday,  1 Nov 2019 at 08:52, Uwe Brauer wrote:
   >> As the attached screenshots show, the png contain unwanted equations
   >> numbers (displaymath adn equation* have been used which should not
   >> generate those numbers).

   > Uwe,

   > when I invoke org-mime-htmlize with your equations, as written, I do not get any equation numbers.

Thanks, so it is my setting. I wounder how can I debug this?

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 13:01 ` John Kitchin
@ 2019-11-01 13:59   ` Uwe Brauer
  2019-11-01 15:12     ` John Kitchin
  0 siblings, 1 reply; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01 13:59 UTC (permalink / raw)
  To: John Kitchin; +Cc: Uwe Brauer, org-mode-email

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

>>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:

   > I also see this. I wonder if you use any scimax functions?

Good I am relived, I thought it was just me

   > Do you see any advice on org-create-formula-image:

   > C-h f org-create-formula-image
no 

,----
| org-create-formula-image is a compiled Lisp function in
| ‘~/ALLES/emacs/site-lisp/packages/org/org.el’.
| 
| (org-create-formula-image STRING TOFILE OPTIONS BUFFER &optional
| PROCESSING-TYPE)
| 
| Create an image from LaTeX source using external processes.
| 
| The LaTeX STRING is saved to a temporary LaTeX file, then
| converted to an image file by process PROCESSING-TYPE defined in
| ‘org-preview-latex-process-alist’.  A nil value defaults to
| ‘org-preview-latex-default-process’.
| 
| The generated image file is eventually moved to TOFILE.
| 
| The OPTIONS argument controls the size, foreground color and
| background color of the generated image.
| 
| When BUFFER non-nil, this function is used for LaTeX previewing.
| Otherwise, it is used to deal with LaTeX snippets showed in
| a HTML file.
`----

But I have this 
,----
| 
| org-mime-htmlize is an autoloaded interactive compiled Lisp function
| in ‘~/ALLES/.emacs.d/elpa/org-mime-20190805.57/org-mime.el’.
| 
| It is bound to <C-f31>, <C-next>.
| 
| (org-mime-htmlize)
| 
| This function has :around advice: ‘ad-Advice-org-mime-htmlize’.
| 
| Export a portion of an email to html using ‘org-mode’.
| If called with an active region only export that region, otherwise entire body.
| 
| 
`----


I wounder what that is about, @Eric, do have also this setting? John?

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 13:59   ` Uwe Brauer
@ 2019-11-01 15:12     ` John Kitchin
  2019-11-01 15:32       ` Uwe Brauer
  2019-11-01 16:07       ` Uwe Brauer
  0 siblings, 2 replies; 22+ messages in thread
From: John Kitchin @ 2019-11-01 15:12 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: org-mode-email

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

I think this is happening here:

#+BEGIN_SRC emacs-lisp
(org-export-string-as "\\begin{displaymath}
  \\int   f dx =0
\\end{displaymath}"
     'html t )
#+END_SRC

#+RESULTS:
:
: <div class="equation-container">
: <span class="equation">
: <img
src="ltximg/latex1pIlij_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png"
alt="latex1pIlij_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" />
: </span>
: <span class="equation-label">
: 1
: </span>
: </div>


#+BEGIN_SRC emacs-lisp
(org-export-string-as "$e^x$"
     'html t )
#+END_SRC

#+RESULTS:
: <p>
: <img
src="ltximg/latex4ckMGO_c7e2801d6583d97def1ae1189f6c1ecf1db0d41b.png"
alt="latex4ckMGO_c7e2801d6583d97def1ae1189f6c1ecf1db0d41b.png" /></p>

John

-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu



On Fri, Nov 1, 2019 at 9:59 AM Uwe Brauer <oub@mat.ucm.es> wrote:

> >>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:
>
>    > I also see this. I wonder if you use any scimax functions?
>
> Good I am relived, I thought it was just me
>
>    > Do you see any advice on org-create-formula-image:
>
>    > C-h f org-create-formula-image
> no
>
> ,----
> | org-create-formula-image is a compiled Lisp function in
> | ‘~/ALLES/emacs/site-lisp/packages/org/org.el’.
> |
> | (org-create-formula-image STRING TOFILE OPTIONS BUFFER &optional
> | PROCESSING-TYPE)
> |
> | Create an image from LaTeX source using external processes.
> |
> | The LaTeX STRING is saved to a temporary LaTeX file, then
> | converted to an image file by process PROCESSING-TYPE defined in
> | ‘org-preview-latex-process-alist’.  A nil value defaults to
> | ‘org-preview-latex-default-process’.
> |
> | The generated image file is eventually moved to TOFILE.
> |
> | The OPTIONS argument controls the size, foreground color and
> | background color of the generated image.
> |
> | When BUFFER non-nil, this function is used for LaTeX previewing.
> | Otherwise, it is used to deal with LaTeX snippets showed in
> | a HTML file.
> `----
>
> But I have this
> ,----
> |
> | org-mime-htmlize is an autoloaded interactive compiled Lisp function
> | in ‘~/ALLES/.emacs.d/elpa/org-mime-20190805.57/org-mime.el’.
> |
> | It is bound to <C-f31>, <C-next>.
> |
> | (org-mime-htmlize)
> |
> | This function has :around advice: ‘ad-Advice-org-mime-htmlize’.
> |
> | Export a portion of an email to html using ‘org-mode’.
> | If called with an active region only export that region, otherwise
> entire body.
> |
> |
> `----
>
>
> I wounder what that is about, @Eric, do have also this setting? John?
>

[-- Attachment #2: Type: text/html, Size: 3859 bytes --]

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 15:12     ` John Kitchin
@ 2019-11-01 15:32       ` Uwe Brauer
  2019-11-01 16:07       ` Uwe Brauer
  1 sibling, 0 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01 15:32 UTC (permalink / raw)
  To: John Kitchin; +Cc: org-mode-email


[-- Attachment #1.1: Type: text/plain, Size: 3168 bytes --]

Aha. I started to debug it but you were faster.

@eric can you confirm this?

Sent from my iPhone

> On 1 Nov 2019, at 16:12, John Kitchin <jkitchin@andrew.cmu.edu> wrote:
> 
> 
> I think this is happening here:
> 
> #+BEGIN_SRC emacs-lisp
> (org-export-string-as "\\begin{displaymath}
>   \\int   f dx =0
> \\end{displaymath}"
>      'html t )
> #+END_SRC
> 
> #+RESULTS:
> : 
> : <div class="equation-container">
> : <span class="equation">
> : <img src="ltximg/latex1pIlij_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" alt="latex1pIlij_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" />
> : </span>
> : <span class="equation-label">
> : 1
> : </span>
> : </div>
> 
> 
> #+BEGIN_SRC emacs-lisp
> (org-export-string-as "$e^x$"
>      'html t )
> #+END_SRC
> 
> #+RESULTS:
> : <p>
> : <img src="ltximg/latex4ckMGO_c7e2801d6583d97def1ae1189f6c1ecf1db0d41b.png" alt="latex4ckMGO_c7e2801d6583d97def1ae1189f6c1ecf1db0d41b.png" /></p>
> 
> John
> 
> -----------------------------------
> Professor John Kitchin 
> Doherty Hall A207F
> Department of Chemical Engineering
> Carnegie Mellon University
> Pittsburgh, PA 15213
> 412-268-7803
> @johnkitchin
> http://kitchingroup.cheme.cmu.edu
> 
> 
> 
>> On Fri, Nov 1, 2019 at 9:59 AM Uwe Brauer <oub@mat.ucm.es> wrote:
>> >>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:
>> 
>>    > I also see this. I wonder if you use any scimax functions?
>> 
>> Good I am relived, I thought it was just me
>> 
>>    > Do you see any advice on org-create-formula-image:
>> 
>>    > C-h f org-create-formula-image
>> no 
>> 
>> ,----
>> | org-create-formula-image is a compiled Lisp function in
>> | ‘~/ALLES/emacs/site-lisp/packages/org/org.el’.
>> | 
>> | (org-create-formula-image STRING TOFILE OPTIONS BUFFER &optional
>> | PROCESSING-TYPE)
>> | 
>> | Create an image from LaTeX source using external processes.
>> | 
>> | The LaTeX STRING is saved to a temporary LaTeX file, then
>> | converted to an image file by process PROCESSING-TYPE defined in
>> | ‘org-preview-latex-process-alist’.  A nil value defaults to
>> | ‘org-preview-latex-default-process’.
>> | 
>> | The generated image file is eventually moved to TOFILE.
>> | 
>> | The OPTIONS argument controls the size, foreground color and
>> | background color of the generated image.
>> | 
>> | When BUFFER non-nil, this function is used for LaTeX previewing.
>> | Otherwise, it is used to deal with LaTeX snippets showed in
>> | a HTML file.
>> `----
>> 
>> But I have this 
>> ,----
>> | 
>> | org-mime-htmlize is an autoloaded interactive compiled Lisp function
>> | in ‘~/ALLES/.emacs.d/elpa/org-mime-20190805.57/org-mime.el’.
>> | 
>> | It is bound to <C-f31>, <C-next>.
>> | 
>> | (org-mime-htmlize)
>> | 
>> | This function has :around advice: ‘ad-Advice-org-mime-htmlize’.
>> | 
>> | Export a portion of an email to html using ‘org-mode’.
>> | If called with an active region only export that region, otherwise entire body.
>> | 
>> | 
>> `----
>> 
>> 
>> I wounder what that is about, @Eric, do have also this setting? John?

[-- Attachment #1.2: Type: text/html, Size: 4291 bytes --]

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 15:12     ` John Kitchin
  2019-11-01 15:32       ` Uwe Brauer
@ 2019-11-01 16:07       ` Uwe Brauer
  2019-11-01 16:16         ` [debugger] (was: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]) Uwe Brauer
  2019-11-01 18:33         ` Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] John Kitchin
  1 sibling, 2 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01 16:07 UTC (permalink / raw)
  To: emacs-orgmode

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

>>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:

   > I think this is happening here:
   > #+BEGIN_SRC emacs-lisp
   > (org-export-string-as "\\begin{displaymath}
   >   \\int   f dx =0
   > \\end{displaymath}"
   >      'html t )
   > #+END_SRC

Well now this is very odd, I obtain 


#+BEGIN_SRC emacs-lisp
(org-export-string-as "\\begin{displaymath}
  \\int   f dx =0
\\end{displaymath}"
     'html t )
#+END_SRC

#+RESULTS:
: \begin{displaymath}
:   \int   f dx =0
: \end{displaymath}

But org-mime-htmlsize still inserts

<span class="equation-label">
  1
  </span> 
 

I am now very confused and will try to debug it again.

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

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

* [debugger] (was: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)])
  2019-11-01 16:07       ` Uwe Brauer
@ 2019-11-01 16:16         ` Uwe Brauer
  2019-11-01 18:33         ` Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] John Kitchin
  1 sibling, 0 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-01 16:16 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: smime.p7m --]
[-- Type: application/pkcs7-mime, Size: 8387 bytes --]

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 16:07       ` Uwe Brauer
  2019-11-01 16:16         ` [debugger] (was: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]) Uwe Brauer
@ 2019-11-01 18:33         ` John Kitchin
  2019-11-02  9:18           ` Uwe Brauer
  1 sibling, 1 reply; 22+ messages in thread
From: John Kitchin @ 2019-11-01 18:33 UTC (permalink / raw)
  To: emacs-orgmode

Odd indeed. I have restarted Emacs and saw the same thing. But now I
have a more clear picture. I think what is happening is in
org-html--wrap-latex-environment, there is a caption provided which are
the numbers. This only affects latex environments, and does not affect
$$ (//), etc.

If you have org-html-with-latex set to t or mathjax, you get this behavior:


#+BEGIN_SRC emacs-lisp
(org-export-string-as "\\begin{displaymath}
  \\int   f dx =0
\\end{displaymath}"
		      'html t)
#+END_SRC

#+RESULTS:
: \begin{displaymath}
:   \int   f dx =0
: \end{displaymath}

but, in org-mime this is overridden by setting that to dvipng. That
isn't what causes the numbers to appear though, at least not directly.
Somehow, this triggers a call to org-html--wrap-latex-environment where
the new caption gets inserted.

#+BEGIN_SRC emacs-lisp
(org-export-string-as "\\begin{displaymath}
  \\int   f dx =0
\\end{displaymath}"
		      'html t '(:with-latex dvipng))
#+END_SRC

#+RESULTS:
:
: <div class="equation-container">
: <span class="equation">
: <img src="ltximg/latexS2DUgE_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" alt="latexS2DUgE_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" />
: </span>
: <span class="equation-label">
: 1
: </span>
: </div>





Uwe Brauer <oub@mat.ucm.es> writes:

>>>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:
>
>    > I think this is happening here:
>    > #+BEGIN_SRC emacs-lisp
>    > (org-export-string-as "\\begin{displaymath}
>    >   \\int   f dx =0
>    > \\end{displaymath}"
>    >      'html t )
>    > #+END_SRC
>
> Well now this is very odd, I obtain
>
>
> #+BEGIN_SRC emacs-lisp
> (org-export-string-as "\\begin{displaymath}
>   \\int   f dx =0
> \\end{displaymath}"
>      'html t )
> #+END_SRC
>
> #+RESULTS:
> : \begin{displaymath}
> :   \int   f dx =0
> : \end{displaymath}
>
> But org-mime-htmlsize still inserts
>
> <span class="equation-label">
>   1
>   </span>
>
>
> I am now very confused and will try to debug it again.


--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 13:55   ` Uwe Brauer
@ 2019-11-02  6:22     ` Thibault Marin
  2019-11-02  9:38       ` Uwe Brauer
  0 siblings, 1 reply; 22+ messages in thread
From: Thibault Marin @ 2019-11-02  6:22 UTC (permalink / raw)
  To: emacs-orgmode

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


Hi,

I think I wrote some of that code, I was not trying to support
"unnumbered" environments.  If I understand correctly, this is what you
are trying to get.

The attached patch attempts to solve this.  Currently, `displaymath' and
`*' environments do not get numbers, I am not sure if there are other
environments that should not get numbers; please let me know if you have
others in mind.

If you (and others) could test and/or review the patch, we could
probably get it merged at some point.

Thanks,

thibault

On 2019-11-01T09:55:49-0400, Uwe Brauer wrote:

  >>> "FE" == Fraga, Eric <e.fraga@ucl.ac.uk> writes:

     > On Friday,  1 Nov 2019 at 08:52, Uwe Brauer wrote:
     >> As the attached screenshots show, the png contain unwanted equations
     >> numbers (displaymath adn equation* have been used which should not
     >> generate those numbers).

     > Uwe,

     > when I invoke org-mime-htmlize with your equations, as written, I do not get any equation numbers.

  Thanks, so it is my setting. I wounder how can I debug this?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ox-html-Add-equation-numbers-only-for-numbered-envir.patch --]
[-- Type: text/x-diff, Size: 2836 bytes --]

From d66392545762f0ed890a772e08dad3655ea7e522 Mon Sep 17 00:00:00 2001
From: thibault <thibault.marin@gmx.com>
Date: Sat, 2 Nov 2019 02:12:38 -0400
Subject: [PATCH] ox-html: Add equation numbers only for numbered environments

* lisp/ox-html.el (org-html-latex-environment): Add caption to numbered
environments only
(org-html--latex-environment-numbered-p): Determine whether a latex
environment should be numbered.
---
 lisp/ox-html.el | 36 ++++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 83d0fd2e9..55983ff2f 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2914,19 +2914,35 @@ For instance, change an 'equation' environment to 'equation*'."
 			     latex-frag nil nil 1)
    nil nil 1))

+(defun org-html--latex-environment-numbered-p (latex-frag)
+  "Return t if LATEX-ENV contains a numbered environment.
+
+Environments with a star (*) character and displaymath are not numbered."
+  (not (some 'identity
+	     (mapcar (lambda (el)
+		       (string-match el latex-frag))
+		     '("\\`[ \t]*\\\\begin{[^*}]+?[*]}"
+		       "\\`[ \t]*\\\\begin{displaymath}")))))
+
 (defun org-html-latex-environment (latex-environment _contents info)
   "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
 CONTENTS is nil.  INFO is a plist holding contextual information."
-  (let ((processing-type (plist-get info :with-latex))
-	(latex-frag (org-remove-indentation
-		     (org-element-property :value latex-environment)))
-        (attributes (org-export-read-attribute :attr_html latex-environment))
-        (label (and (org-element-property :name latex-environment)
-                    (org-export-get-reference latex-environment info)))
-        (caption (number-to-string
-                  (org-export-get-ordinal
-                   latex-environment info nil
-                   #'org-html--math-environment-p))))
+  (let* ((processing-type (plist-get info :with-latex))
+	 (latex-frag (org-remove-indentation
+		      (org-element-property :value latex-environment)))
+         (attributes (org-export-read-attribute :attr_html latex-environment))
+         (label (and (org-element-property :name latex-environment)
+                     (org-export-get-reference latex-environment info)))
+	 (caption (when (org-html--latex-environment-numbered-p
+			 latex-frag)
+		    (number-to-string
+		     (org-export-get-ordinal
+		      latex-environment info nil
+		      (lambda (l info)
+			(and (org-html--math-environment-p l)
+			     (org-html--latex-environment-numbered-p
+			      (org-remove-indentation
+			       (org-element-property :value l))))))))))
     (cond
      ((memq processing-type '(t mathjax))
       (org-html-format-latex
--
2.23.0


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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01 18:33         ` Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] John Kitchin
@ 2019-11-02  9:18           ` Uwe Brauer
  0 siblings, 0 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-02  9:18 UTC (permalink / raw)
  To: emacs-orgmode

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

>>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:

   > Odd indeed. I have restarted Emacs and saw the same thing. But now I
   > have a more clear picture. I think what is happening is in
   > org-html--wrap-latex-environment, there is a caption provided which are
   > the numbers. This only affects latex environments, and does not affect
   > $$ (//), etc.

   > #+RESULTS:
   > :
   > : <div class="equation-container">
   > : <span class="equation">
   > : <img src="ltximg/latexS2DUgE_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" alt="latexS2DUgE_8e5abfd22f18b9fd072a0f1273f49cd3a35040d3.png" />
   > : </span>
   > : <span class="equation-label">
   > : 1
   > : </span>
   > : </div>


Thanks for your effort. So the culprit is not org-mime, but the org
export engine.


Did you see the patch Thibault sent in a different email? I am trying
that one out, now.

Uwe 

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-02  6:22     ` Thibault Marin
@ 2019-11-02  9:38       ` Uwe Brauer
  2019-11-02 10:22         ` Fraga, Eric
  2019-12-08 18:08         ` Thibault Marin
  0 siblings, 2 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-02  9:38 UTC (permalink / raw)
  To: emacs-orgmode

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

>>> "TM" == Thibault Marin <thibault.marin@gmx.com> writes:

   > Hi,

   > I think I wrote some of that code, I was not trying to support
   > "unnumbered" environments.  If I understand correctly, this is what you
   > are trying to get.

   > The attached patch attempts to solve this.  Currently, `displaymath' and
   > `*' environments do not get numbers, I am not sure if there are other
   > environments that should not get numbers; please let me know if you have
   > others in mind.


Thanks very much, I pulled the latest master, applied your patch,
compiled and installed, and everything works *now* as expected.

The only environments without numbers which I use regularly are.
 align* and sometimes eqnarray*


but these are all covered
   > If you (and others) could test and/or review the patch, we could
   > probably get it merged at some point.

That would be great, thanks again

@Eric, I wonder why you did not get these numbers without the patch!

Uwe 

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-02  9:38       ` Uwe Brauer
@ 2019-11-02 10:22         ` Fraga, Eric
  2019-11-02 17:13           ` Uwe Brauer
  2019-12-08 18:08         ` Thibault Marin
  1 sibling, 1 reply; 22+ messages in thread
From: Fraga, Eric @ 2019-11-02 10:22 UTC (permalink / raw)
  To: emacs-orgmode@gnu.org

On Saturday,  2 Nov 2019 at 10:38, Uwe Brauer wrote:
> @Eric, I wonder why you did not get these numbers without the patch!

Because I did not properly read your post... <blush>

I thought you were referring to the LaTeX fragments themselves, not the
extra HTML generated that numbered the equations whether they should be
numbered or not.

Sorry about misleading everybody!

-- 
Eric S Fraga via Emacs 27.0.50, Org release_9.2.6-552-g8c5a78

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-02 10:22         ` Fraga, Eric
@ 2019-11-02 17:13           ` Uwe Brauer
  0 siblings, 0 replies; 22+ messages in thread
From: Uwe Brauer @ 2019-11-02 17:13 UTC (permalink / raw)
  To: emacs-orgmode

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

>>> "FE" == Fraga, Eric <e.fraga@ucl.ac.uk> writes:

   > On Saturday,  2 Nov 2019 at 10:38, Uwe Brauer wrote:
   >> @Eric, I wonder why you did not get these numbers without the patch!

   > Because I did not properly read your post... <blush>

   > I thought you were referring to the LaTeX fragments themselves, not the
   > extra HTML generated that numbered the equations whether they should be
   > numbered or not.

   > Sorry about misleading everybody!

Happens to me also, no problem ;-)

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-02  9:38       ` Uwe Brauer
  2019-11-02 10:22         ` Fraga, Eric
@ 2019-12-08 18:08         ` Thibault Marin
  2019-12-08 20:40           ` Nicolas Goaziou
  1 sibling, 1 reply; 22+ messages in thread
From: Thibault Marin @ 2019-12-08 18:08 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Uwe Brauer

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


Dear maintainers,

Following-up on this bug report regarding the handling of unnumbered
equation environments in HTML export, I would like to propose the
attached patch.  The patch simply removes the caption for unnumbered
environments.

Could you please let me know whether this could be considered for a
merge and if there any comments or suggestions to improve it?

Thanks in advance.

thibault


On 2019-11-02T05:38:04-0400, Uwe Brauer wrote:

  >>> "TM" == Thibault Marin <thibault.marin@gmx.com> writes:

     > Hi,

     > I think I wrote some of that code, I was not trying to support
     > "unnumbered" environments.  If I understand correctly, this is what you
     > are trying to get.

     > The attached patch attempts to solve this.  Currently, `displaymath' and
     > `*' environments do not get numbers, I am not sure if there are other
     > environments that should not get numbers; please let me know if you have
     > others in mind.


  Thanks very much, I pulled the latest master, applied your patch,
  compiled and installed, and everything works *now* as expected.

  The only environments without numbers which I use regularly are.
   align* and sometimes eqnarray*


  but these are all covered
     > If you (and others) could test and/or review the patch, we could
     > probably get it merged at some point.

  That would be great, thanks again

  @Eric, I wonder why you did not get these numbers without the patch!

  Uwe


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ox-html-Add-equation-numbers-only-for-numbered-envir.patch --]
[-- Type: text/x-diff, Size: 2836 bytes --]

From 41a7fc5c1580a45610b63b0c357f0e07884ce27b Mon Sep 17 00:00:00 2001
From: thibault <thibault.marin@gmx.com>
Date: Sat, 2 Nov 2019 02:12:38 -0400
Subject: [PATCH] ox-html: Add equation numbers only for numbered environments

* lisp/ox-html.el (org-html-latex-environment): Add caption to numbered
environments only
(org-html--latex-environment-numbered-p): Determine whether a latex
environment should be numbered.
---
 lisp/ox-html.el | 36 ++++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 83d0fd2e9..55983ff2f 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2914,19 +2914,35 @@ For instance, change an 'equation' environment to 'equation*'."
 			     latex-frag nil nil 1)
    nil nil 1))

+(defun org-html--latex-environment-numbered-p (latex-frag)
+  "Return t if LATEX-ENV contains a numbered environment.
+
+Environments with a star (*) character and displaymath are not numbered."
+  (not (some 'identity
+	     (mapcar (lambda (el)
+		       (string-match el latex-frag))
+		     '("\\`[ \t]*\\\\begin{[^*}]+?[*]}"
+		       "\\`[ \t]*\\\\begin{displaymath}")))))
+
 (defun org-html-latex-environment (latex-environment _contents info)
   "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
 CONTENTS is nil.  INFO is a plist holding contextual information."
-  (let ((processing-type (plist-get info :with-latex))
-	(latex-frag (org-remove-indentation
-		     (org-element-property :value latex-environment)))
-        (attributes (org-export-read-attribute :attr_html latex-environment))
-        (label (and (org-element-property :name latex-environment)
-                    (org-export-get-reference latex-environment info)))
-        (caption (number-to-string
-                  (org-export-get-ordinal
-                   latex-environment info nil
-                   #'org-html--math-environment-p))))
+  (let* ((processing-type (plist-get info :with-latex))
+	 (latex-frag (org-remove-indentation
+		      (org-element-property :value latex-environment)))
+         (attributes (org-export-read-attribute :attr_html latex-environment))
+         (label (and (org-element-property :name latex-environment)
+                     (org-export-get-reference latex-environment info)))
+	 (caption (when (org-html--latex-environment-numbered-p
+			 latex-frag)
+		    (number-to-string
+		     (org-export-get-ordinal
+		      latex-environment info nil
+		      (lambda (l info)
+			(and (org-html--math-environment-p l)
+			     (org-html--latex-environment-numbered-p
+			      (org-remove-indentation
+			       (org-element-property :value l))))))))))
     (cond
      ((memq processing-type '(t mathjax))
       (org-html-format-latex
--
2.24.0


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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-12-08 18:08         ` Thibault Marin
@ 2019-12-08 20:40           ` Nicolas Goaziou
  2019-12-08 23:44             ` Thibault Marin
  0 siblings, 1 reply; 22+ messages in thread
From: Nicolas Goaziou @ 2019-12-08 20:40 UTC (permalink / raw)
  To: Thibault Marin; +Cc: Uwe Brauer, emacs-orgmode

Hello,

Thibault Marin <thibault.marin@gmx.com> writes:

> Following-up on this bug report regarding the handling of unnumbered
> equation environments in HTML export, I would like to propose the
> attached patch.  The patch simply removes the caption for unnumbered
> environments.

Thank you.

> Could you please let me know whether this could be considered for a
> merge and if there any comments or suggestions to improve it?

Some comments follow.

> +(defun org-html--latex-environment-numbered-p (latex-frag)
                                                  ^^^^^^^^^^
                                                  latex-env

> +  "Return t if LATEX-ENV contains a numbered environment.

Non-nil if...

> +Environments with a star (*) character and displaymath are not
> numbered."

I think that "starred environments and displaymath" is enough.

However, I suggest to make this function operate on the element itself,
not its value, much like `org-html--math-environment-p'.

> +  (not (some 'identity
> +	     (mapcar (lambda (el)
> +		       (string-match el latex-frag))
> +		     '("\\`[ \t]*\\\\begin{[^*}]+?[*]}"
> +		       "\\`[ \t]*\\\\begin{displaymath}")))))

I suggest merging the two regexps into a single one, and use:

    (not (string-match-p REGEXP latex-env))

> +  (let* ((processing-type (plist-get info :with-latex))
> +	 (latex-frag (org-remove-indentation
> +		      (org-element-property :value latex-environment)))
> +         (attributes (org-export-read-attribute :attr_html latex-environment))
> +         (label (and (org-element-property :name latex-environment)
> +                     (org-export-get-reference latex-environment info)))
> +	 (caption (when (org-html--latex-environment-numbered-p
> +			 latex-frag)
> +		    (number-to-string
> +		     (org-export-get-ordinal
> +		      latex-environment info nil
> +		      (lambda (l info)
> +			(and (org-html--math-environment-p l)
> +			     (org-html--latex-environment-numbered-p
> +			      (org-remove-indentation
> +			       (org-element-property :value l))))))))))

Operating directly on the element will be a bit nicer. Why do you need
`org-remove-indentation'?

Could you send an updated patch and provide an ORG-NEWS entry (on top of
master)?

Regards,

-- 
Nicolas Goaziou

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-12-08 20:40           ` Nicolas Goaziou
@ 2019-12-08 23:44             ` Thibault Marin
  2019-12-09 20:34               ` Nicolas Goaziou
  0 siblings, 1 reply; 22+ messages in thread
From: Thibault Marin @ 2019-12-08 23:44 UTC (permalink / raw)
  To: Nicolas Goaziou; +Cc: Uwe Brauer, emacs-orgmode

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


Hi, thanks for the quick review.

On 2019-12-08T15:40:54-0500, Nicolas Goaziou wrote:


> > +(defun org-html--latex-environment-numbered-p (latex-frag)
>                                                   ^^^^^^^^^^
>                                                   latex-env

I changed the name and docstring to `element' (similar to
`org-html--math-environment-p'.

> > +  "Return t if LATEX-ENV contains a numbered environment.

> Non-nil if...

Done.

> However, I suggest to make this function operate on the element itself,
> not its value, much like `org-html--math-environment-p'.

Done (if I understood correctly).

> I suggest merging the two regexps into a single one, and use:

>     (not (string-match-p REGEXP latex-env))

Done

> Operating directly on the element will be a bit nicer. Why do you need
> `org-remove-indentation'?

I looks like I didn't.  I removed it.

> Could you send an updated patch and provide an ORG-NEWS entry (on top of
> master)?

See attached.

Thanks,

thibault


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ox-html-Add-equation-numbers-only-for-numbered-envir.patch --]
[-- Type: text/x-diff, Size: 3583 bytes --]

From 3cf6b644f2b7d806b15dd5e76914b1547ef77a96 Mon Sep 17 00:00:00 2001
From: thibault <thibault.marin@gmx.com>
Date: Sat, 2 Nov 2019 02:12:38 -0400
Subject: [PATCH] ox-html: Add equation numbers only for numbered environments

* lisp/ox-html.el (org-html-latex-environment): Add caption to numbered
environments only
(org-html--latex-environment-numbered-p): Determine whether a latex
environment should be numbered.
---
 etc/ORG-NEWS    |  8 ++++++++
 lisp/ox-html.el | 32 ++++++++++++++++++++++----------
 2 files changed, 30 insertions(+), 10 deletions(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index e61b97fa5..f20e4ea98 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -21,6 +21,14 @@ just as if it was at outline level 0.  Inheritance for properties will
 work also for this level.  In other words: defining things in a
 property drawer before the first headline will make them "inheritable"
 for all headlines.
+
+*** Restrict the addition of a label to LaTeX equations in HTML export to numbered environments only
+
+Prevent the addition of a label to LaTeX math environments in HTML
+export when not in a numbered environment (numbered environment are
+everything but =displaymath= and environments ending with a star
+character, e.g. =equation*=).
+
 ** New functions
 *** ~org-columns-toggle-or-columns-quit~
 =<C-c C-c>= bound to ~org-columns-toggle-or-columns-quit~ replaces the
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 83d0fd2e9..2f2210aa1 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2914,19 +2914,31 @@ For instance, change an 'equation' environment to 'equation*'."
 			     latex-frag nil nil 1)
    nil nil 1))

+(defun org-html--latex-environment-numbered-p (element)
+  "Non-nil if ELEMENT contains a numbered LaTeX math environment.
+
+Environments with a star (*) character and displaymath are not numbered."
+  (not (string-match-p
+	"\\`[ \t]*\\\\begin{\\(.*\\*\\|displaymath\\)}"
+	(org-element-property :value element))))
+
 (defun org-html-latex-environment (latex-environment _contents info)
   "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
 CONTENTS is nil.  INFO is a plist holding contextual information."
-  (let ((processing-type (plist-get info :with-latex))
-	(latex-frag (org-remove-indentation
-		     (org-element-property :value latex-environment)))
-        (attributes (org-export-read-attribute :attr_html latex-environment))
-        (label (and (org-element-property :name latex-environment)
-                    (org-export-get-reference latex-environment info)))
-        (caption (number-to-string
-                  (org-export-get-ordinal
-                   latex-environment info nil
-                   #'org-html--math-environment-p))))
+  (let* ((processing-type (plist-get info :with-latex))
+	 (latex-frag (org-remove-indentation
+		      (org-element-property :value latex-environment)))
+         (attributes (org-export-read-attribute :attr_html latex-environment))
+         (label (and (org-element-property :name latex-environment)
+                     (org-export-get-reference latex-environment info)))
+	 (caption (when (org-html--latex-environment-numbered-p
+			 latex-environment)
+		    (number-to-string
+		     (org-export-get-ordinal
+		      latex-environment info nil
+		      (lambda (l info)
+			(and (org-html--math-environment-p l)
+			     (org-html--latex-environment-numbered-p l))))))))
     (cond
      ((memq processing-type '(t mathjax))
       (org-html-format-latex
--
2.24.0


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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-12-08 23:44             ` Thibault Marin
@ 2019-12-09 20:34               ` Nicolas Goaziou
  0 siblings, 0 replies; 22+ messages in thread
From: Nicolas Goaziou @ 2019-12-09 20:34 UTC (permalink / raw)
  To: Thibault Marin; +Cc: Uwe Brauer, emacs-orgmode

Hello,

Thibault Marin <thibault.marin@gmx.com> writes:

> Subject: [PATCH] ox-html: Add equation numbers only for numbered environments
>
> * lisp/ox-html.el (org-html-latex-environment): Add caption to numbered
> environments only
> (org-html--latex-environment-numbered-p): Determine whether a latex
> environment should be numbered.

I applied your patch on maint, since it is arguably a bugfix, so
I dropped the ORG-NEWS entry. Sorry for the extra work.

Thank you.

Regards,

-- 
Nicolas Goaziou

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2019-11-01  7:52 Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
  2019-11-01  8:49 ` Fraga, Eric
  2019-11-01 13:01 ` John Kitchin
@ 2020-02-11  8:20 ` Bastien
  2020-02-11  9:24   ` Uwe Brauer
  2 siblings, 1 reply; 22+ messages in thread
From: Bastien @ 2020-02-11  8:20 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: emacs-orgmode

Hi Uwe,

Uwe Brauer <oub@mat.ucm.es> writes:

> I contacted the org-mime maintainer and he claims the fault is in org
> (or the org preview engine)

can you cc the org-mime maintainer in this thread so that he can guide
us through where he thinks Org is faulty?

Thanks,

-- 
 Bastien

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2020-02-11  8:20 ` Bastien
@ 2020-02-11  9:24   ` Uwe Brauer
  2020-02-11  9:45     ` Bastien
  0 siblings, 1 reply; 22+ messages in thread
From: Uwe Brauer @ 2020-02-11  9:24 UTC (permalink / raw)
  To: Bastien; +Cc: Uwe Brauer, emacs-orgmode

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

>>> "B" == Bastien  <bzg@gnu.org> writes:

Hi Bastian


> Hi Uwe,
> Uwe Brauer <oub@mat.ucm.es> writes:

>> I contacted the org-mime maintainer and he claims the fault is in org
>> (or the org preview engine)

> can you cc the org-mime maintainer in this thread so that he can guide
> us through where he thinks Org is faulty?

I am puzzled, Thibault Marin <thibault.marin@gmx.com> proposed a patch
the 9th of December 
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
replied and even attached the patch, I think to master, I will forward
these messages to you privately.

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

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

* Re: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]
  2020-02-11  9:24   ` Uwe Brauer
@ 2020-02-11  9:45     ` Bastien
  0 siblings, 0 replies; 22+ messages in thread
From: Bastien @ 2020-02-11  9:45 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: emacs-orgmode

Hi Uwe,

Uwe Brauer <oub@mat.ucm.es> writes:

> I am puzzled, Thibault Marin <thibault.marin@gmx.com> proposed a patch
> the 9th of December 
> From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
> replied and even attached the patch, I think to master, I will forward
> these messages to you privately.

Perhaps I missed it, no problem and thanks for replying.

-- 
 Bastien

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

end of thread, other threads:[~2020-02-11  9:45 UTC | newest]

Thread overview: 22+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-11-01  7:52 Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
2019-11-01  8:49 ` Fraga, Eric
2019-11-01 13:55   ` Uwe Brauer
2019-11-02  6:22     ` Thibault Marin
2019-11-02  9:38       ` Uwe Brauer
2019-11-02 10:22         ` Fraga, Eric
2019-11-02 17:13           ` Uwe Brauer
2019-12-08 18:08         ` Thibault Marin
2019-12-08 20:40           ` Nicolas Goaziou
2019-12-08 23:44             ` Thibault Marin
2019-12-09 20:34               ` Nicolas Goaziou
2019-11-01 13:01 ` John Kitchin
2019-11-01 13:59   ` Uwe Brauer
2019-11-01 15:12     ` John Kitchin
2019-11-01 15:32       ` Uwe Brauer
2019-11-01 16:07       ` Uwe Brauer
2019-11-01 16:16         ` [debugger] (was: Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)]) Uwe Brauer
2019-11-01 18:33         ` Bug: org-mime-htmlize generates unwanted equations numbers in mail [9.2.5 (release_9.2.5-521-gdea0c7 @ /home/oub/emacs/site-lisp/packages/org/)] John Kitchin
2019-11-02  9:18           ` Uwe Brauer
2020-02-11  8:20 ` Bastien
2020-02-11  9:24   ` Uwe Brauer
2020-02-11  9:45     ` Bastien

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

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

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