emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)]
@ 2021-04-21 10:30 Uwe Brauer
  2021-04-24  3:33 ` Kyle Meyer
  0 siblings, 1 reply; 5+ messages in thread
From: Uwe Brauer @ 2021-04-21 10:30 UTC (permalink / raw)
  To: emacs-orgmode


Hi

I am running GNU emacs and org mode, whose versions are specified below.
Sometimes when being in a gnus message buffer and running org-capture
I obtain an error whose bug trace I attach. Usually I have to restart
emacs.

Uwe Brauer 

,----
| 
| Debugger entered--Lisp error: (error "Capture template ‘ms’: No article on current line")
|   signal(error ("Capture template ‘ms’: No article on current line"))
|   error("Capture template `%s': %s" "ms" "No article on current line")
|   org-capture(nil)
|   funcall-interactively(org-capture nil)
|   call-interactively(org-capture nil nil)
|   command-execute(org-capture)
| 
`----

Emacs  : GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.14.6, Xaw3d scroll bars)
 of 2020-07-23
Package: Org mode version 9.3.7 (release_9.3.7-705-gea9463 @ /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/MathRev/ToDo/TODO.org" "~/ALLES/Mail/README.org" "~/ALLES/HGs/tex/vorlesungen/Tutorias/tutorias.org"
                    "~/Desktop/covid19.org" "~/answer.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-modules '(org-bibtex org-docview org-eww org-gnus org-info org-irc org-mhe org-rmail org-w3m org-bookmark)
 org-startup-folded nil
 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\\usepackage{wasysym}\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 '(#[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-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 '(gnorb-org-popup-bbdb 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-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-insert-cite-key "C-c c"
 org-mime-html-hook '((lambda nil (while (re-search-forward "@\\([^@]*\\)@" nil t) (replace-match "<span style=\"color:red\">\\1</span>")))
                      (lambda nil (org-mime-change-element-style "blockquote" "border-left: 2px solid gray; padding-left: 4px;"))
                      (lambda nil
                       (org-mime-change-element-style "pre" (format "color: %s; background-color: %s; padding: 0.5em;" "#E6E1DC" "#232323")))
                      )
 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 '((expand-file-name "~/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-insert-dblock-bindings)
 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}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("misc" . "${author}, /${title}/ *${howpublished}* (${year}).")
                                       ("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-pretty-table-mode-hook '(org-pretty-table-mode-set-explicitly)
 org-ref-open-notes-function '(lambda nil (org-show-entry) (outline-show-branches) (outline-show-children) (org-cycle '(64))
                               (recenter-top-bottom 0))
 org-agenda-loop-over-headlines-in-active-region nil
 org-src-lang-modes '(("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--outline-minor-mode-hook outshine-mode)
 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-export-headline-levels 7
 org-mime-find-html-start '(lambda (start)
                            (save-excursion (goto-char start)
                             (re-search-forward "<#secure method=smime mode=sign>\\|<#secure method=smime mode=signencrypt>\\| ")
                             (+ (point) 1))
                            )
 org-ctrl-c-ctrl-c-hook '(org-fstree-apply-maybe)
 org-structure-template-alist '(("a" . "export ascii") ("C" . "comment") ("e" . "example")
                                ("g" .
                                 "* Group 2\n  :PROPERTIES:\n  :ID:       Group2\n  :COLUMNS:  %10Sheet(Sheet Nr) %10Ej(Exercise Nr)  %17Date(Date) %7STATUS(Status){X/}\n  :END:\n")
                                ("E" . "export") ("h" . "export html")
                                ("m" . "src matlab :tangle mieuler.m :exports code  :padline no :eval never-export")
                                ("M" . "src matlab :exports results :results output raw") ("Q" . "quote") ("S" . "src")
                                ("s" . "src matlab :results output raw :exports code  :eval never-export")
                                ("f" . "fstree: [] :non-recursive t")
                                ("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.2/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")
                                ("B" .
                                 "* Issues (Open/All)\n   :PROPERTIES:\n   :COLUMNS:  %50ITEM(Problem) %10Is(Issue Nr) %7TODO(Status) %26TAGS(Which) %17Date(Date) %7STATUS(Status){X/} \n   :ID:       Issues\n   :END:\n** DONE Proposition9  : one more mistake                        :ContFlowMap:\n   :PROPERTIES:\n   :ID:       Issue:1\n   :Date:     <2020-07-26 Sun>\n   :STATUS:   [X]\n   :Is:       1\n   :END:\n#+BEGIN: columnview :hlines 1 :id \"Issues\" :indent nil  :format \"%50ITEM(Problem) %5Is(Issue) %12TODO %8TAGS(Repo) %12Date %7Status(Status){X/}\"\n#+END")
                                ("v" . "verse"))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 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 '((expand-file-name "~/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") ("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-before-parsing-hook '(org-attach-expand-links)
 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-export-with-email t
 org-link-parameters '(("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 beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acp" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("acp" . "glspl") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Ac" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("Ac" . "Gls") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("ac" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("ac" . "gls") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrfull" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrfull" . "acrfull") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrlong" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrlong" . "acrlong") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("acrshort" :follow or-follow-acronym :face org-ref-acronym-face :help-echo or-acronym-tooltip :export
                        #[771 "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
                          [("acrshort" . "acrshort") (latex beamer) format "\\%s{%s}" "%s"] 7 "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glslink" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\300>\203\f\301\302\x04#\207\301\303\"\207" [(latex beamer) format "\\glslink{%s}{%s}" "%s"] 7
                          "\n\n(fn PATH DESC FORMAT)"]
                        )
                       ("glsdesc" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["glsdesc" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glssymbol" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["glssymbol" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Glspl" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["Glspl" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("Gls" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["Gls" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("glspl" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["glspl" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("gls" :follow or-follow-glossary :face org-ref-glossary-face :help-echo or-glossary-tooltip :export
                        #[771 "\211\301>\203\f\302\303\300#\207\302\304\"\207" ["gls" (latex beamer) format "\\%s{%s}" "%s"] 7
                          "\n\n(fn PATH _ FORMAT)"]
                        )
                       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
                       ("attachment" :follow org-attach-follow :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 #[514 "\301\300\302Q\"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("mailto" :follow #[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("https" :follow #[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("http" :follow #[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("ftp" :follow #[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("help" :follow org-link--open-help) ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)
                       ("doi" :follow doi-link-menu :export
                        #[(doi desc format)
                          "\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-export-allow-bind-keywords t
 org-capture-templates '(("l" "Ledger entries")
                         ("lm" "MBNA" plain (file "~/personal/ledger")
                          "%(org-read-date) %^{Payee}\n  Liabilities:MBNA  \n  Expenses:%^{Account}  %^{Amount}")
                         ("lc" "Cash" plain (file "~/personal/ledger")
                          "%(org-read-date) * %^{Payee}\n  Expenses:Cash \n  Expenses:%^{Account}  %^{Amount}")
                         ("h" "Hg options")
                         ("hi" "Hg Issues" entry
                          (file+headline "~/ALLES/HGs/Karp/Pub/Published/ContFlowMap/Issues.org" "HG:Issues:ContFlowMap")
                          "* TODO %^{Task} %T : %:from %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("m" "Mail options")
                         ("me" "Est+Num Just Emails" entry (file+headline "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Hojas.org" "Examen")
                          "* TODO %^{Task} %T : %:from: %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("mc" "Stat+Num:Covid19" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGCal-Num-Transp/alumnos-covid19.org" "Casos de Covid19")
                          "| | %:fromname|%:fromaddress|%^{caso|positivo|contacto-estrecho}|%^{Grupo|A|B|C|D|E|F} | | |  %a|%:date " :prepend
                          t)
                         ("mm" "Annu:Matlab-Ejercicios" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGAnnu/matlab-ejercicios.org" "Ejercicios de Matlab")
                          "|%:fromname|%:fromaddress|%^{Hoja|1|2|3|4|5|6|7|8|9} |[ ] | | %a|%:date" :prepend t)
                         ("mu" "Stat+Num:Exercises English" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Lista-Alumnos/2021/GroupE/exercises-groupE-21.org"
                           "Exercise Group-E")
                          "| %:fromname|%:fromaddress  |%^{Sheet|1|2|3|4|5|6}|%^{Exercise|1|} |  %a|%:date | " :prepend t)
                         ("mg" "Exercicios Annu21: asignados" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGAnnu/Ejercios-Alumnos-Grupos/2021/Ejercios-Teoria21.org"
                           "Exercicios Annu21: asignados")
                          "| |%^{Grp|1|2|3|4|5|6|7|8} |%^{P|1|2|3} |%^{Hj|1|2|3|4|5|6|7} |%^{Ej-As|1|2|3|4|5} |[] | |  | %:fromname|%:fromaddress |  %(my-extract-cc)  |%:subject | %:date |%a | " :prepend t :empty-lines 1 :unnarrowed t)
                         ("s" "timeslip" table-line (file "/home/oub/timeslips.org")
                          "| %(org-read-date)| %^{FileName} %i|\n    	          %^{Narrative} %i| %^{Time} %i| %^{Expense} %i" :empty-lines
                          1)
                         ("ms" "Estad+Num:Ejercicios Spanish" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Lista-Alumnos/2021/GroupA/ejercicios-grupoA-21.org"
                           "Ejercicios Grupo A")
                          "| %:fromname|%:fromaddress|%^{Hoja|1|2|3|4|5|6}|%^{Ejercicio|1|} | %a |%:date " :prepend t)
                         ("mC" "Annu20:Covid19" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGAnnu/annu-covid19.org" "Cases of Covid19")
                          "| %:fromname|%:fromaddress|%^{caso|positivo|contact-estrecho}|   %a | %:date " :prepend t)
                         ("mf" "Annu20:No-Pres" table-line
                          (file+headline "~/ALLES/HGs/tex/vorlesungen/HGAnnu/no-presencial.org" "Alumnos que no pueden venir")
                          "| %:fromname|%:fromaddress|%^{Como|tablet|pizarra|nada}|   %a|%:date " :prepend t)
                         ("mi" "mailimportant" entry (file+headline "~/ALLES/Mail/README.org" "Important Mail")
                          "* TODO %^{Task} %T : %:from %:subject %^G\n- From :: %:from\n- Subject :: %:subject\n- Date :: %:date\n- Email :: %a\n\n%?\n%i")
                         ("mt" "Tutorials" entry (file+headline "~/ALLES/HGs/tex/vorlesungen/Tutorias/tutorias.org" "Tutorials")
                          "* TODO %^{Task} %T : %:from %: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")
                          "* TODO %T  %:from %: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} : %:from %: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") "* TODO %T REPLY %:from %:subject\n %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")
                         ("K" "Contacts" entry (file "~/ALLES/HGs/tex/vorlesungen/HGAnnu/grupos2021.org")
                          "* %(org-contacts-template-name)\n:PROPERTIES:\n:ID:       \n:EMAIL: %(org-contacts-template-email)\n:Grp1:     %^{Gr1|Gr2|Gr3|Gr4|Gr6|Gr7}\n:Gr:       Grupo-1\n:Usuario1: %:fromname\n:email1: %:fromaddress\n:Usuario2: %(my-extract-cc)\n:email2: \n:Usuario3: \n:email3: \n:Usuario4: \n:Start:  \n:End:    \n:STATUS:   [ ]\n:ST1:      [ ]\n:Hoja:     \n:Ej:       \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)"]
 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-pre-cycle-hook '(org-fstree-show-entry-maybe)
 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-use-speed-commands t
 org-ref-formatted-citation-backend "org"
 org-odt-convert-processes '(("gnumeric" "/usr/bin/ssconvert %i %o"))
 org-list-allow-alphabetical t
 )


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

* Re: Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)]
  2021-04-21 10:30 Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
@ 2021-04-24  3:33 ` Kyle Meyer
  2021-04-24  7:34   ` Uwe Brauer
                     ` (2 more replies)
  0 siblings, 3 replies; 5+ messages in thread
