emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)]
@ 2021-08-21 21:58 Peter Prevos
  2021-08-22 19:25 ` Tim Cross
  2021-08-23  2:28 ` Ihor Radchenko
  0 siblings, 2 replies; 4+ messages in thread
From: Peter Prevos @ 2021-08-21 21:58 UTC (permalink / raw)
  To: emacs-orgmode


Hi, I use file variables on the first line of some Org mode files 
to indicate the local Flyspell dictionary, e.g.:

-*- mode: org; ispell-local-dictionary: "nederlands" -*-

This line sets the dictionary to Dutch for this file only.

This is useful functionality that allows me to indicate the 
language of files other than my default language.

It works great, except when I need to add an ID for use in 
Org-Roam using the org-id-get-create function.

The new drawer is placed on the first line of the buffer, so the 
local variable declaration moves down and is as such no longer 
recognised as it is expected on line 1. (File variable 
documentation: 
https://www.gnu.org/software/emacs/manual/html_node/emacs/Specifying-File-Variables.html)

There is an ugly workaround by placing file variables at the end 
of the file, as documented in the linked page.

Regards

P:)

-- 
Dr Peter Prevos
---------------
peterprevos.com



Emacs  : GNU Emacs 27.2 (build 1, x86_64-pc-linux-gnu, GTK+ 
Version 3.24.27, cairo version 1.17.4)
 of 2021-03-27
Package: Org mode version 9.4.4 (release_9.4.4 @ 
/usr/share/emacs/27.2/lisp/org/)

