emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)]
@ 2019-12-06  6:47 Arthur
  2019-12-07 11:25 ` Fraga, Eric
  2019-12-07 11:32 ` Nicolas Goaziou
  0 siblings, 2 replies; 3+ messages in thread
From: Arthur @ 2019-12-06  6:47 UTC (permalink / raw)
  To: emacs-orgmode


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

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

Hi,

Since my last org update (today or yesterday I would say) I have been
having an issue with exporting .pgf or .tikz file to LaTeX.  The
exporter always returns `nil`.

I attached a patch that can fix this.  It is not thoroughly tested by my
assumption is that the `progn` does not actually "set" variable
`image-code`, hence the `nil`.

Attached:
 - org file to reproduce the error.
 - tex file output by the org exporter.
 - output of `org-submit-bug-report` (it is waaay too long)
 - the patch I wrote which basically removes the `progn` block and
   replaces it by a single `setq`.

In summary, when you have [[file:test.pgf]] and export to LaTeX:
 - Expected output:
   \begin{center}
   \input{test.pgf}
   \end{center}
 - Actual output:
   \begin{center}
   nil
   \end{center

Summary of config:
 - GNU Emacs 25.2.2 (x86_64-pc-linux-gnu, GTK+ Version 3.22.21) of
   2017-09-23, modified by Debian
 - Org mode version 9.3 (9.3-elpaplus @
.emacs.d/elpa/org-plus-contrib-20191203/)

My apologies if this comes from some weird thing in my config,
although I have checked with `emacs -Q -l <base-config>`.  I have
tried with full file, subtree, custom and default LaTeX class.

Regards,
Arthur

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

[-- Attachment #2: ox-latex.patch --]
[-- Type: text/x-patch, Size: 1915 bytes --]

--- org-plus-contrib-20191203/ox-latex.el	2019-12-06 17:28:34.258945803 +1100
+++ org-plus-contrib-20191203/ox-latex.el	2019-12-06 17:28:53.765352128 +1100
@@ -2411,21 +2411,22 @@
 	;; - if options are present, wrap in a tikzpicture environment.
 	;; - if width or height are present, use \resizebox to change
 	;;   the image size.
-	(progn
-	  (setq image-code (format "\\input{%s}" path))
-	  (when (org-string-nw-p options)
-	    (setq image-code
-		  (format "\\begin{tikzpicture}[%s]\n%s\n\\end{tikzpicture}"
-			  options
-			  image-code)))
-	  (setq image-code
-		(cond ((org-string-nw-p scale)
-		       (format "\\scalebox{%s}{%s}" scale image-code))
-		      ((or (org-string-nw-p width) (org-string-nw-p height))
-		       (format "\\resizebox{%s}{%s}{%s}"
-			       (if (org-string-nw-p width) width "!")
-			       (if (org-string-nw-p height) height "!")
-			       image-code)))))
+        (setq image-code
+              (let* ((image-base (format "\\input{%s}" path))
+                     (image-input
+                      (if (org-string-nw-p options)
+                          (format "\\begin{tikzpicture}[%s]\n%s\n\\end{tikzpicture}"
+                                  options
+                                  image-base)
+                        image-base)))
+                (cond ((org-string-nw-p scale)
+                       (format "\\scalebox{%s}{%s}" scale image-input))
+                      ((or (org-string-nw-p width) (org-string-nw-p height))
+                       (format "\\resizebox{%s}{%s}{%s}"
+                               (if (org-string-nw-p width) width "!")
+                               (if (org-string-nw-p height) height "!")
+                               image-input))
+                      (t image-base))))
       ;; For other images:
       ;; - add scale, or width and height to options.
       ;; - include the image with \includegraphics.

[-- Attachment #3: test.tex --]
[-- Type: text/x-tex, Size: 741 bytes --]

% Created 2019-12-06 Fri 17:41
% Intended LaTeX compiler: pdflatex
\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{graphicx}
\usepackage{grffile}
\usepackage{longtable}
\usepackage{wrapfig}
\usepackage{rotating}
\usepackage[normalem]{ulem}
\usepackage{amsmath}
\usepackage{textcomp}
\usepackage{amssymb}
\usepackage{capt-of}
\usepackage{hyperref}
\author{soha}
\date{\today}
\title{}
\hypersetup{
 pdfauthor={soha},
 pdftitle={},
 pdfkeywords={},
 pdfsubject={},
 pdfcreator={Emacs 25.2.2 (Org mode 9.3)}, 
 pdflang={English}}
\begin{document}

\tableofcontents


\section{Bug: \LaTeX{} export does not handle .pgf/.tikz images}
\label{sec:org5faca5a}

\begin{center}
nil
\end{center}
\end{document}

[-- Attachment #4: test.org --]
[-- Type: application/octet-stream, Size: 353 bytes --]

#+latex_class: article
#+latex_class_options:
#+latex_header:
#+latex_header_extra:
#+description:
#+keywords:
#+subtitle:
#+latex_compiler: pdflatex
#+date: \today

* Bug: LaTeX export does not handle .pgf/.tikz images

[[file:test.pgf]]

# Expected:
# \begin{center}
# \input{test.pgf}
# \end{center}
#
# Actual:
# \begin{center}
# nil
# \end{center}

[-- Attachment #5: org-submit-bug-report.out --]
[-- Type: application/octet-stream, Size: 172013 bytes --]

Emacs  : GNU Emacs 25.2.2 (x86_64-pc-linux-gnu, GTK+ Version 3.22.21)
 of 2017-09-23, modified by Debian
Package: Org mode version 9.3 (9.3-elpaplus @ /home/student/.emacs.d/elpa/org-plus-contrib-20191203/)

current state:
==============
(setq
 org-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" . php)
		      ("C" . c) ("C++" . c++) ("asymptote" . asy)
		      ("bash" . sh) ("beamer" . latex) ("calc" . fundamental)
		      ("cpp" . c++) ("ditaa" . artist) ("dot" . fundamental)
		      ("elisp" . emacs-lisp) ("ocaml" . tuareg)
		      ("screen" . shell-script) ("shell" . sh)
		      ("sqlite" . sql))
 org-latex-tables-booktabs t
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-footnote-auto-adjust t
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
		      org-babel-header-arg-expand)
 org-adapt-indentation nil
 org-latex-classes '(("infor"
		      "\\documentclass[]{interact}\n\\usepackage[utf8]{inputenc}\n\n\\usepackage{epstopdf}% To incorporate .eps illustrations using PDFLaTeX, etc.\n\\usepackage[caption=false]{subfig}% Support for small, `sub' figures and tables\n%\\usepackage[nolists,tablesfirst]{endfloat}% To `separate' figures and tables from text if required\n\n%\\usepackage[doublespacing]{setspace}% To produce a `double spaced' document if required\n%\\setlength\\parindent{24pt}% To increase paragraph indentation when line spacing is doubled\n%\\setlength\\bibindent{2em}% To increase hanging indent in bibliography when line spacing is doubled\n\n\\usepackage{natbib}% Citation support using natbib.sty\n\\bibpunct[, ]{(}{)}{;}{a}{}{,}% Citation support using natbib.sty\n\\renewcommand\\bibfont{\\fontsize{10}{12}\\selectfont}% Bibliography support using natbib.sty\n\n\\theoremstyle{plain}% Theorem-like structures provided by amsthm.sty\n\\newtheorem{theorem}{Theorem}[section]\n\\newtheorem{lemma}[theorem]{Lemma}\n\\newtheorem{corollary}[theorem]{Corollary}\n\\newtheorem{proposition}[theorem]{Proposition}\n\n\\theoremstyle{definition}\n\\newtheorem{definition}[theorem]{Definition}\n\\newtheorem{example}[theorem]{Example}\n\n\\theoremstyle{remark}\n\\newtheorem{remark}{Remark}\n\\newtheorem{notation}{Notation}\n\n[NO-DEFAULT-PACKAGES]\n[EXTRA]\n\\usepackage{hyperref}\n\\usepackage{cleveref}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("tufte"
		      "\\documentclass[a4paper, nobib]{tufte-handout}\n\\usepackage[style=apa]{biblatex}\n\\renewcommand{\\cite}[2][0pt]{\\unskip \\sidenote{\\fullcite{#2}}}\n\\usepackage{realscripts}\n% \\usepackage{unicode-math}\n% \\setmathfont[Scale=MatchUppercase]{libertinusmath-regular.otf}\n\\setmonofont[Scale=MatchLowercase]{DejaVu Sans Mono}\n\\setmainfont[\n  Ligatures=TeX,\n  Numbers={OldStyle, Proportional},\n  SmallCapsFeatures = {LetterSpace = 5, Renderer = Basic}\n                       % Ligatures={NoCommon, NoRequired, NoContextual}}\n]{Linux Libertine O}\n\\usepackage[multiple]{fnpct}\n\\setfnpct{add-punct-marks=;:}\n\\AdaptNote\\sidenote\\multsidenote\n[NO-DEFAULT-PACKAGES]\n[EXTRA]\n\\usepackage{cleveref}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("paper"
		      "\\documentclass[a4paper, 11pt, svgnames]{article}\n[DEFAULT-PACKAGES]\n\\newlength{\\alphabet}\n\\settowidth{\\alphabet}{\\normalfont abcdefghijklmnopqrstuvwxyz}\n\\usepackage[textwidth=2.3\\alphabet]{geometry}\n\\usepackage{amssymb}\n\\usepackage{mathtools}\n\\usepackage{xspace}\n\\usepackage[svgnames]{xcolor}\n\\usepackage{booktabs}\n\\usepackage{multirow}\n\\usepackage{pgfplots} % External TikZ/PGF support (thanks to Andreas Nautsch)\n\\usetikzlibrary{calc,positioning,shapes,arrows,positioning,fit,backgrounds}\n\\usepgfplotslibrary{fillbetween}\n\\usepackage{fontspec}\n\\usepackage{unicode-math}\n\\setmainfont[\n  Ligatures=TeX,\n  Numbers={OldStyle, Proportional},\n  SmallCapsFeatures = {LetterSpace = 5, Renderer = Basic}\n                       % Ligatures={NoCommon, NoRequired, NoContextual}}\n]{Linux Libertine O}\n\\newfontfamily\\headerfont[\n  LetterSpace=5,\n  WordSpace=1.5,\n  Ligatures=NoCommon,\n  Numbers={OldStyle, Proportional},\n  Kerning=Uppercase,\n  Letters=SmallCaps,\n  Numbers={OldStyle, Proportional}\n]{Linux Libertine O}\n\\newfontfamily\\acrofont[\n  LetterSpace=5,\n  WordSpace=1.5,\n  Ligatures=NoCommon,\n  Kerning=Uppercase,\n  Letters={SmallCaps, UppercaseSmallCaps},\n  Numbers={OldStyle, Proportional}\n]{Linux Libertine O}\n\\setmathfont[Scale=MatchUppercase]{libertinusmath-regular.otf}\n\\setmonofont[Scale=MatchLowercase]{DejaVu Sans Mono}\n\\usepackage{etoolbox}\n\\setlength{\\baselineskip}{13pt}\n\\renewcommand{\\arraystretch}{1.2}\n\\newcommand\\lining{\\addfontfeatures{Numbers={Proportional, Lining}}}\n\\newcommand\\fixed{\\addfontfeatures{Numbers={Monospaced, Lining}}}\n\\AtBeginEnvironment{tabular}{\\fixed}\n\\renewcommand{\\theequation}{{\\lining\\arabic{equation}}}\n\\frenchspacing\n\\usepackage{titlesec}\n\\newcommand{\\flatcaps}[1]{{\\headerfont \\MakeLowercase{#1}}}\n\\titleformat{\\section}{\\large\\bfseries}{\\lining\\thesection}{1em}{}\n\\titleformat{\\subsection}{\\large}{\\thesubsection}{.6em}{\\flatcaps}\n\\titleformat{\\subsubsection}{}{\\thesubsubsection}{.6em}{\\itshape}\n\\titleformat{\\paragraph}[runin]{\\headerfont}{\\theparagraph}{0pt}{}[.]\n\\titlespacing*{\\section}{0pt}{2\\baselineskip}{1\\baselineskip}\n\\titlespacing*{\\subsection}{0pt}{1\\baselineskip}{1\\baselineskip}\n\\titlespacing*{\\subsubsection}{0pt}{8pt}{5pt}\n\\usepackage[tracking]{microtype}\n\\usepackage{enumitem}\n\\setlist{noitemsep, nosep, leftmargin=\\parindent}\n\\setlist[1]{labelindent=\\parindent} % < Usually a good idea\n\\setlist[description]{font=\\mdseries\\flatcaps, labelindent=0pt} % Have to remove the bold\n\\usepackage{caption}\n\\usepackage{subcaption}\n\\DeclareCaptionLabelFormat{lc}{\\flatcaps{#1}~{#2}}\n\\captionsetup{font=small, format=plain, labelformat=lc, width=.9\\textwidth}\n\\captionsetup[subfigure]{labelsep=colon, labelfont=sc, labelformat=simple}\n\\usepackage[\n  normal-marks,\n  normal-mark-width=\\parindent,\n  % normal-indent=0em,\n  % normal-par-indent=\\parindent\n]{fnpct}\n\\setfnpct{add-punct-marks=;:}\n\\usepackage{realscripts}\n\\usepackage{selnolig}\n\\usepackage[runin]{abstract}\n\\renewcommand{\\abstractnamefont}{\\normalfont\\flatcaps}\n\\abslabeldelim{\\newline}\n\\setlength{\\abstitleskip}{-\\parindent}\n\\usepackage[\n  natbib=true,\n  style=authoryear,\n  % citestyle=numeric-comp,\n  autocite=inline,\n  maxbibnames=100,\n  mincitenames=1,\n  maxcitenames=2,\n  hyperref=true,\n  % uniquelist=false,\n  % uniquename=init,\n  giveninits=true,\n  dashed=false,\n  useprefix=true,\n  date=year,\n  isbn=false, eprint=true, url=false, % Do not print extra info\n]{biblatex}\n% \\renewcommand*{\\citesetup}{%\n%  \\lining\n%  \\biburlsetup\n%  \\frenchspacing}\n%% Period inside the quotes, please.\n\\uspunctuation\n\\DeclareNameAlias{sortname}{family-given}\n\\renewcommand{\\finentrypunct}{} % Remove period at end of reference\n\\AtBeginBibliography{\\sloppy}\n%% Acronyms\n\\usepackage[printonlyused, smaller]{acronym}\n% \\newcommand\\acrofont\n\\renewcommand*{\\acsfont}[1]{{\\acrofont #1}}\n\\renewcommand*{\\aclabelfont}[1]{{\\acrofont #1}}\n[PACKAGES]\n[EXTRA]\n% Cleveref needs to be last\n\\usepackage{cleveref}\n\\hypersetup{pdftex, breaklinks, colorlinks, urlcolor=FireBrick, linkcolor=NavyBlue, citecolor=ForestGreen}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("svmult"
		      "\\documentclass[11pt]{svmult}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{fixltx2e}\n\\usepackage{longtable}\n\\usepackage{float}\n\\usepackage{wrapfig}\n\\usepackage{rotating}\n\\usepackage[normalem]{ulem}\n\\usepackage{amsmath}\n\\usepackage{textcomp}\n\\usepackage{marvosym}\n\\usepackage{wasysym}\n\\usepackage{amssymb}\n\\usepackage{hyperref}\n\\usepackage{mathptmx}\n\\usepackage{helvet}\n\\usepackage{courier}\n\\usepackage{type1cm}\n\\usepackage{makeidx}\n\\usepackage{graphicx}\n\\usepackage{multicol}\n\\usepackage[bottom]{footmisc}\n\\providecommand{\\e}[1]{\\ensuremath{\\times 10^{#1}}}\n[NO-DEFAULT-PACKAGES] [PACKAGES] [EXTRA]"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("thesis"
		      "\\documentclass[headinclude, footinclude, cleardoublepage=empty,\n                paper=a4, fontsize=11pt, svgnames      % Fix xcolor errors\n]{scrreprt}\n\n\\input{classicthesis-config}\n\\input{macros}\n\\input{tikz}\n\\setcounter{secnumdepth}{2} % <-- 2 numbers up to subsections\n[NO-DEFAULT-PACKAGES]\n[EXTRA]"
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("thesis-full"
		      "\\documentclass[twoside, openright, titlepage, numbers=noenddot, %1headlines,\n                headinclude, footinclude, cleardoublepage=empty, abstract=on,\n                BCOR=5mm, paper=a4, fontsize=11pt,\n                svgnames      % Fix xcolor errors\n]{scrreprt}\n\n\\input{classicthesis-config}\n\\input{macros}\n\\input{tikz}\n[NO-DEFAULT-PACKAGES]"
		      ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("article" "\\documentclass[11pt]{article}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("report" "\\documentclass[11pt]{report}"
		      ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     ("book" "\\documentclass[11pt]{book}"
		      ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     )
 org-speed-command-hook '(org-speed-command-activate
			  org-babel-speed-command-activate)
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
			      (insert
			       (format "cite:%s\n"
				(org-entry-get (point) "Custom_ID"))
			       )
			      )
			     )
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(closure
				   (htmlize-buffer-places
				    org-html-format-table-no-css
				    htmlize-css-name-prefix
				    htmlize-output-type htmlize-output-type
				    htmlize-css-name-prefix t)
				   (_name contents) contents)
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-latex-pdf-process '("latexmk -gg -shell-escape -interaction=nonstopmode -lualatex %f")
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-latex-image-default-width ""
 org-latex-format-drawer-function '(closure (t) (_ contents) contents)
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-ref-pdf-to-bibtex-function 'copy-file
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
		     org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(org-ref-org-menu
		 (closure
		  (org--rds reftex-docstruct-symbol
		   org-element-greater-elements org-clock-history
		   org-agenda-current-date org-with-time org-defdecode org-def
		   org-read-date-inactive org-ans2 org-ans1
		   org-columns-current-fmt-compiled org-clock-current-task
		   org-clock-effort org-agenda-skip-function
		   org-agenda-skip-comment-trees org-agenda-archives-mode
		   org-end-time-was-given org-time-was-given
		   org-log-note-extra org-log-note-purpose
		   org-log-post-message org-last-inserted-timestamp
		   org-last-changed-timestamp
		   org-entry-property-inherited-from org-blocked-by-checkboxes
		   org-state org-agenda-headline-snapshot-before-repeat
		   org-capture-last-stored-marker org-agenda-start-on-weekday
		   org-agenda-buffer-tmp-name org-priority-regexp
		   buffer-face-mode-face org-tbl-menu org-org-menu
		   org-struct-menu org-entities org-last-state
		   org-id-track-globally org-clock-start-time texmathp-why
		   remember-data-file
		   org-agenda-tags-todo-honor-ignore-options
		   iswitchb-temp-buflist calc-embedded-open-mode
		   calc-embedded-open-formula calc-embedded-close-formula
		   align-mode-rules-list org-emphasis-alist
		   org-emphasis-regexp-components
		   org-export-registered-backends org-modules
		   org-babel-load-languages org-indent-indentation-per-level
		   org-element-paragraph-separate ffap-url-regexp
		   org-inlinetask-min-level t)
		  nil
		  (add-hook (quote change-major-mode-hook)
		   (quote org-show-all) (quote append) (quote local))
		  )
		 (closure
		  (org-src-window-setup *this*
		   org-babel-confirm-evaluate-answer-no
		   org-src-preserve-indentation org-src-lang-modes
		   org-edit-src-content-indentation org-babel-library-of-babel
		   t)
		  nil
		  (add-hook (quote change-major-mode-hook)
		   (quote org-babel-show-result-all) (quote append)
		   (quote local))
		  )
		 org-babel-result-hide-spec org-babel-hide-all-hashes
		 org-eldoc-load org-ref-setup-label-finders)
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-latex-prefer-user-labels t
 org-bibtex-headline-format-function '(closure
				       (org-id-locations
					org-agenda-search-view-always-boolean
					org-agenda-overriding-header t)
				       (entry) (cdr (assq :title entry)))
 org-latex-caption-above nil
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-ascii-format-drawer-function '(closure (t) (_name contents _width)
				    contents)
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-link-shell-confirm-function 'yes-or-no-p
 org-export-async-init-file "~/.emacs.d/tools/async.el"
 org-ref-clean-bibtex-key-function '(lambda (key)
				     (replace-regexp-in-string ":" "" key))
 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-link-elisp-confirm-function 'yes-or-no-p
 org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el")
			      ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-in-background t
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-odt-format-drawer-function '(closure
				  (hfy-user-sheet-assoc hfy-html-quote-regex
				   hfy-html-quote-map hfy-face-to-css
				   hfy-begin-span-handler hfy-end-span-handler
				   archive-zip-extract
				   nxml-auto-insert-xml-declaration-flag t)
				  (_name contents) contents)
 org-ref-open-notes-function '(lambda nil (org-show-entry)
			       (outline-show-branches) (outline-show-children)
			       (org-cycle (quote (64)))
			       (recenter-top-bottom 0))
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-link-parameters '(("attachment" :follow org-attach-open-link :export
			org-attach-export-link :complete
			org-attach-complete-link)
		       ("id" :follow org-id-open)
		       ("eww" :follow eww :store org-eww-store-link)
		       ("rmail" :follow org-rmail-open :store
			org-rmail-store-link)
		       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
		       ("irc" :follow org-irc-visit :store org-irc-store-link
			:export org-irc-export)
		       ("info" :follow org-info-open :export org-info-export
			:store org-info-store-link)
		       ("gnus" :follow org-gnus-open :store
			org-gnus-store-link)
		       ("docview" :follow org-docview-open :export
			org-docview-export :store org-docview-store-link)
		       ("bbdb" :follow org-bbdb-open :export org-bbdb-export
			:complete org-bbdb-complete-link :store
			org-bbdb-store-link)
		       ("w3m" :store org-w3m-store-link)
		       ("printindex" :follow org-ref-index :export
			(lambda (path desc format)
			 (cond
			  ((eq format (quote latex)) (format "\\printindex")))
			 )
			)
		       ("index" :follow (lambda (path) (occur path)) :export
			(lambda (path desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\index{%s}" path))
			  )
			 )
			)
		       ("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
			(lambda (path desc format)
			 (cond
			  ((eq format (quote html))
			   (format "(<pageref>%s</pageref>)" path))
			  ((eq format (quote latex))
			   (format "\\pageref{%s}" path))
			  )
			 )
			: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
			(lambda (label)
			 "On clicking count the number of label tags used in the buffer.\nA number greater than one means multiple labels!"
			 (let
			  
			  ((count
			    
																	       
			    (org-ref-count-labels label)
			    
			    
																	       
																	       )
																	      
			   )
			  
			  (message
			   
			   (format
			    
																	       
																	       
			    "%s occurence%s"
			    
																	       
																	       
			    count
			    
																	       
																	       
			    (if
			     
																		
																		
																		
																		
																		
																		
																		
																		
																		
																			
																			      
																					       
			     (or
			      
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																			 
																			 
																			 
																			       
																			       
																						
																						
																						       
			      (= count 0)
			      
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																			 
																			 
																			 
																			       
																			       
																						
																						
																						       
			      (> count 1)
			      
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																		 
																			 
																			 
																			 
																			       
																			       
																						
																						
																						       
			      )
			     
			     
			     
																		
																		
																		
																		
																		
																		
																		
																		
																		
																			
																			      
																					       
			     "s" "")
			    
																	       
																	       
			    )
			   
			   (org-ref-count-labels label)
			   
			   )
			  
			  )
			 )
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote html))
			   (format "<div id=\"%s\"></div>" keyword))
			  ((eq format (quote md))
			   (format "<a name=\"%s\"></a>" keyword))
			  ((eq format (quote latex))
			   (format "\\label{%s}" keyword))
			  )
			 )
			:store org-label-store-link :face
			org-ref-label-face-fn :help-echo
			(lambda (window object position)
			 (save-excursion (goto-char position)
			  (let ((s (org-ref-link-message)))
			   (let
			    ((temp-buffer (generate-new-buffer " *temp*")))
			    (save-current-buffer (set-buffer temp-buffer)
			     (unwind-protect
			      (progn (insert s) (fill-paragraph)
			       (buffer-string))
			      (and (buffer-name temp-buffer)
			       (kill-buffer temp-buffer))
			      )
			     )
			    )
			   )
			  )
			 )
			)
		       ("list-of-tables" :follow org-ref-list-of-tables
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote latex)) (format "\\listoftables"))
			  )
			 )
			)
		       ("list-of-figures" :follow org-ref-list-of-figures
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\listoffigures"))
			  )
			 )
			)
		       ("addbibresource" :follow org-ref-follow-addbibresource
			:export
			(lambda (keyword desc format)
			 (cond ((eq format (quote html)) (format ""))
			  ((eq format (quote latex))
			   (format "\\addbibresource{%s}" keyword))
			  )
			 )
			)
		       ("bibliographystyle" :export
			(lambda (keyword desc format)
			 (cond
			  ((or (eq format (quote latex))
			    (eq format (quote beamer)))
			   (format "\\bibliographystyle{%s}" keyword))
			  (t ""))
			 )
			)
		       ("printbibliography" :follow org-ref-open-bibliography
			:export
			(lambda (keyword desc format)
			 (cond
			  ((eq format (quote org))
			   (org-ref-get-org-bibliography))
			  ((eq format (quote html))
			   (org-ref-get-html-bibliography))
			  ((eq format (quote latex))
			   org-ref-printbibliography-cmd)
			  )
			 )
			)
		       ("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
			(lambda (window object position)
			 (save-excursion (goto-char position)
			  (let ((s (org-ref-link-message)))
			   (let
			    ((temp-buffer (generate-new-buffer " *temp*")))
			    (save-current-buffer (set-buffer temp-buffer)
			     (unwind-protect
			      (progn (insert s) (fill-paragraph)
			       (buffer-string))
			      (and (buffer-name temp-buffer)
			       (kill-buffer temp-buffer))
			      )
			     )
			    )
			   )
			  )
			 )
			:face org-ref-bibliography-face-fn)
		       ("Acp" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "Acp" . "Glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acp" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acp" . "glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("Ac" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure ((mapping "Ac" . "Gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("ac" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure ((mapping "ac" . "gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrfull" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrfull" . "acrfull") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrlong" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrlong" . "acrlong") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("acrshort" :follow or-follow-acronym :face
			org-ref-acronym-face :help-echo or-acronym-tooltip
			:export
			(closure
			 ((mapping "acrshort" . "acrshort") (--dolist-tail--)
			  t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" (cdr mapping) path))
			  (t (format "%s" (upcase path))))
			 )
			)
		       ("glslink" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure (t) (path desc format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\glslink{%s}{%s}" path desc))
			  (t (format "%s" path)))
			 )
			)
		       ("glsdesc" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glsdesc") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("glssymbol" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glssymbol") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("Glspl" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "Glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("Gls" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "Gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("glspl" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "glspl") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("gls" :follow or-follow-glossary :face
			org-ref-glossary-face :help-echo or-glossary-tooltip
			:export
			(closure ((command . "gls") (--dolist-tail--) t)
			 (path _ format)
			 (cond
			  ((eq format (quote latex))
			   (format "\\%s{%s}" command path))
			  (t (format "%s" path)))
			 )
			)
		       ("bibtex" :follow org-bibtex-open :store
			org-bibtex-store-link)
		       ("file+sys") ("file+emacs")
		       ("shell" :follow org-link--open-shell)
		       ("news" :follow
			(closure
			 ((scheme . "news") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url) (browse-url (concat scheme ":" url)))
			)
		       ("mailto" :follow
			(closure
			 ((scheme . "mailto") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url) (browse-url (concat scheme ":" url)))
			)
		       ("https" :follow
			(closure
			 ((scheme . "https") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url) (browse-url (concat scheme ":" url)))
			)
		       ("http" :follow
			(closure
			 ((scheme . "http") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url) (browse-url (concat scheme ":" url)))
			)
		       ("ftp" :follow
			(closure
			 ((scheme . "ftp") (--dolist-tail--) org-ts-regexp
			  org-time-stamp-formats org-src-source-file-name
			  org-outline-regexp-bol org-inhibit-startup
			  org-id-link-to-org-use-id org-highlight-links
			  org-comment-string org-agenda-buffer-name
			  clean-buffer-list-kill-buffer-names t)
			 (url) (browse-url (concat scheme ":" url)))
			)
		       ("help" :follow org-link--open-help)
		       ("file" :complete org-link-complete-file)
		       ("elisp" :follow org-link--open-elisp)
		       ("doi" :follow doi-link-menu :export
			(lambda (doi desc format)
			 (cond
			  ((eq format (quote html))
			   (format "<a href=\"%s%s\">%s</a>"
			    doi-utils-dx-doi-org-url doi
			    (or desc (concat "doi:" doi)))
			   )
			  ((eq format (quote latex))
			   (format "\\href{%s%s}{%s}" doi-utils-dx-doi-org-url
			    doi (or desc (concat "doi:" doi)))
			   )
			  )
			 )
			)
		       )
 org-structure-template-alist '(("n" . "notes") ("a" . "export ascii")
				("c" . "center") ("C" . "comment")
				("e" . "example") ("E" . "export")
				("h" . "export html") ("l" . "export latex")
				("q" . "quote") ("s" . "src") ("v" . "verse"))
 org-babel-load-languages '((emacs-lisp . t) (python . t))
 org-ref-insert-link-function 'org-ref-helm-insert-cite-link
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-ref-notes-function 'org-ref-notes-function-one-file
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-confirm-babel-evaluate nil
 org-publish-project-alist '(("thesis" :base-directory "~/writing/thesis"
			      :publishing-directory "~/writing/thesis/pdf"
			      :publishing-function org-latex-publish-to-pdf
			      :base-extension "org" :with-title nil :with-toc
			      nil)
			     ("talks" :base-directory "~/presentations/org/"
			      :publishing-directory "~/presentations/html/"
			      :publishing-function
			      org-reveal-publish-to-reveal :base-extension
			      "org" :with-title t :with-toc nil :recursive t)
			     ("talks-static" :base-directory
			      "~/presentations/org/" :base-extension
			      "css\\|js\\|png\\|jpe?g\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|svg" :publishing-directory "~/presentations/html/" :recursive t :publishing-function org-publish-attachment)
			     )
 )

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