From: Kyle Meyer @ 2021-04-24  3:33 UTC (permalink / raw)
  To: Uwe Brauer; +Cc: emacs-orgmode

Uwe Brauer writes:

> I am running GNU emacs and org mode, whose versions are specified below.
> Sometimes when being in a gnus message buffer and running org-capture
> I obtain an error whose bug trace I attach. Usually I have to restart
> emacs.
>
> ,----
> | 
> | Debugger entered--Lisp error: (error "Capture template ‘ms’: No article on current line")
> |   signal(error ("Capture template ‘ms’: No article on current line"))
> |   error("Capture template `%s': %s" "ms" "No article on current line")
> |   org-capture(nil)
> |   funcall-interactively(org-capture nil)
> |   call-interactively(org-capture nil nil)
> |   command-execute(org-capture)

With this backtrace alone (which involves org-capture catching the
internal error), I think it's going to be hard for anyone to guess
what's going on here.  It sounds like once you encounter this error,
subsequent calls reliably trigger it.  Next time you run into it, I'd
suggest re-evaluating org-capture to something like below to hopefully
see a more informative backtrace.

diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 831c3e1f4..b20124ced 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -693,9 +693,7 @@ (defun org-capture (&optional goto keys)
 		      (string-prefix-p "CAPTURE-" (buffer-name)))
 	     (kill-buffer (current-buffer)))
 	   (set-window-configuration (org-capture-get :return-to-wconf))