current state:
==============
(setq
 org-ref-notes-directory "/home/peter/Documents/org-roam/"
) org-roam-db-location 
"/home/peter/Documents/org-roam/data/org-roam.db"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
 org-src-mode-configure-edit-buffer
		     doom-modeline-set-org-src-modeline)
 org-capture-prepare-finalize-hook 
 '(org-roam-capture--install-finalize-h)
 org-link-shell-confirm-function nil
 org-num-format-function 'org-num-default-format
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-roam-db-node-include-function #[0 "\300\207" [t] 1]
 org-refile-targets '((gtd-file :maxlevel . 2))
 org-html-format-inlinetask-function 
 'org-html-format-inlinetask-default-function
 org-export-with-todo-keywords nil
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
			      (insert
			       (format "cite:%s\n" (org-entry-get 
			       (point) "CUSTOM_ID")))
			      )
			     )
 org-odt-format-headline-function 
 'org-odt-format-headline-default-function
 org-latex-pdf-process '("pdflatex -interaction nonstopmode 
 -output-directory %o %f"
			 "bibtex %b"
			 "pdflatex -shell-escape -interaction 
			 nonstopmode -output-directory %o %f" 
			 "pdflatex -shell-escape -interaction 
			 nonstopmode -output-directory %o %f")
 org-agenda-files '("~/Documents/org-roam/gtd.org")
 org-ascii-format-inlinetask-function 
 'org-ascii-format-inlinetask-default
 org-odt-preferred-output-format "doc"
 org-mode-hook '(org-ref-org-menu org-appear-mode org-fragtog-mode
		 #[0 "\301\211\207" [imenu-create-index-function 
                  org-imenu-get-tree] 2]
		 writegood-mode (lambda nil (org-superstar-mode 
		 1))
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook org-show-all 
		   append local] 5]
		 #[0 "\300\301\302\303\304$\207"
		   [add-hook change-major-mode-hook 
		   org-babel-show-result-all append local] 5]
		 org-babel-result-hide-spec 
		 org-babel-hide-all-hashes
		 org-ref-setup-label-finders)
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-export-with-smart-quotes t
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME 
 CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-startup-indented t
 org-reverse-note-order t
 org-ref-clean-bibtex-key-function '(lambda (key) 
 (replace-regexp-in-string ":" "" key))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-hide-block-startup t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300\236A\207" 
 [:title] 3 "\n\n(fn ENTRY)"]
 org-ref-cite-keymap '(keymap
		       (tab lambda nil (interactive) (funcall 
		       org-ref-insert-cite-function))
		       (S-up . org-ref-sort-citation-link)
		       (S-right lambda nil (interactive) 
		       (org-ref-swap-citation-link 1))
		       (S-left lambda nil (interactive) 
		       (org-ref-swap-citation-link -1))
		       (C-right . right-word) (C-left . left-word)
		       (16777337 lambda nil
			"Paste key at point. Assumes the first 
			thing in the killring is a key."
			(interactive) (org-ref-insert-key-at-point 
			(car kill-ring)))
		       (16777303 lambda nil "Copy all the keys at 
		       point." (interactive)
			(kill-new (org-element-property :path 
			(org-element-context))))
		       (16777335 lambda nil (interactive)
			(kill-new (car 
			(org-ref-get-bibtex-key-and-file))))
		       (16777318 lambda nil (interactive)
			(save-excursion 
			(org-ref-open-citation-at-point)
			 (kill-new 
			 (org-ref-format-bibtex-entry-at-point)))
			)
		       (16777319 
		       . org-ref-google-scholar-at-point)
		       (16777317 lambda nil "Email entry at point" 
		       (interactive)
			(org-ref-open-citation-at-point) 
			(org-ref-email-bibtex-entry))
		       (16777315 . org-ref-wos-citing-at-point)
		       (16777330 . org-ref-wos-related-at-point)
		       (16777326 . org-ref-open-notes-at-point)
		       (16777328 lambda nil (interactive) (funcall 
		       org-ref-open-pdf-function))
		       (16777333 . org-ref-open-url-at-point)
		       (16777314 . org-ref-open-citation-at-point)
		       (16777327 . org-ref-cite-hydra/body) 
		       (follow-link . mouse-face)
		       (mouse-3 . org-find-file-at-mouse) (mouse-2 
		       . org-open-at-mouse))
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ 
 CONTENTS)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-file-apps '((auto-mode . emacs) (directory . emacs) 
 ("\\.mp4\\'" . "vlc \"%s\""))
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe 
 org-babel-header-arg-expand)
 org-export-with-drawers nil
 org-babel-load-languages '((emacs-lisp . t) (R . t) (python . t) 
 (shell . t) (latex . t))
 org-ref-clean-bibtex-entry-hook 
 '(org-ref-bibtex-format-url-if-doi orcb-key-comma
				   org-ref-replace-nonascii orcb-& 
				   orcb-%
				   org-ref-title-case-article 
				   orcb-clean-year orcb-key
				   orcb-clean-doi orcb-clean-pages 
				   orcb-check-journal
				   org-ref-sort-bibtex-entry 
				   orcb-fix-spacing)
 org-roam-capture-preface-hook 
 '(org-roam-dailies--override-capture-time-h)
 org-hide-emphasis-markers t
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-roam-capture-templates '(("d" "default" plain "%?" :if-new
			       (file+head "${slug}.org"
				"#+title: ${title}\n#+date: 
				%u\n#+lastmod: \n#+startup: 
				inlineimages latexpreview 
				entitiespretty\n*topics*: \n\n")
			       :unnarrowed t :immediate-finish t)
			      ("r" "bibliography reference" plain 
			      "\n$%?" :if-new
			       (file+head "${citekey}.org"
				"#+title: ${title}\n#+date: 
				%u\n#+lastmod: \n#+startup: 
				inlineimages latexpreview 
				entitiespretty\n*topics*: \n\n")
			       :unnarrowed t :immediate-finish t)
			      )
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME 
 CONTENTS WIDTH)"]
 org-ellipsis " ↲"
 org-ref-open-notes-function '(lambda nil (org-show-entry) 
 (outline-show-branches)
			       (outline-show-children) (org-cycle 
			       '(64))
			       (recenter-top-bottom 0))
 org-agenda-loop-over-headlines-in-active-region nil
 org-roam-find-file-hook '(org-roam-buffer--setup-redisplay-h
			   org-roam--register-completion-functions-h
			   org-roam--replace-roam-links-on-save-h
			   org-roam-open-id-with-org-roam-db-h
			   org-roam-db-autosync--setup-update-on-save-h)
 org-catch-invisible-edits 'error
 org-occur-hook '(org-first-headline-recenter)
 org-log-into-drawer t
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-ref-insert-link-function 'org-ref-helm-insert-cite-link
 org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
 org-agenda-include-diary t
 org-structure-template-alist '(("a" . "export ascii\n") ("c" 
 . "center\n")
				("C" . "comment\n") ("e" 
				. "example\n") ("E" . "export")
				("h" . "export html\n") ("l" 
				. "export latex\n")
				("q" . "quote\n") ("s" . "src\n") 
				("sl" . "src emacs-lisp\n")
				("sr" . "src R\n") ("sf" . "src 
				fountain\n")
				("sp" . "src python\n") ("v" 
				. "verse\n"))
 org-cycle-hook '(org-cycle-hide-archived-subtrees 
 org-cycle-hide-drawers
		  org-cycle-show-empty-lines 
		  org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAITING(w@/!)" 
 "PROJECT(p)" "GOAL(g)" "|"
		      "DONE(d/!)" "CANCELLED(c@/!)")
		     )
 org-speed-command-hook '(org-speed-command-activate 
 org-babel-speed-command-activate)
 org-msg-startup "hidestars indent inlineimages"
 org-roam-node-annotation-function 'org-roam-node-read--annotation
 org-ref-default-bibliography 
 '("/home/peter/Documents/org-roam/bibliography/horizon-of-reason.bib" 
 "/home/peter/Documents/org-roam/bibliography/lucid-manager.bib" 
 "/home/peter/Documents/org-roam/bibliography/magic-compass.bib" 
 "/home/peter/Documents/org-roam/bibliography/magic-tricks.bib" 
 "/home/peter/Documents/org-roam/bibliography/science-of-magic.bib" 
 "/home/peter/Documents/org-roam/bibliography/zotero.bib")
 org-log-repeat nil
 org-odt-format-inlinetask-function 
 'org-odt-format-inlinetask-default-function
 org-ref-completion-library 'org-ref-helm-cite
 org-roam-ref-annotation-function 'org-roam-ref-read--annotation
 org-ref-cite-types '("citeA" "cite" "nocite" "citet" "citet*" 
 "citep" "citep*" "citealt"
		      "citealt*" "citealp" "citealp*" "citenum" 
		      "citetext" "citeauthor"
		      "citeauthor*" "citeyear" "citeyear*" 
		      "citeyearpar" "Citet" "Citep"
		      "Citealt" "Citealp" "Citeauthor" "Cite" 
		      "parencite" "Parencite"
		      "footcite" "footcitetext" "textcite" 
		      "Textcite" "smartcite" "Smartcite"
		      "cite*" "parencite*" "supercite" "autocite" 
		      "Autocite" "autocite*"
		      "Autocite*" "Citeauthor*" "citetitle" 
		      "citetitle*" "citedate"
		      "citedate*" "citeurl" "fullcite" 
		      "footfullcite" "notecite" "Notecite"
		      "pnotecite" "Pnotecite" "fnotecite" "cites" 
		      "Cites" "parencites"
		      "Parencites" "footcites" "footcitetexts" 
		      "smartcites" "Smartcites"
		      "textcites" "Textcites" "supercites" 
		      "autocites" "Autocites" "bibentry")
 org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py") 
 ("emacs-lisp" . "el")
			      ("elisp" . "el"))
 org-ref-pdf-to-bibtex-function 'copy-file
 org-export-before-parsing-hook '(org-attach-expand-links 
 org-ref-acronyms-before-parsing
				  org-ref-glossary-before-parsing)
 org-stuck-projects '("/PROJECT" ("NEXT" "WAITING") nil)
 org-link-parameters '(("attachment" :follow org-attach-follow 
 :complete
			org-attach-complete-link)
		       ("deft" :follow deft--org-follow-link 
		       :store org-deft-store-link
			:complete deft--org-complete)
		       ("mu4e" :follow mu4e-org-open :store 
		       mu4e-org-store-link)
		       ("roam" :follow org-roam-link-follow-link) 
		       ("id" :follow org-id-open)
		       ("eww" :follow org-eww-open :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)
		       ("hugo" :complete
			(lambda nil
			 (concat "{{% ref " (file-relative-name 
			 (read-file-name "File: "))
			  " %}}")
			 )
			)
		       ("citeA" :follow
			(lambda (_) (funcall 
			org-ref-cite-onclick-function nil)) 
			:export
			org-ref-format-citeA :complete 
			org-citeA-complete-link :help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s (org-ref-format-entry 
			    (org-ref-get-bibtex-key-under-cursor))))
			    (with-temp-buffer (insert s) 
			    (fill-paragraph) (buffer-string)))
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display 
			full :keymap
			(keymap
			 (tab lambda nil (interactive) (funcall 
			 org-ref-insert-cite-function))
			 (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive) 
			 (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive) 
			 (org-ref-swap-citation-link -1))
			 (C-right . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-point)
			 (16777327 . org-ref-cite-hydra/body) 
			 (follow-link . mouse-face)
			 (mouse-3 . org-find-file-at-mouse) 
			 (mouse-2 . org-open-at-mouse))
			)
		       ("printindex" :follow org-ref-index :export
			#[(path desc format) "\b\301=\205 
                         \300\302!\207"
			  [format latex "\\printindex"] 2]
			)
		       ("index" :follow #[(path) "\301\b!\207" 
		       [path occur] 2] :export
			#[(path desc format) 
                         "\b\302=\205\n\300\303	\"\207"
			  [format path latex "\\index{%s}"] 3]
			)
		       ("bibentry" :follow
			(lambda (_) (funcall 
			org-ref-cite-onclick-function nil)) 
			:export
			org-ref-format-bibentry :complete 
			org-bibentry-complete-link
			:help-echo
			(lambda (window object position)
			 (when org-ref-show-citation-on-enter
			  (save-excursion (goto-char position)
			   (let
			    ((s (org-ref-format-entry 
			    (org-ref-get-bibtex-key-under-cursor))))
			    (with-temp-buffer (insert s) 
			    (fill-paragraph) (buffer-string)))
			   )
			  )
			 )
			:face org-ref-cite-link-face-fn :display 
			full :keymap
			(keymap
			 (tab lambda nil (interactive) (funcall 
			 org-ref-insert-cite-function))
			 (S-up . org-ref-sort-citation-link)
			 (S-right lambda nil (interactive) 
			 (org-ref-swap-citation-link 1))
			 (S-left lambda nil (interactive) 
			 (org-ref-swap-citation-link -1))
			 (C-right . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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 . right-word) (C-left 
			 . left-word)
			 (16777337 lambda nil
			  "Paste key at point. Assumes the first 
			  thing in the killring is a key."
			  (interactive) 
			  (org-ref-insert-key-at-point (car 
			  kill-ring)))
			 (16777303 lambda nil "Copy all the keys 
			 at point." (interactive)
			  (kill-new (org-element-property :path 
			  (org-element-context))))
			 (16777335 lambda nil (interactive)
			  (kill-new (car 
			  (org-ref-get-bibtex-key-and-file))))
			 (16777318 lambda nil (interactive)
			  (save-excursion 
			  (org-ref-open-citation-at-point)
			   (kill-new 
			   (org-ref-format-bibtex-entry-at-point)))
			  )
			 (16777319 
			 . org-ref-google-scholar-at-point)
			 (16777317 lambda nil "Email entry at 
			 point" (interactive)
			  (org-ref-open-citation-at-point) 
			  (org-ref-email-bibtex-entry))
			 (16777315 . org-ref-wos-citing-at-point)
			 (16777330 . org-ref-wos-related-at-point)
			 (16777326 . org-ref-open-notes-at-point)
			 (16777328 lambda nil (interactive)
			  (funcall org-ref-open-pdf-function))
			 (16777333 . org-ref-open-url-at-point)
			 (16777314 
			 . org-ref-open-citation-at-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
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "Cref"] 3]
			: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
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "cref"] 3]
			: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
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "autoref"] 3]
			: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
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "eqref"] 3]
			: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
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "nameref"] 3]
			:face org-ref-ref-face-fn :help-echo 
			org-ref-ref-help-echo)
		       ("pageref" :follow org-ref-ref-follow 
		       :export
			#[(path desc format)
			  "\b\302\267\202\0\300\303 
			  \"\207\300\304	\"\207\305\207"
			  [format path #s
			   (hash-table size 2 test eq rehash-size 
			   1.5 rehash-threshold 0.8125
			    purecopy t data (html 6 latex 11))
			   "(<pageref>%s</pageref>)" 
			   "\\pageref{%s}" nil]
			  3]
			:face org-ref-ref-face-fn :complete
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "pageref"] 3]
			:help-echo org-ref-ref-help-echo)
		       ("ref" :follow org-ref-ref-follow :export 
		       org-ref-ref-export :complete
			#[(&optional arg) "\301\b\302\"\207"
			  [arg org-ref-complete-link "ref"] 3]
			:face org-ref-ref-face-fn :help-echo 
			org-ref-ref-help-echo)
		       ("label" :follow
			#[(label)
			  "\302\b!\303\304\305	\211\306U\204\0 
			  \307V\203\0\310\202\0\311#\302\b!\")\207"
			  [label count org-ref-count-labels 
			  message format "%s occurence%s" 0
			   1 "s" ""]
			  6
			  "On clicking count the number of label 
			  tags used in the buffer.\nA number 
			  greater than one means multiple 
			  labels!"]
			:export
			#[(keyword desc format)
			  "\b\302\267\202\0\300\303 
			  \"\207\300\304	\"\207\300\305 
			  \"\207\306\207"
			  [format
			   
			   keyword
			   
			   #s
			   
			   (hash-table
			    
													  
													    
														    
			    size
			    
													  
													    
														    
			    3
			    
													  
													    
														    
			    test
			    
													  
													    
														    
			    eq
			    
													  
													    
														    
			    rehash-size
			    
													  
													    
														    
			    1.5
			    
													  
													    
														    
			    rehash-threshold
			    
													  
													    
														    
			    0.8125
			    
													  
													    
														    
			    purecopy
			    
													  
													    
														    
			    t
			    
													  
													    
														    
			    data
			    
													  
													    
														    
			    (html 6 md 11 latex 16)
			    
													  
													    
														    
			    )
			   
			   "<div id=\"%s\"></div>" "<a 
			   name=\"%s\"></a>" "\\label{%s}" nil]
			  3]
			:store org-ref-label-store-link :face 
			org-ref-label-face-fn
			:help-echo
			#[(window object position)
			  "\212\bb\210\303 
			  \304\305!r\nq\210\306\216	c\210\307 
			  \210\310 -\207"
			  [position
			   
			   s
			   
			   temp-buffer
			   
			   org-ref-link-message
			   
			   generate-new-buffer
			   
			   " *temp*"
			   
			   #[nil
			     
													     
														       
																	   
																				
																					    
																					      
			     "\301\b!\205	\302\b!\207"
			     
													     
														       
																	   
																				
																					    
																					      
			     [temp-buffer buffer-name kill-buffer]
			     
			     
			     
			     
			     
			     
													     
														       
																	   
																				
																					    
																					      
			     2]
			   
			   fill-paragraph buffer-string]
			  2]
			)
		       ("list-of-tables" :follow 
		       org-ref-list-of-tables :export
			#[(keyword desc format) "\b\301=\205 
                         \300\302!\207"
			  [format latex "\\listoftables"] 2]
			)
		       ("list-of-figures" :follow 
		       org-ref-list-of-figures :export
			#[(keyword desc format) "\b\301=\205 
                         \300\302!\207"
			  [format latex "\\listoffigures"] 2]
			)
		       ("addbibresource" :follow 
		       org-ref-follow-addbibresource :export
			#[(keyword desc format)
			  "\b\302\267\202\0\300\303!\207\300\304 
			  \"\207\305\207"
			  [format keyword #s
			   (hash-table size 2 test eq rehash-size 
			   1.5 rehash-threshold 0.8125
			    purecopy t data (html 6 latex 10))
			   "" "\\addbibresource{%s}" nil]
			  3]
			)
		       ("bibliographystyle" :export
			#[(keyword desc format)
			  "\b\302=\204\f\b\303=\203\0\300\304 
			  \"\207\305\207"
			  [format keyword latex beamer 
			  "\\bibliographystyle{%s}" ""] 3]
			)
		       ("printbibliography" :follow 
		       org-ref-open-bibliography :export
			#[(keyword desc format)
			  "\b\302\267\202\0\303 \207\304 \207 
			  \207\305\207"
			  [format org-ref-printbibliography-cmd #s
			   (hash-table size 3 test eq rehash-size 
			   1.5 rehash-threshold 0.8125
			    purecopy t data (org 6 html 9 latex 
			    12))
			   org-ref-get-org-bibliography 
			   org-ref-get-html-bibliography nil]
			  2]
			)
		       ("nobibliography" :follow 
		       org-ref-open-bibliography :export
			org-ref-nobibliography-format)
		       ("bibliography" :follow 
		       org-ref-open-bibliography :export
			org-ref-bibliography-format :complete 
			org-bibliography-complete-link
			:help-echo
			#[(window object position)
			  "\212\bb\210\303 
			  \304\305!r\nq\210\306\216	c\210\307 
			  \210\310 -\207"
			  [position
			   
			   s
			   
			   temp-buffer
			   
			   org-ref-link-message
			   
			   generate-new-buffer
			   
			   " *temp*"
			   
			   #[nil
			     
													     
														       
																	   
																				
																					    
																					      
			     "\301\b!\205	\302\b!\207"
			     
													     
														       
																	   
																				
																					    
																					      
			     [temp-buffer buffer-name kill-buffer]
			     
			     
			     
			     
			     
			     
													     
														       
																	   
																				
																					    
																					      
			     2]
			   
			   fill-paragraph buffer-string]
			  2]
			:face org-ref-bibliography-face-fn)
		       ("Acp" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("Acp" . "Glspl") (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("acp" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("acp" . "glspl") (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("Ac" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("Ac" . "Gls") (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("ac" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("ac" . "gls") (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("acrfull" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("acrfull" . "acrfull") (latex beamer) 
			  format "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("acrlong" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("acrlong" . "acrlong") (latex beamer) 
			  format "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("acrshort" :follow or-follow-acronym :face 
		       org-ref-acronym-face-fn
			:help-echo or-acronym-tooltip :export
			#[771 
                         "\211\301>\203\0\302\303\300A#\207\302\304\226\"\207"
			  [("acrshort" . "acrshort") (latex 
			  beamer) format "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("glslink" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\300>\203\f\301\302\x04#\207\301\303\"\207"
			  [(latex beamer) format 
			  "\\glslink{%s}{%s}" "%s"] 7
			  "\n\n(fn PATH DESC FORMAT)"]
			)
		       ("glsdesc" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["glsdesc" (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("glssymbol" :follow or-follow-glossary 
		       :face org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["glssymbol" (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("Glspl" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["Glspl" (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("Gls" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["Gls" (latex beamer) format "\\%s{%s}" 
			  "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("glspl" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["glspl" (latex beamer) format 
			  "\\%s{%s}" "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("gls" :follow or-follow-glossary :face 
		       org-ref-glossary-face-fn
			:help-echo or-glossary-tooltip :export
			#[771 
                         "\211\301>\203\f\302\303\300#\207\302\304\"\207"
			  ["gls" (latex beamer) format "\\%s{%s}" 
			  "%s"] 7
			  "\n\n(fn PATH _ FORMAT)"]
			)
		       ("bibtex" :follow org-bibtex-open :store 
		       org-bibtex-store-link)
		       ("elfeed" :follow elfeed-link-open :store 
		       elfeed-link-store-link)
		       ("shell" :follow org-link--open-shell)
		       ("news" :follow
			#[514 "\301\300\302Q\"\207" ["news" 
                         browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("mailto" :follow
			#[514 "\301\300\302Q\"\207" ["mailto" 
                         browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("https" :follow
			#[514 "\301\300\302Q\"\207" ["https" 
                         browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("http" :follow
			#[514 "\301\300\302Q\"\207" ["http" 
                         browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("ftp" :follow
			#[514 "\301\300\302Q\"\207" ["ftp" 
                         browse-url ":"] 6
			  "\n\n(fn URL ARG)"]
			)
		       ("help" :follow org-link--open-help)
		       ("file" :complete org-link-complete-file)
		       ("elisp" :follow org-link--open-elisp)
		       ("doi" :follow doi-link-menu :export
			#[(doi desc format)
			  "\b\304\267\202 \300\305 
			  \n\v\206\0\306\nP$\207\300\307 
			  \n\v\206\0\306\nP$\207\310\207"
			  [format
			   
			   doi-utils-dx-doi-org-url
			   
			   doi
			   
			   desc
			   
			   #s
			   
			   (hash-table
			    
																    
																      
																	   
																	       
																					
			    size
			    
																    
																      
																	   
																	       
																					
			    2
			    
																    
																      
																	   
																	       
																					
			    test
			    
																    
																      
																	   
																	       
																					
			    eq
			    
																    
																      
																	   
																	       
																					
			    rehash-size
			    
																    
																      
																	   
																	       
																					
			    1.5
			    
																    
																      
																	   
																	       
																					
			    rehash-threshold
			    
																    
																      
																	   
																	       
																					
			    0.8125
			    
																    
																      
																	   
																	       
																					
			    purecopy
			    
																    
																      
																	   
																	       
																					
			    t
			    
																    
																      
																	   
																	       
																					
			    data
			    
																    
																      
																	   
																	       
																					
			    (html 6 latex 19)
			    
																    
																      
																	   
																	       
																					
			    )
			   
			   "<a href=\"%s%s\">%s</a>" "doi:" 
			   "\\href{%s%s}{%s}" nil]
			  6]
			)
		       )
 org-agenda-skip-scheduled-if-done t
 org-latex-format-headline-function 
 'org-latex-format-headline-default-function
 org-agenda-start-with-follow-mode t
 org-capture-templates '(("t" "New task" entry (file+headline 
 gtd-file "Inbox") "* TODO %i%?")
			 ("e" "Email action" entry (file+headline 
			 gtd-file "Inbox")
			  "* TODO %a\n%?")
			 ("w" "Email waiting" entry (file+headline 
			 gtd-file "Inbox")
			  "* WAITING %a\n%?")
			 ("n" "New note" item (file+headline 
			 "index.org" "Inbox") "- %?"))
 org-latex-logfiles-extensions '("lof" "lot" "tex~" "aux" "idx" 
 "log" "out" "toc" "nav" "snm"
				 "vrb" "dvi" "fdb_latexmk" "blg" 
				 "brf" "fls" "entoc" "ps"
				 "spl" "bbl" "tex" "bcf")
 org-link-elisp-confirm-function nil
 org-roam-db-autosync-mode t
 org-roam-dailies-capture-templates '(("d" "default" entry "* %?" 
 :if-new
				       (file+head 
				       "%<%Y-%m-%d>.org"
					"#+title: %<%Y-%m-%d: 
					>\n#+filetags: 
					:Diary:\n\n")
				       )
				      )
 org-latex-format-inlinetask-function 
 'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME 
 CONTENTS)"]
 org-superstar-special-todo-items t
 org-image-actual-width '(450)
 org-ref-get-pdf-filename-function 
 'org-ref-get-pdf-filename-helm-bibtex
 org-roam-directory "/home/peter/Documents/org-roam/"
 org-latex-classes '(("apa6"
		      "\\documentclass[a4paper, jou, 11pt]{apa6}\n 
		      \\usepackage[nodoi]{apacite}\n 
		      \\usepackage[british]{babel}\n 
		      \\usepackage{inputenc}\n 
		      \\usepackage{amsmath}\n 
		      \\usepackage{graphicx}\n 
		      \\usepackage{csquotes}\n 
		      \\usepackage[hyphens]{url}\n 
		      \\usepackage[T1]{fontenc}\n 
		      \\usepackage{lmodern}\n 
		      \\usepackage{hyperref}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}"))
		     ("TaylorFrancis"
		      "\\documentclass[largeformat]{interact}\n 
		      \\usepackage{hyperref}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" 
		      . "\\subparagraph*{%s}"))
		     ("magictrick"
		      "\\documentclass[11pt, a4paper, twocolumn, 
		      twoside]{article}\n \\usepackage{ccicons}\n 
		      \\usepackage{pdfpages}\n 
		      \\usepackage{times}\n \\usepackage{helvet}\n 
		      \\usepackage{geometry}\n \\geometry{a4paper, 
		      total={170mm,250mm}, left=20mm, top=30mm}\n 
		      % header 2008 x 332 px\n 
		      \\usepackage{titlesec}\n 
		      \\titleformat{\\section}\n 
		      {\\bfseries}{\\thesection}{1em}{}\n 
		      \\titleformat{\\subsection}\n 
		      {\\itshape}{\\thesection}{1em}{}\n 
		      \\usepackage{fancyhdr}\n 
		      \\usepackage[font={small, it}, 
		      labelformat=empty]{caption}\n 
		      \\usepackage[hidelinks]{hyperref}\n 
		      \\pagestyle{fancy}\n 
		      \\renewcommand{\\headrulewidth}{0pt}\n 
		      \\renewcommand{\\footrulewidth}{0pt}\n 
		      \\setlength{\\parskip}{1em}\n 
		      \\renewcommand{\\baselinestretch}{1.1}\n 
		      \\setlength\\headheight{100.0pt}\n 
		      \\addtolength{\\textheight}{-100.0pt}\n 
		      \\fancyhead[LO]{\\Large{\\textsf{Magic 
		      Perspectives Presents}} 
		      \\includegraphics[width=\\textwidth]{header}}\n 
		      \\fancyhead[LE]{\\includegraphics[width=0.5\\textwidth]{header}}\n 
		      \\lfoot{Peter Prevos}\n 
		      \\rfoot{\\href{https://magicperspectives.net}{magicperspectives.net}}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}"))
		     ("Springer"
		      "\\documentclass[natbib]{svjour3}\n 
		      \\usepackage{hyperref}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" 
		      . "\\subparagraph*{%s}"))
		     ("trade"
		      "\n \\documentclass[11pt, twoside]{memoir}\n 
		      \\setstocksize{9in}{6in}\n 
		      \\settrimmedsize{\\stockheight}{\\stockwidth}{*}\n 
		      \\setlrmarginsandblock{2cm}{2cm}{*} % Left 
		      and right margin\n 
		      \\setulmarginsandblock{2cm}{2cm}{*} % Upper 
		      and lower margin\n \\checkandfixthelayout\n 
		      \\setcounter{tocdepth}{0}\n 
		      \\OnehalfSpacing\n \\usepackage{times}\n 
		      \\chapterstyle{bianchi}\n 
		      \\setsecheadstyle{\\normalfont \\raggedright 
		      \\textbf}\n 
		      \\setsubsecheadstyle{\\normalfont 
		      \\raggedright \\emph}\n 
		      \\setsubsubsecheadstyle{\\normalfont\\centering}\n 
		      \\usepackage[font={small, it}]{caption}\n 
		      \\usepackage{subcaption}\n 
		      \\captionsetup[subfigure]{justification=centering}\n 
		      \\usepackage{pdfpages}\n 
		      \\pagestyle{myheadings}\n 
		      \\usepackage{ccicons}\n 
		      \\usepackage{nicefrac}\n 
		      \\usepackage[authoryear]{natbib}\n 
		      \\bibliographystyle{apalike}\n 
		      \\usepackage{nohyperref}\n "
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" 
		      . "\\subparagraph*{%s}"))
		     ("ebook"
		      "\\documentclass[11pt, oneside]{memoir}\n 
		      \\setstocksize{9in}{6in}\n 
		      \\settrimmedsize{\\stockheight}{\\stockwidth}{*}\n 
		      \\setlrmarginsandblock{2cm}{2cm}{*} % Left 
		      and right margin\n 
		      \\setulmarginsandblock{2cm}{2cm}{*} % Upper 
		      and lower margin\n \\checkandfixthelayout\n 
		      \\usepackage{times}\n \\OnehalfSpacing\n 
		      \\usepackage[authoryear]{natbib}\n 
		      \\bibliographystyle{apalike}\n 
		      \\setlength{\\bibsep}{1pt}\n 
		      \\usepackage[raggedright]{sidecap}\n 
		      \\setsecheadstyle{\\normalfont \\raggedright 
		      \\textbf}\n 
		      \\setsubsecheadstyle{\\normalfont 
		      \\raggedright \\emph}\n 
		      \\usepackage{subcaption} \n 
		      \\usepackage[font={small, it}]{caption}\n 
		      \\captionsetup[subfigure]{justification=centering}\n 
		      \\usepackage{pdfpages}\n 
		      \\usepackage[unicode=true,\n 
		      bookmarks=true,bookmarksnumbered=false,bookmarksopen=true,\n 
		      bookmarksopenlevel=1, 
		      breaklinks=true,pdfborder={0 0 
		      0},backref=false,colorlinks=false,pdfborderstyle={/S/U/W 
		      .5}, allbordercolors={.8 .8 .8}]{hyperref}\n 
		      \\pagestyle{myheadings}\n 
		      \\setcounter{tocdepth}{0}\n 
		      \\usepackage{ccicons}\n 
		      \\usepackage{nicefrac}\n "
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}"))
		     ("article" "\\documentclass[11pt]{article}"
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}")
		      ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" 
		      . "\\subparagraph*{%s}"))
		     ("report" "\\documentclass[11pt]{report}" 
		     ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}"))
		     ("book" "\\documentclass[11pt]{book}" 
		     ("\\part{%s}" . "\\part*{%s}")
		      ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" 
		      . "\\subsubsection*{%s}"))
		     )
 org-html-format-headline-function 
 'org-html-format-headline-default-function
 org-confirm-babel-evaluate nil
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil 
 author:nil email:nil \\n:t"
 org-agenda-custom-commands '(("n" "Netherlands" tags-todo "NL")
			      ("o" "Outsource" tags-todo 
			      "outsource")
			      ("c" "Coliban Water"
			       ((agenda ""
				 ((org-agenda-span 7) 
				 (org-agenda-start-on-weekday 1)
				  (org-agenda-files
				   '("~/Documents/org-roam/coliban-water.org"))
				  (org-agenda-sorting-strategy 
				  '(priority-up)))
				 )
				(todo "NEXT"
				 ((org-agenda-files
				   '("~/Documents/org-roam/coliban-water.org"))
				  )
				 )
				(todo "WAITING"
				 ((org-agenda-files
				   '("~/Documents/org-roam/coliban-water.org"))
				  )
				 )
				)
			       )
			      ("p" "Priorities" tags-todo 
			      "+PRIORITY=\"A\"")
			      ("h" "Third Hemisphere"
			       ((agenda ""
				 ((org-agenda-span 2) 
				 (org-agenda-start-on-weekday nil)
				  (org-agenda-files 
				  '("~/Documents/org-roam/gtd.org"))
				  (org-agenda-sorting-strategy 
				  '(priority-up)))
				 )
				(todo "NEXT"
				 ((org-agenda-files 
				 '("~/Documents/org-roam/gtd.org"))))
				(todo "WAITING"
				 ((org-agenda-files 
				 '("~/Documents/org-roam/gtd.org"))))
				(stuck ""))
			       )
			      )
 org-directory "/home/peter/Documents/org-roam/"
 org-link-from-user-regexp "\\<peter@xps15-7590\\>\\|\\<Peter 
 Prevos\\>"
 org-ref-notes-function 'orb-edit-notes
 org-agenda-skip-deadline-if-done t
 org-default-notes-file "/home/peter/Documents/org-roam/inbox.org"
 )


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

* Re: Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)]
  2021-08-21 21:58 Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)] Peter Prevos
@ 2021-08-22 19:25 ` Tim Cross
  2021-08-23  2:28 ` Ihor Radchenko
  1 sibling, 0 replies; 4+ messages in thread
From: Tim Cross @ 2021-08-22 19:25 UTC (permalink / raw)
  To: emacs-orgmode


I would argue this is an org-roam bug rather than an org bug and so
needs to be reported to the org-roam maintainers.

org-roam is not part of org mode.

Peter Prevos <peter@prevos.net> writes:

> Hi, I use file variables on the first line of some Org mode files to indicate
> the local Flyspell dictionary, e.g.:
>
> -*- mode: org; ispell-local-dictionary: "nederlands" -*-
>
> This line sets the dictionary to Dutch for this file only.
>
> This is useful functionality that allows me to indicate the language of files
> other than my default language.
>
> It works great, except when I need to add an ID for use in Org-Roam using the
> org-id-get-create function.
>
> The new drawer is placed on the first line of the buffer, so the local variable
> declaration moves down and is as such no longer recognised as it is expected on
> line 1. (File variable documentation: 
> https://www.gnu.org/software/emacs/manual/html_node/emacs/Specifying-File-Variables.html)
>
> There is an ugly workaround by placing file variables at the end of the file, as
> documented in the linked page.
>
> Regards
>
> P:)



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

* Re: Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)]
  2021-08-21 21:58 Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)] Peter Prevos
  2021-08-22 19:25 ` Tim Cross
@ 2021-08-23  2:28 ` Ihor Radchenko
  2021-08-23  9:39   ` Peter Prevos
  1 sibling, 1 reply; 4+ messages in thread
From: Ihor Radchenko @ 2021-08-23  2:28 UTC (permalink / raw)
  To: Peter Prevos; +Cc: emacs-orgmode

Peter Prevos <peter@prevos.net> writes:

> -*- mode: org; ispell-local-dictionary: "nederlands" -*-
>
> It works great, except when I need to add an ID for use in 
> Org-Roam using the org-id-get-create function.

To make it work, convert the local-var line into proper comment. Just as
you would do in any other source code file:

# -*- mode: org; ispell-local-dictionary: "nederlands" -*-
:PROPERTIES:
:ID:       a60f6a47-9db9-49d6-ac00-307c7a84e43d
:END:

When you just have the line below, it is treated as ordinary paragraph
by Org, thus the property drawer is indeed inserted before:

:PROPERTIES:
:ID:       a60f6a47-9db9-49d6-ac00-307c7a84e43d
:END:
-*- mode: org; ispell-local-dictionary: "nederlands" -*-

Best,
Ihor


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

* Re: Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)]
  2021-08-23  2:28 ` Ihor Radchenko
@ 2021-08-23  9:39   ` Peter Prevos
  0 siblings, 0 replies; 4+ messages in thread
From: Peter Prevos @ 2021-08-23  9:39 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode


Ihor Radchenko <yantar92@gmail.com> writes:

> Peter Prevos <peter@prevos.net> writes:
>
>> -*- mode: org; ispell-local-dictionary: "nederlands" -*-
>>
>> It works great, except when I need to add an ID for use in 
>> Org-Roam using the org-id-get-create function.
>
> To make it work, convert the local-var line into proper 
> comment. Just as
> you would do in any other source code file:
>
> # -*- mode: org; ispell-local-dictionary: "nederlands" -*-
> :PROPERTIES:
> :ID:       a60f6a47-9db9-49d6-ac00-307c7a84e43d
> :END:
>
> When you just have the line below, it is treated as ordinary 
> paragraph
> by Org, thus the property drawer is indeed inserted before:
>
> :PROPERTIES:
> :ID:       a60f6a47-9db9-49d6-ac00-307c7a84e43d
> :END:
> -*- mode: org; ispell-local-dictionary: "nederlands" -*-
>
> Best,
> Ihor

Thanks Ihor, that makes sense.


-- 
Dr Peter Prevos
---------------
peterprevos.com


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

end of thread, other threads:[~2021-08-23  9:41 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-08-21 21:58 Bug: File variable no longer on first line when running org-id-get-create [9.4.4 (release_9.4.4 @ /usr/share/emacs/27.2/lisp/org/)] Peter Prevos
2021-08-22 19:25 ` Tim Cross
2021-08-23  2:28 ` Ihor Radchenko
2021-08-23  9:39   ` Peter Prevos

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

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

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