* Re: Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)]
  2019-12-06  6:47 Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)] Arthur
@ 2019-12-07 11:25 ` Fraga, Eric
  2019-12-07 11:32 ` Nicolas Goaziou
  1 sibling, 0 replies; 3+ messages in thread
From: Fraga, Eric @ 2019-12-07 11:25 UTC (permalink / raw)
  To: Arthur; +Cc: emacs-orgmode@gnu.org

On Friday,  6 Dec 2019 at 17:47, Arthur wrote:
> Since my last org update (today or yesterday I would say) I have been
> having an issue with exporting .pgf or .tikz file to LaTeX.  The
> exporter always returns `nil`.

Your example works just fine for me with git up to date as of a few
minutes ago (and also with org from a week ago, give or take).  Maybe
something in your configuration?

-- 
Eric S Fraga via Emacs 27.0.50, Org release_9.3-34-g2eee3c

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

* Re: Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)]
  2019-12-06  6:47 Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)] Arthur
  2019-12-07 11:25 ` Fraga, Eric
@ 2019-12-07 11:32 ` Nicolas Goaziou
  1 sibling, 0 replies; 3+ messages in thread
From: Nicolas Goaziou @ 2019-12-07 11:32 UTC (permalink / raw)
  To: Arthur; +Cc: emacs-orgmode

Hello,

Arthur <maheo.arthur@gmail.com> writes:

> Since my last org update (today or yesterday I would say) I have been
> having an issue with exporting .pgf or .tikz file to LaTeX.  The
> exporter always returns `nil`.
>
> I attached a patch that can fix this.  It is not thoroughly tested by my
> assumption is that the `progn` does not actually "set" variable
> `image-code`, hence the `nil`.
>
> Attached:
>  - org file to reproduce the error.
>  - tex file output by the org exporter.
>  - output of `org-submit-bug-report` (it is waaay too long)
>  - the patch I wrote which basically removes the `progn` block and
>    replaces it by a single `setq`.

Fixed. Thank you for the report and the patch.

Regards,

-- 
Nicolas Goaziou

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

end of thread, other threads:[~2019-12-07 11:32 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-12-06  6:47 Bug: LaTeX export does not handle .pgf/.tikz images [9.3 (9.3-elpaplus @ .emacs.d/elpa/org-plus-contrib-20191203/)] Arthur
2019-12-07 11:25 ` Fraga, Eric
2019-12-07 11:32 ` Nicolas Goaziou

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

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

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