-	   (error "Capture template `%s': %s"
-		  (org-capture-get :key)
-		  (error-message-string error))))
+	   (signal (car error) (cdr error))))
 	(when (and (derived-mode-p 'org-mode) (org-capture-get :clock-in))
 	  (condition-case nil
 	      (progn


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

* Re: Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)]
  2021-04-24  3:33 ` Kyle Meyer
@ 2021-04-24  7:34   ` Uwe Brauer
  2021-04-25 17:12   ` Uwe Brauer
  2021-04-25 17:29   ` Uwe Brauer
  2 siblings, 0 replies; 5+ messages in thread
From: Uwe Brauer @ 2021-04-24  7:34 UTC (permalink / raw)
  To: Kyle Meyer; +Cc: Uwe Brauer, emacs-orgmode

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


> Uwe Brauer writes:


Hi


> With this backtrace alone (which involves org-capture catching the
> internal error), I think it's going to be hard for anyone to guess
> what's going on here.  It sounds like once you encounter this error,
> subsequent calls reliably trigger it.  Next time you run into it, I'd
> suggest re-evaluating org-capture to something like below to hopefully
> see a more informative backtrace.

> diff --git a/lisp/org-capture.el b/lisp/org-capture.el
> index 831c3e1f4..b20124ced 100644
> --- a/lisp/org-capture.el
> +++ b/lisp/org-capture.el
> @@ -693,9 +693,7 @@ (defun org-capture (&optional goto keys)
>  		      (string-prefix-p "CAPTURE-" (buffer-name)))
>  	     (kill-buffer (current-buffer)))
>  	   (set-window-configuration (org-capture-get :return-to-wconf))
> -	   (error "Capture template `%s': %s"
> -		  (org-capture-get :key)
> -		  (error-message-string error))))
> +	   (signal (car error) (cdr error))))
>  	(when (and (derived-mode-p 'org-mode) (org-capture-get :clock-in))
>  	  (condition-case nil
>  	      (progn

Thanks, I pulled applied your patch and compiled, let us see what comes
out of it.

Uwe 

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

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

* Re: Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)]
  2021-04-24  3:33 ` Kyle Meyer
  2021-04-24  7:34   ` Uwe Brauer
@ 2021-04-25 17:12   ` Uwe Brauer
  2021-04-25 17:29   ` Uwe Brauer
  2 siblings, 0 replies; 5+ messages in thread
From: Uwe Brauer @ 2021-04-25 17:12 UTC (permalink / raw)
  To: emacs-orgmode

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


   > Uwe Brauer writes:

   > With this backtrace alone (which involves org-capture catching the
   > internal error), I think it's going to be hard for anyone to guess
   > what's going on here.  It sounds like once you encounter this error,
   > subsequent calls reliably trigger it.  Next time you run into it, I'd
   > suggest re-evaluating org-capture to something like below to hopefully
   > see a more informative backtrace.

   > diff --git a/lisp/org-capture.el b/lisp/org-capture.el
   > index 831c3e1f4..b20124ced 100644
   > --- a/lisp/org-capture.el
   > +++ b/lisp/org-capture.el
   > @@ -693,9 +693,7 @@ (defun org-capture (&optional goto keys)
   >  		      (string-prefix-p "CAPTURE-" (buffer-name)))
   >  	     (kill-buffer (current-buffer)))
   >  	   (set-window-configuration (org-capture-get :return-to-wconf))
   > -	   (error "Capture template `%s': %s"
   > -		  (org-capture-get :key)
   > -		  (error-message-string error))))
   > +	   (signal (car error) (cdr error))))
   >  	(when (and (derived-mode-p 'org-mode) (org-capture-get :clock-in))
   >  	  (condition-case nil
   >  	      (progn

Even with your applied patch I don't obtain any more useful backtrace I
will try to debug the function now.


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

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

* Re: Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)]
  2021-04-24  3:33 ` Kyle Meyer
  2021-04-24  7:34   ` Uwe Brauer
  2021-04-25 17:12   ` Uwe Brauer
@ 2021-04-25 17:29   ` Uwe Brauer
  2 siblings, 0 replies; 5+ messages in thread
From: Uwe Brauer @ 2021-04-25 17:29 UTC (permalink / raw)
  To: emacs-orgmode

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


   > Uwe Brauer writes:

   > With this backtrace alone (which involves org-capture catching the
   > internal error), I think it's going to be hard for anyone to guess
   > what's going on here.  It sounds like once you encounter this error,
   > subsequent calls reliably trigger it.  Next time you run into it, I'd
   > suggest re-evaluating org-capture to something like below to hopefully
   > see a more informative backtrace.

   > diff --git a/lisp/org-capture.el b/lisp/org-capture.el
   > index 831c3e1f4..b20124ced 100644
   > --- a/lisp/org-capture.el
   > +++ b/lisp/org-capture.el
   > @@ -693,9 +693,7 @@ (defun org-capture (&optional goto keys)
   >  		      (string-prefix-p "CAPTURE-" (buffer-name)))
   >  	     (kill-buffer (current-buffer)))
   >  	   (set-window-configuration (org-capture-get :return-to-wconf))
   > -	   (error "Capture template `%s': %s"
   > -		  (org-capture-get :key)
   > -		  (error-message-string error))))
   > +	   (signal (car error) (cdr error))))
   >  	(when (and (derived-mode-p 'org-mode) (org-capture-get :clock-in))
   >  	  (condition-case nil
   >  	      (progn



I debugged the function, the error appears in that line
 (signal (car error) (cdr error))))

Which is not useful. 

The funny thing is that the capture is saved correctly in the file 
here is the template

("mu" "Stat+Num:Exercises English"
         table-line (file+headline "~/ALLES/HGs/tex/vorlesungen/HGQuim-Num-Estad/Lista-Alumnos/2021/GroupE/exercises-groupE-21.org" "Exercise Group-E")
         "| %:fromname|%:fromaddress  |%^{Sheet|1|2|3|4|5|6}|%^{Exercise|1|} |  %a|%:date | "  :prepend t 
         )

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

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

end of thread, other threads:[~2021-04-25 17:30 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-04-21 10:30 Bug: org-caputure fails, sometimes [9.3.7 (release_9.3.7-705-gea9463 @ /home/oub/emacs/site-lisp/packages/org/)] Uwe Brauer
2021-04-24  3:33 ` Kyle Meyer
2021-04-24  7:34   ` Uwe Brauer
2021-04-25 17:12   ` Uwe Brauer
2021-04-25 17:29   ` Uwe Brauer

Code repositories for project(s) associated with this 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).