emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: Strangeness with CLOCK_MODELINE_TOTAL: today
@ 2017-11-20 21:18 Robert Irelan
  2017-11-20 21:25 ` Tim Cross
  0 siblings, 1 reply; 3+ messages in thread
From: Robert Irelan @ 2017-11-20 21:18 UTC (permalink / raw)
  To: emacs-orgmode

I've noticed 2 weirdnesses in the behavior of the
`CLOCK_MODELINE_TOTAL: today` property in recent versions of org-mode:

1. First, the clocked total for today resets at midnight UTC, not
midnight local time. This seems odd because all other times in Org
mode, including the times in the logbook, are recorded in local time,
and there's no provision for timezones in any Org-mode timestamps that
I've seen. I believe this arose due to this line in org-clock.el,
which requests time in UTC rather than local time using
org-decode-time:
http://orgmode.org/cgit.cgi/org-mode.git/tree/lisp/org-clock.el?id=04e0532ef53b17c482fb81da2687fb403207eb55#n1454.

2. Second, I have a particular heading in one of my org mode that
always resets the time clocked on it every time it's clocked out. It
acts as if it had `CLOCK_MODELINE_TOTAL: current`, even though it
actually has `CLOCK_MODELINE_TOTAL: today`. Other headings with
`CLOCK_MODELINE_TOTAL: today` seem to work as expected.

Modifying the org-decode-time line mentioned above to request local
time rather than UTC seems to fix both issues for me, but I don't know
why it fixes the second.

------------------------------------------------------------------------

Emacs  : GNU Emacs 25.3.1 (x86_64-apple-darwin16.7.0, NS
appkit-1504.83 Version 10.12.6 (Build 16G29))
 of 2017-09-18
Package: Org mode version 9.1.2 (9.1.2-37-g3f8d67-elpaplus @
~/path/to/orgdir2/.emacs.d/elpa/org-plus-contrib-20171113/)

current state:
==============
(setq
 org-protocol-default-template-key "p"
 org-clock-clocked-in-display 'frame-title
 org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-agenda-skip-deadle-prewarning-if-scheduled t
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate
 org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
                              (insert (format "cite:%s\n"
(org-entry-get (point) "Custom_ID"))))
                             )
 org-ref-pdf-directory "~/path/to/orgdir2/lib/"
 org-agenda-auto-exclude-function 'my-org-auto-exclude-function
 org-clock-history-length 23
 org-occur-hook '(org-first-headline-recenter)
 org-clock-in-prepare-hook '(my-org-mode-ask-effort)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-start-on-weekday nil
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-log-done 'time
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-drill-scope 'agenda-with-archives
 org-id-link-to-org-use-id t
 org-columns-default-format "%60ITEM(Task) %10Effort(Effort){:}
%10CLOCKSUM %10CLOCKSUM_T"
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-ref-open-pdf-function 'org-ref-open-pdf-at-point
 org-clock-idle-time 15
 org-ref-cite-onclick-function 'org-ref-cite-click-helm
 org-pomodoro-started-hook '(my-org-pomodoro-caffeinate)
 org-ref-insert-label-function 'org-ref-helm-insert-label-link
 org-agenda-sticky t
 org-ref-default-bibliography '("~/path/to/orgdir2/index.bib")
 org-pretty-entities t
 org-special-ctrl-a/e t
 org-agenda-todo-ignore-scheduled 'future
 org-agenda-skip-scheduled-if-done t
 org-font-lock-hook '(org-inlinetask-fontify)
 org-agenda-custom-commands '(("D" "Like d but include all TODOs (slow)"
                               ((tags "PRIORITY=\"A\""
                                 ((org-agenda-skip-function
                                   (quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
                                  (org-agenda-overriding-header
                                   "High-priority unfinished tasks:")
                                  )
                                 )
                                (agenda ""
                                 ((org-agenda-ndays 1)
                                  (org-agenda-overriding-header "Schedule"))
                                 )
                                (alltodo ""
                                 ((org-agenda-skip-function
                                   (quote
                                    (or (air-org-skip-subtree-if-habit)
                                     (air-org-skip-subtree-if-priority 65)
                                     (org-agenda-skip-if nil (quote
(scheduled deadline))))
                                    )
                                   )
                                  (org-agenda-overriding-header "ALL
normal priority tasks:"))
                                 )
                                )
                               ((org-agenda-compact-blocks t)))
                              ("d" "Daily agenda with high-priority
items isolated (slow)"
                               ((tags "PRIORITY=\"A\""
                                 ((org-agenda-skip-function
                                   (quote (org-agenda-skip-entry-if
(quote todo) (quote done))))
                                  (org-agenda-overriding-header
                                   "High-priority unfinished tasks:")
                                  )
                                 )
                                (agenda ""
                                 ((org-agenda-ndays 1)
                                  (org-agenda-overriding-header "Schedule"))
                                 )
                                )
                               ((org-agenda-compact-blocks t)))
                              ("R" "Week in review" agenda ""
                               ((org-agenda-span (quote week)
(org-agenda-start-on-weekday 0)
                                 (org-agenda-overriding-header "Week in Review")
                                 (org-agenda-files
                                  (let
                                   ((org-agenda-files org-timeline-files)
                                    (org-agenda-files nil (quote ifmode)))
                                   )
                                  )
                                 (org-agenda-start-with-log-mode t)
                                 (org-agenda-log-mode-items (quote
(clock state closed)))
                                 (org-agenda-archives-mode t))
                                )
                               )
                              ("Q/" "Archive occur"
                               (lambda (unused)
                                (let*
                                 ((tmp
                                   (if (boundp (quote
org-agenda-text-search-extra-files))
                                    org-agenda-text-search-extra-files
(quote nil))
                                   )
                                  (org-agenda-text-search-extra-files
                                   (cond ((null tmp) (quote (agenda-archives)))
                                    ((equal (car tmp) (quote
agenda-archives)) tmp)
                                    (t (cons (quote agenda-archives) tmp)))
                                   )
                                  )
                                 (call-interactively (quote
org-occur-in-agenda-files)))
                                )
                               "")
                              ("Q" . "Custom queries")
                              ("u" "Unscheduled TODOs" todo ""
                               ((org-agenda-skip-function
                                 (quote
                                  (org-agenda-skip-entry-if (quote
scheduled) (quote deadline)
                                   (quote regexp) "\n]+>")
                                  )
                                 )
                                (org-agenda-overriding-header
"Unscheduled TODO entries: ")
                                (org-agenda-sorting-strategy (quote
(time-down))))
                               )
                              ("n" "Agenda and all TODOs" ((agenda "")
(alltodo)))
                              ("n" "Agenda and all TODOs" ((agenda "")
(alltodo ""))))
 org-use-sub-superscripts '{}
 org-ref-bibliography-notes "~/path/to/orgdir2/index.org"
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-show-notification-handler '(closure (t) (message)
                                 (terminal-notifier-notify "Org Mode" message))
 org-default-notes-file "~/path/to/orgdir1/notes.org"
 org-clock-in-resume t
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
                          ("NEXT" :foreground "blue" :weight bold)
                          ("DONE" :foreground "forest green" :weight bold)
                          ("WAITING" :foreground "orange" :weight bold)
                          ("HOLD" :foreground "magenta" :weight bold)
                          ("CANCELLED" :foreground "forest green" :weight bold)
                          ("MEETING" :foreground "forest green" :weight bold)
                          ("PHONE" :foreground "forest green" :weight bold))
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-drill-learn-fraction 0.3
 org-from-is-user-regexp "\\<Robert Irelan\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-drill-adjust-intervals-for-early-and-late-repetitions-p t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-drill-left-cloze-delimiter "!|"
 org-babel-pre-tangle-hook '(save-buffer)
 org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
 org-log-redeadline 'time
 org-global-properties '(("Effort_ALL" .
                          "0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00
4:00 5:00 6:00 8:00")
                         ("SYTLE_ALL" . "habit"))
 org-mode-hook '(org-ref-org-menu org-clock-load
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-show-block-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-eldoc-load)
 org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
 org-outline-path-complete-in-steps nil
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t))
("WAITING" ("WAITING" . t))
                                ("HOLD" ("WAITING") ("HOLD" . t))
(done ("WAITING") ("HOLD"))
                                ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
                                ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
                                ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
 org-pomodoro-ticking-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/tick.wav"
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-clock-persist t
 org-refile-use-outline-path t
 org-clock-in-switch-to-state 'bh/clock-in-to-next
 org-directory "~/path/to/orgdir1"
 org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
 org-enforce-todo-dependencies t
 org-cycle-hook '(org-inlinetask-hide-tasks org-cycle-hide-archived-subtrees
                  org-cycle-hide-drawers org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-agenda-start-with-log-mode t
 org-pomodoro-start-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
 org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
 org-export-before-processing-hook '(gsc/drill-cloze-removal)
 org-agenda-text-search-extra-files '(agenda-archives
"~/path/to/orgdir1/notes.org"
                                      "~/path/to/orgdir2/notes.org")
 org-clock-persist-query-resume nil
 org-log-reschedule 'time
 org-ref-clean-bibtex-key-function '(lambda (key)
(replace-regexp-in-string ":" "" key))
 org-refile-allow-creating-parent-nodes 'confirm
 org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
                     (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|"
"CANCELLED(c@/!)" "PHONE"
                      "MEETING")
                     )
 org-ref-notes-directory "~/path/to/orgdir2"
 org-clock-frame-title-format '("" "%b - " org-mode-line-string)
 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)
 org-capture-before-finalize-hook '(org-gcal--capture-post)
 org-clock-report-include-clocking-task t
 org-agenda-span 1
 org-drill-right-cloze-delimiter "|!"
 org-gcal-client-secret "iE58YC1w8UFlQbuub7UlcjMR"
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-pomodoro-finished-hook '(my-org-pomodoro-lock-screen
my-org-pomodoro-finished-notify-hook)
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-ref-open-notes-function '(lambda nil (org-show-entry)
(outline-show-branches)
                               (outline-show-children) (org-cycle (quote (64)))
                               (recenter-top-bottom 0))
 org-agenda-skip-deadline-if-done t
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-link-parameters '(("printindex" :follow org-ref-index :export
                        (lambda (path desc format)
                         (cond ((eq format (quote latex)) (format
"printindex"))))
                        )
                       ("index" :follow (lambda (path) (occur path)) :export
                        (lambda (path desc format)
                         (cond ((eq format (quote latex)) (format
"\\index{%s}" path))))
                        )
                       ("bibentry" :follow
                        (lambda (_) (funcall
org-ref-cite-onclick-function nil)) :export
                        org-ref-format-bibentry :complete
org-bibentry-complete-link :help-echo
                        (lambda (window object position)
                         (when org-ref-show-citation-on-enter
                          (save-excursion (goto-char position)
                           (let
                            ((s (org-ref-format-entry
(org-ref-get-bibtex-key-under-cursor))))
                            (with-temp-buffer (insert s)
(fill-paragraph) (buffer-string)))
                           )
                          )
                         )
                        :face org-ref-cite-link-face-fn :display full :keymap
                        (keymap (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(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 (S-up . org-ref-sort-citation-link)
                         (S-right lambda nil (interactive)
(org-ref-swap-citation-link 1))
                         (S-left lambda nil (interactive)
(org-ref-swap-citation-link -1))
                         (C-right . org-ref-next-key) (C-left .
org-ref-previous-key)
                         (16777337 lambda nil
                          "Paste key at point. Assumes the first thing
in the killring is a key."
                          (interactive) (org-ref-insert-key-at-point
(car kill-ring)))
                         (16777303 lambda nil "Copy all the keys at
point." (interactive)
                          (kill-new (org-element-property :path
(org-element-context))))
                         (16777335 lambda nil (interactive)
                          (kill-new (car (org-ref-get-bibtex-key-and-file))))
                         (16777318 lambda nil (interactive)
                          (save-excursion (org-ref-open-citation-at-point)
                           (kill-new (org-ref-format-bibtex-entry-at-point)))
                          )
                         (16777319 . org-ref-google-scholar-at-point)
                         (16777317 lambda nil "Email entry at point"
(interactive)
                          (org-ref-open-citation-at-point)
(org-ref-email-bibtex-entry))
                         (16777315 . org-ref-wos-citing-at-point)
                         (16777330 . org-ref-wos-related-at-point)
                         (16777326 . org-ref-open-notes-at-point)
                         (16777328 . org-ref-open-pdf-at-point)
                         (16777333 . org-ref-open-url-at-point)
                         (16777314 . org-ref-open-citation-at-point)
(follow-link . mouse-face)
                         (mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse))
                        :store org-ref-bibtex-store-link)
                       ("Cref" :follow org-ref-ref-follow :export
org-ref-Cref-export :complete
                        org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("cref" :follow org-ref-ref-follow :export
org-ref-cref-export :complete
                        org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("autoref" :follow org-ref-autoref-follow
:export org-ref-autoref-export
                        :complete org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("eqref" :follow org-ref-eqref-follow :export
org-ref-eqref-export
                        :complete org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("nameref" :follow org-ref-follow-nameref
:export org-ref-export-nameref
                        :complete org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("pageref" :follow org-ref-follow-pageref :export
                        (lambda (path desc format)
                         (cond
                          ((eq format (quote html)) (format
"(<pageref>%s</pageref>)" path))
                          ((eq format (quote latex)) (format
"\\pageref{%s}" path)))
                         )
                        :face org-ref-ref-face-fn :complete
org-pageref-complete-link
                        :help-echo org-ref-ref-help-echo)
                       ("ref" :follow org-ref-ref-follow :export
org-ref-ref-export :complete
                        org-ref-complete-link :face
org-ref-ref-face-fn :help-echo
                        org-ref-ref-help-echo)
                       ("label" :follow
                        (lambda (label)
                         "On clicking count the number of label tags
used in the buffer.\nA number greater than one means multiple labels!"
                         (let

                          ((count


                            (org-ref-count-labels label)





 )

                           )

                          (message

                           (format



                            "%s occurence%s"



                            count



                            (if













                             (or



























                              (= count 0)



























                              (> count 1)



























                              )















                             "s" "")



                            )

                           (org-ref-count-labels label)

                           )

                          )
                         )
                        :export
                        (lambda (keyword desc format)
                         (cond ((eq format (quote html)) (format "<div
id=\"%s\">" keyword))
                          ((eq format (quote latex)) (format
"\\label{%s}" keyword)))
                         )
                        :store org-label-store-link :face
org-ref-label-face-fn :help-echo
                        (lambda (window object position)
                         (save-excursion (goto-char position)
                          (let ((s (org-ref-link-message)))
                           (let ((temp-buffer (generate-new-buffer " *temp*")))
                            (save-current-buffer (set-buffer temp-buffer)
                             (unwind-protect
                              (progn (insert s) (fill-paragraph)
(buffer-string))
                              (and (buffer-name temp-buffer)
(kill-buffer temp-buffer)))
                             )
                            )
                           )
                          )
                         )
                        )
                       ("list-of-tables" :follow org-ref-list-of-tables :export
                        (lambda (keyword desc format)
                         (cond ((eq format (quote latex)) (format
"\\listoftables"))))
                        )
                       ("list-of-figures" :follow
org-ref-list-of-figures :export
                        (lambda (keyword desc format)
                         (cond ((eq format (quote latex)) (format
"\\listoffigures"))))
                        )
                       ("addbibresource" :follow
org-ref-follow-addbibresource :export
                        (lambda (keyword desc format)
                         (cond ((eq format (quote html)) (format ""))
                          ((eq format (quote latex)) (format
"\\addbibresource{%s}" keyword)))
                         )
                        )
                       ("bibliographystyle" :export
                        (lambda (keyword desc format)
                         (cond
                          ((or (eq format (quote latex)) (eq format
(quote beamer)))
                           (format "\\bibliographystyle{%s}" keyword))
                          (t ""))
                         )
                        )
                       ("printbibliography" :follow
org-ref-open-bibliography :export
                        (lambda (keyword desc format)
                         (cond ((eq format (quote org))
(org-ref-get-org-bibliography))
                          ((eq format (quote html))
(org-ref-get-html-bibliography))
                          ((eq format (quote latex)) "\\printbibliography"))
                         )
                        )
                       ("nobibliography" :follow
org-ref-open-bibliography :export
                        org-ref-nobibliography-format)
                       ("bibliography" :follow org-ref-open-bibliography :export
                        org-ref-bibliography-format :complete
org-bibliography-complete-link
                        :help-echo
                        (lambda (window object position)
                         (save-excursion (goto-char position)
                          (let ((s (org-ref-link-message)))
                           (let ((temp-buffer (generate-new-buffer " *temp*")))
                            (save-current-buffer (set-buffer temp-buffer)
                             (unwind-protect
                              (progn (insert s) (fill-paragraph)
(buffer-string))
                              (and (buffer-name temp-buffer)
(kill-buffer temp-buffer)))
                             )
                            )
                           )
                          )
                         )
                        :face org-ref-bibliography-face-fn)
                       ("Acp" :follow or-follow-acronym :face
org-ref-acronym-face :help-echo
                        or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\Glspl{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("acp" :follow or-follow-acronym :face
org-ref-acronym-face :help-echo
                        or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\glspl{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("Ac" :follow or-follow-acronym :face
org-ref-acronym-face :help-echo
                        or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\Gls{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("ac" :follow or-follow-acronym :face
org-ref-acronym-face :help-echo
                        or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\gls{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("acrfull" :follow or-follow-acronym :face
org-ref-acronym-face
                        :help-echo or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\acrfull{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("acrlong" :follow or-follow-acronym :face
org-ref-acronym-face
                        :help-echo or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\acrlong{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("acrshort" :follow or-follow-acronym :face
org-ref-acronym-face
                        :help-echo or-acronym-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\acrshort{%s}" path))
                          (t (format "%s" (upcase path))))
                         )
                        )
                       ("glsdesc" :follow or-follow-glossary :face
org-ref-glossary-face
                        :help-echo or-glossary-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\glsdesc{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("glssymbol" :follow or-follow-glossary :face
org-ref-glossary-face
                        :help-echo or-glossary-tooltip :export
                        (closure (t) (path _desc format)
                         (cond ((eq format (quote latex)) (format
"\\glssymbol{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("glslink" :follow or-follow-glossary :face
org-ref-glossary-face
                        :help-echo or-glossary-tooltip :export
                        (closure (t) (path desc format)
                         (cond
                          ((eq format (quote latex)) (format
"\\glslink{%s}{%s}" path desc))
                          (t (format "%s" path)))
                         )
                        )
                       ("Glspl" :follow or-follow-glossary :face
org-ref-glossary-face
                        :help-echo or-glossary-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\Glspl{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("Gls" :follow or-follow-glossary :face
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\Gls{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("glspl" :follow or-follow-glossary :face
org-ref-glossary-face
                        :help-echo or-glossary-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\glspl{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("gls" :follow or-follow-glossary :face
org-ref-glossary-face :help-echo
                        or-glossary-tooltip :export
                        (closure (t) (path _ format)
                         (cond ((eq format (quote latex)) (format
"\\gls{%s}" path))
                          (t (format "%s" path)))
                         )
                        )
                       ("rmail" :follow org-rmail-open :store
org-rmail-store-link)
                       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
                       ("irc" :follow org-irc-visit :store org-irc-store-link)
                       ("info" :follow org-info-open :export
org-info-export :store
                        org-info-store-link)
                       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
                       ("docview" :follow org-docview-open :export
org-docview-export :store
                        org-docview-store-link)
                       ("bibtex" :follow org-bibtex-open :store
org-bibtex-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) ("id" :follow
org-id-open)
                       ("file+sys") ("file+emacs")
                       ("elfeed" :follow elfeed-link-open :store
elfeed-link-store-link)
                       ("doi" :follow doi-link-menu :export
                        (lambda (doi desc format)
                         (cond
                          ((eq format (quote html))
                           (format "<a href=\"%s%s\">%s</a>"
doi-utils-dx-doi-org-url doi
                            (or desc (concat "doi:" doi)))
                           )
                          ((eq format (quote latex))
                           (format "\\href{%s%s}{%s}"
doi-utils-dx-doi-org-url doi
                            (or desc (concat "doi:" doi)))
                           )
                          )
                         )
                        )
                       ("elisp" :follow org--open-elisp-link)
                       ("file" :complete org-file-complete-link)
                       ("ftp" :follow (lambda (path) (browse-url
(concat "ftp:" path))))
                       ("help" :follow org--open-help-link)
                       ("http" :follow (lambda (path) (browse-url
(concat "http:" path))))
                       ("https" :follow (lambda (path) (browse-url
(concat "https:" path))))
                       ("mailto" :follow (lambda (path) (browse-url
(concat "mailto:" path))))
                       ("news" :follow (lambda (path) (browse-url
(concat "news:" path))))
                       ("shell" :follow org--open-shell-link))
 org-pomodoro-long-break-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell_multiple.wav"
 org-indirect-buffer-display 'current-window
 org-clock-sound "~/path/to/orgdir2/.emacs.d/Japanese Temple Bell
Small-SoundBible.com-113624364.wav"
 org-pomodoro-finished-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
 org-ref-insert-link-function 'org-ref-helm-insert-cite-link
 org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
 org-pomodoro-short-break-sound
"~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
 org-ref-notes-function '(lambda (thekey)
                          (let*
                           ((results (org-ref-get-bibtex-key-and-file thekey))
                            (key (car results)) (bibfile (cdr results)))
                           (save-excursion
                            (with-temp-buffer (insert-file-contents bibfile)
                             (bibtex-set-dialect
(parsebib-find-bibtex-dialect) t)
                             (bibtex-search-entry key)
(org-ref-open-bibtex-notes))
                            )
                           )
                          )
 org-agenda-files "~/path/to/orgdir2/.emacs.d/agenda_files"
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer bh/clock-out-maybe)
 org-drill-add-random-noise-to-intervals-p t
 org-clock-out-remove-zero-time-clocks t
 org-refile-target-verify-function 'bh/verify-refile-target
 )

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

* Re: Bug: Strangeness with CLOCK_MODELINE_TOTAL: today
  2017-11-20 21:18 Bug: Strangeness with CLOCK_MODELINE_TOTAL: today Robert Irelan
@ 2017-11-20 21:25 ` Tim Cross
  2017-11-21  2:57   ` Robert Irelan
  0 siblings, 1 reply; 3+ messages in thread
From: Tim Cross @ 2017-11-20 21:25 UTC (permalink / raw)
  To: Robert Irelan; +Cc: Org-mode

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

There are a number of reported issues with org and inconsistencies in
handling time zones. I will be spending some time to first update the tests
for time related functions in org to try and scope the issue and then
asking the org community to help re-factor if/where needed once I start my
holidays next week.

Tim

On 21 November 2017 at 08:18, Robert Irelan <rirelan@gmail.com> wrote:

> I've noticed 2 weirdnesses in the behavior of the
> `CLOCK_MODELINE_TOTAL: today` property in recent versions of org-mode:
>
> 1. First, the clocked total for today resets at midnight UTC, not
> midnight local time. This seems odd because all other times in Org
> mode, including the times in the logbook, are recorded in local time,
> and there's no provision for timezones in any Org-mode timestamps that
> I've seen. I believe this arose due to this line in org-clock.el,
> which requests time in UTC rather than local time using
> org-decode-time:
> http://orgmode.org/cgit.cgi/org-mode.git/tree/lisp/org-clock.el?id=
> 04e0532ef53b17c482fb81da2687fb403207eb55#n1454.
>
> 2. Second, I have a particular heading in one of my org mode that
> always resets the time clocked on it every time it's clocked out. It
> acts as if it had `CLOCK_MODELINE_TOTAL: current`, even though it
> actually has `CLOCK_MODELINE_TOTAL: today`. Other headings with
> `CLOCK_MODELINE_TOTAL: today` seem to work as expected.
>
> Modifying the org-decode-time line mentioned above to request local
> time rather than UTC seems to fix both issues for me, but I don't know
> why it fixes the second.
>
> ------------------------------------------------------------------------
>
> Emacs  : GNU Emacs 25.3.1 (x86_64-apple-darwin16.7.0, NS
> appkit-1504.83 Version 10.12.6 (Build 16G29))
>  of 2017-09-18
> Package: Org mode version 9.1.2 (9.1.2-37-g3f8d67-elpaplus @
> ~/path/to/orgdir2/.emacs.d/elpa/org-plus-contrib-20171113/)
>
> current state:
> ==============
> (setq
>  org-protocol-default-template-key "p"
>  org-clock-clocked-in-display 'frame-title
>  org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
>  org-agenda-skip-deadle-prewarning-if-scheduled t
>  org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate
>  org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
>                               (insert (format "cite:%s\n"
> (org-entry-get (point) "Custom_ID"))))
>                              )
>  org-ref-pdf-directory "~/path/to/orgdir2/lib/"
>  org-agenda-auto-exclude-function 'my-org-auto-exclude-function
>  org-clock-history-length 23
>  org-occur-hook '(org-first-headline-recenter)
>  org-clock-in-prepare-hook '(my-org-mode-ask-effort)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-agenda-start-on-weekday nil
>  org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME
> CONTENTS)"]
>  org-log-done 'time
>  org-latex-format-inlinetask-function
> 'org-latex-format-inlinetask-default-function
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-drill-scope 'agenda-with-archives
>  org-id-link-to-org-use-id t
>  org-columns-default-format "%60ITEM(Task) %10Effort(Effort){:}
> %10CLOCKSUM %10CLOCKSUM_T"
>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>  org-ref-open-pdf-function 'org-ref-open-pdf-at-point
>  org-clock-idle-time 15
>  org-ref-cite-onclick-function 'org-ref-cite-click-helm
>  org-pomodoro-started-hook '(my-org-pomodoro-caffeinate)
>  org-ref-insert-label-function 'org-ref-helm-insert-label-link
>  org-agenda-sticky t
>  org-ref-default-bibliography '("~/path/to/orgdir2/index.bib")
>  org-pretty-entities t
>  org-special-ctrl-a/e t
>  org-agenda-todo-ignore-scheduled 'future
>  org-agenda-skip-scheduled-if-done t
>  org-font-lock-hook '(org-inlinetask-fontify)
>  org-agenda-custom-commands '(("D" "Like d but include all TODOs (slow)"
>                                ((tags "PRIORITY=\"A\""
>                                  ((org-agenda-skip-function
>                                    (quote (org-agenda-skip-entry-if
> (quote todo) (quote done))))
>                                   (org-agenda-overriding-header
>                                    "High-priority unfinished tasks:")
>                                   )
>                                  )
>                                 (agenda ""
>                                  ((org-agenda-ndays 1)
>                                   (org-agenda-overriding-header
> "Schedule"))
>                                  )
>                                 (alltodo ""
>                                  ((org-agenda-skip-function
>                                    (quote
>                                     (or (air-org-skip-subtree-if-habit)
>                                      (air-org-skip-subtree-if-priority 65)
>                                      (org-agenda-skip-if nil (quote
> (scheduled deadline))))
>                                     )
>                                    )
>                                   (org-agenda-overriding-header "ALL
> normal priority tasks:"))
>                                  )
>                                 )
>                                ((org-agenda-compact-blocks t)))
>                               ("d" "Daily agenda with high-priority
> items isolated (slow)"
>                                ((tags "PRIORITY=\"A\""
>                                  ((org-agenda-skip-function
>                                    (quote (org-agenda-skip-entry-if
> (quote todo) (quote done))))
>                                   (org-agenda-overriding-header
>                                    "High-priority unfinished tasks:")
>                                   )
>                                  )
>                                 (agenda ""
>                                  ((org-agenda-ndays 1)
>                                   (org-agenda-overriding-header
> "Schedule"))
>                                  )
>                                 )
>                                ((org-agenda-compact-blocks t)))
>                               ("R" "Week in review" agenda ""
>                                ((org-agenda-span (quote week)
> (org-agenda-start-on-weekday 0)
>                                  (org-agenda-overriding-header "Week in
> Review")
>                                  (org-agenda-files
>                                   (let
>                                    ((org-agenda-files org-timeline-files)
>                                     (org-agenda-files nil (quote ifmode)))
>                                    )
>                                   )
>                                  (org-agenda-start-with-log-mode t)
>                                  (org-agenda-log-mode-items (quote
> (clock state closed)))
>                                  (org-agenda-archives-mode t))
>                                 )
>                                )
>                               ("Q/" "Archive occur"
>                                (lambda (unused)
>                                 (let*
>                                  ((tmp
>                                    (if (boundp (quote
> org-agenda-text-search-extra-files))
>                                     org-agenda-text-search-extra-files
> (quote nil))
>                                    )
>                                   (org-agenda-text-search-extra-files
>                                    (cond ((null tmp) (quote
> (agenda-archives)))
>                                     ((equal (car tmp) (quote
> agenda-archives)) tmp)
>                                     (t (cons (quote agenda-archives) tmp)))
>                                    )
>                                   )
>                                  (call-interactively (quote
> org-occur-in-agenda-files)))
>                                 )
>                                "")
>                               ("Q" . "Custom queries")
>                               ("u" "Unscheduled TODOs" todo ""
>                                ((org-agenda-skip-function
>                                  (quote
>                                   (org-agenda-skip-entry-if (quote
> scheduled) (quote deadline)
>                                    (quote regexp) "\n]+>")
>                                   )
>                                  )
>                                 (org-agenda-overriding-header
> "Unscheduled TODO entries: ")
>                                 (org-agenda-sorting-strategy (quote
> (time-down))))
>                                )
>                               ("n" "Agenda and all TODOs" ((agenda "")
> (alltodo)))
>                               ("n" "Agenda and all TODOs" ((agenda "")
> (alltodo ""))))
>  org-use-sub-superscripts '{}
>  org-ref-bibliography-notes "~/path/to/orgdir2/index.org"
>  org-latex-format-headline-function 'org-latex-format-headline-
> default-function
>  org-show-notification-handler '(closure (t) (message)
>                                  (terminal-notifier-notify "Org Mode"
> message))
>  org-default-notes-file "~/path/to/orgdir1/notes.org"
>  org-clock-in-resume t
>  org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
>                           ("NEXT" :foreground "blue" :weight bold)
>                           ("DONE" :foreground "forest green" :weight bold)
>                           ("WAITING" :foreground "orange" :weight bold)
>                           ("HOLD" :foreground "magenta" :weight bold)
>                           ("CANCELLED" :foreground "forest green" :weight
> bold)
>                           ("MEETING" :foreground "forest green" :weight
> bold)
>                           ("PHONE" :foreground "forest green" :weight
> bold))
>  org-after-todo-state-change-hook '(org-clock-out-if-current)
>  org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
>  org-odt-format-headline-function 'org-odt-format-headline-
> default-function
>  org-drill-learn-fraction 0.3
>  org-from-is-user-regexp "\\<Robert Irelan\\>"
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
>  org-drill-adjust-intervals-for-early-and-late-repetitions-p t
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-drill-left-cloze-delimiter "!|"
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
>  org-log-redeadline 'time
>  org-global-properties '(("Effort_ALL" .
>                           "0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00
> 4:00 5:00 6:00 8:00")
>                          ("SYTLE_ALL" . "habit"))
>  org-mode-hook '(org-ref-org-menu org-clock-load
>                  #[0 "\300\301\302\303\304$\207"
>                    [add-hook change-major-mode-hook org-show-block-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-eldoc-load)
>  org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
>  org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
>  org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
> "\n\n(fn ENTRY)"]
>  org-outline-path-complete-in-steps nil
>  org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t))
> ("WAITING" ("WAITING" . t))
>                                 ("HOLD" ("WAITING") ("HOLD" . t))
> (done ("WAITING") ("HOLD"))
>                                 ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
>                                 ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
>                                 ("DONE" ("WAITING") ("CANCELLED")
> ("HOLD")))
>  org-archive-hook '(org-attach-archive-delete-maybe)
>  org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
> CONTENTS WIDTH)"]
>  org-pomodoro-ticking-sound
> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/tick.wav"
>  org-odt-format-inlinetask-function 'org-odt-format-inlinetask-
> default-function
>  org-clock-persist t
>  org-refile-use-outline-path t
>  org-clock-in-switch-to-state 'bh/clock-in-to-next
>  org-directory "~/path/to/orgdir1"
>  org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
>  org-enforce-todo-dependencies t
>  org-cycle-hook '(org-inlinetask-hide-tasks org-cycle-hide-archived-
> subtrees
>                   org-cycle-hide-drawers org-cycle-show-empty-lines
>                   org-optimize-window-after-visibility-change)
>  org-agenda-start-with-log-mode t
>  org-pomodoro-start-sound
> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>  org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
>  org-export-before-processing-hook '(gsc/drill-cloze-removal)
>  org-agenda-text-search-extra-files '(agenda-archives
> "~/path/to/orgdir1/notes.org"
>                                       "~/path/to/orgdir2/notes.org")
>  org-clock-persist-query-resume nil
>  org-log-reschedule 'time
>  org-ref-clean-bibtex-key-function '(lambda (key)
> (replace-regexp-in-string ":" "" key))
>  org-refile-allow-creating-parent-nodes 'confirm
>  org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
>                      (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|"
> "CANCELLED(c@/!)" "PHONE"
>                       "MEETING")
>                      )
>  org-ref-notes-directory "~/path/to/orgdir2"
>  org-clock-frame-title-format '("" "%b - " org-mode-line-string)
>  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)
>  org-capture-before-finalize-hook '(org-gcal--capture-post)
>  org-clock-report-include-clocking-task t
>  org-agenda-span 1
>  org-drill-right-cloze-delimiter "|!"
>  org-gcal-client-secret "iE58YC1w8UFlQbuub7UlcjMR"
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-pomodoro-finished-hook '(my-org-pomodoro-lock-screen
> my-org-pomodoro-finished-notify-hook)
>  org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
>  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
>  org-ref-open-notes-function '(lambda nil (org-show-entry)
> (outline-show-branches)
>                                (outline-show-children) (org-cycle (quote
> (64)))
>                                (recenter-top-bottom 0))
>  org-agenda-skip-deadline-if-done t
>  org-html-format-headline-function 'org-html-format-headline-
> default-function
>  org-link-parameters '(("printindex" :follow org-ref-index :export
>                         (lambda (path desc format)
>                          (cond ((eq format (quote latex)) (format
> "printindex"))))
>                         )
>                        ("index" :follow (lambda (path) (occur path))
> :export
>                         (lambda (path desc format)
>                          (cond ((eq format (quote latex)) (format
> "\\index{%s}" path))))
>                         )
>                        ("bibentry" :follow
>                         (lambda (_) (funcall
> org-ref-cite-onclick-function nil)) :export
>                         org-ref-format-bibentry :complete
> org-bibentry-complete-link :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
> (org-ref-get-bibtex-key-under-cursor))))
>                             (with-temp-buffer (insert s)
> (fill-paragraph) (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (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 (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
> (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
> (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
> org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing
> in the killring is a key."
>                           (interactive) (org-ref-insert-key-at-point
> (car kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at
> point." (interactive)
>                           (kill-new (org-element-property :path
> (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car (org-ref-get-bibtex-key-and-
> file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new (org-ref-format-bibtex-entry-
> at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
> (interactive)
>                           (org-ref-open-citation-at-point)
> (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
> (follow-link . mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
> org-open-at-mouse))
>                         :store org-ref-bibtex-store-link)
>                        ("Cref" :follow org-ref-ref-follow :export
> org-ref-Cref-export :complete
>                         org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("cref" :follow org-ref-ref-follow :export
> org-ref-cref-export :complete
>                         org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("autoref" :follow org-ref-autoref-follow
> :export org-ref-autoref-export
>                         :complete org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("eqref" :follow org-ref-eqref-follow :export
> org-ref-eqref-export
>                         :complete org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("nameref" :follow org-ref-follow-nameref
> :export org-ref-export-nameref
>                         :complete org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("pageref" :follow org-ref-follow-pageref :export
>                         (lambda (path desc format)
>                          (cond
>                           ((eq format (quote html)) (format
> "(<pageref>%s</pageref>)" path))
>                           ((eq format (quote latex)) (format
> "\\pageref{%s}" path)))
>                          )
>                         :face org-ref-ref-face-fn :complete
> org-pageref-complete-link
>                         :help-echo org-ref-ref-help-echo)
>                        ("ref" :follow org-ref-ref-follow :export
> org-ref-ref-export :complete
>                         org-ref-complete-link :face
> org-ref-ref-face-fn :help-echo
>                         org-ref-ref-help-echo)
>                        ("label" :follow
>                         (lambda (label)
>                          "On clicking count the number of label tags
> used in the buffer.\nA number greater than one means multiple labels!"
>                          (let
>
>                           ((count
>
>
>                             (org-ref-count-labels label)
>
>
>
>
>
>  )
>
>                            )
>
>                           (message
>
>                            (format
>
>
>
>                             "%s occurence%s"
>
>
>
>                             count
>
>
>
>                             (if
>
>
>
>
>
>
>
>
>
>
>
>
>
>                              (or
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>                               (= count 0)
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>                               (> count 1)
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>                               )
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>                              "s" "")
>
>
>
>                             )
>
>                            (org-ref-count-labels label)
>
>                            )
>
>                           )
>                          )
>                         :export
>                         (lambda (keyword desc format)
>                          (cond ((eq format (quote html)) (format "<div
> id=\"%s\">" keyword))
>                           ((eq format (quote latex)) (format
> "\\label{%s}" keyword)))
>                          )
>                         :store org-label-store-link :face
> org-ref-label-face-fn :help-echo
>                         (lambda (window object position)
>                          (save-excursion (goto-char position)
>                           (let ((s (org-ref-link-message)))
>                            (let ((temp-buffer (generate-new-buffer "
> *temp*")))
>                             (save-current-buffer (set-buffer temp-buffer)
>                              (unwind-protect
>                               (progn (insert s) (fill-paragraph)
> (buffer-string))
>                               (and (buffer-name temp-buffer)
> (kill-buffer temp-buffer)))
>                              )
>                             )
>                            )
>                           )
>                          )
>                         )
>                        ("list-of-tables" :follow org-ref-list-of-tables
> :export
>                         (lambda (keyword desc format)
>                          (cond ((eq format (quote latex)) (format
> "\\listoftables"))))
>                         )
>                        ("list-of-figures" :follow
> org-ref-list-of-figures :export
>                         (lambda (keyword desc format)
>                          (cond ((eq format (quote latex)) (format
> "\\listoffigures"))))
>                         )
>                        ("addbibresource" :follow
> org-ref-follow-addbibresource :export
>                         (lambda (keyword desc format)
>                          (cond ((eq format (quote html)) (format ""))
>                           ((eq format (quote latex)) (format
> "\\addbibresource{%s}" keyword)))
>                          )
>                         )
>                        ("bibliographystyle" :export
>                         (lambda (keyword desc format)
>                          (cond
>                           ((or (eq format (quote latex)) (eq format
> (quote beamer)))
>                            (format "\\bibliographystyle{%s}" keyword))
>                           (t ""))
>                          )
>                         )
>                        ("printbibliography" :follow
> org-ref-open-bibliography :export
>                         (lambda (keyword desc format)
>                          (cond ((eq format (quote org))
> (org-ref-get-org-bibliography))
>                           ((eq format (quote html))
> (org-ref-get-html-bibliography))
>                           ((eq format (quote latex))
> "\\printbibliography"))
>                          )
>                         )
>                        ("nobibliography" :follow
> org-ref-open-bibliography :export
>                         org-ref-nobibliography-format)
>                        ("bibliography" :follow org-ref-open-bibliography
> :export
>                         org-ref-bibliography-format :complete
> org-bibliography-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (save-excursion (goto-char position)
>                           (let ((s (org-ref-link-message)))
>                            (let ((temp-buffer (generate-new-buffer "
> *temp*")))
>                             (save-current-buffer (set-buffer temp-buffer)
>                              (unwind-protect
>                               (progn (insert s) (fill-paragraph)
> (buffer-string))
>                               (and (buffer-name temp-buffer)
> (kill-buffer temp-buffer)))
>                              )
>                             )
>                            )
>                           )
>                          )
>                         :face org-ref-bibliography-face-fn)
>                        ("Acp" :follow or-follow-acronym :face
> org-ref-acronym-face :help-echo
>                         or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\Glspl{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("acp" :follow or-follow-acronym :face
> org-ref-acronym-face :help-echo
>                         or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\glspl{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("Ac" :follow or-follow-acronym :face
> org-ref-acronym-face :help-echo
>                         or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\Gls{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("ac" :follow or-follow-acronym :face
> org-ref-acronym-face :help-echo
>                         or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\gls{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("acrfull" :follow or-follow-acronym :face
> org-ref-acronym-face
>                         :help-echo or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\acrfull{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("acrlong" :follow or-follow-acronym :face
> org-ref-acronym-face
>                         :help-echo or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\acrlong{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("acrshort" :follow or-follow-acronym :face
> org-ref-acronym-face
>                         :help-echo or-acronym-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\acrshort{%s}" path))
>                           (t (format "%s" (upcase path))))
>                          )
>                         )
>                        ("glsdesc" :follow or-follow-glossary :face
> org-ref-glossary-face
>                         :help-echo or-glossary-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\glsdesc{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("glssymbol" :follow or-follow-glossary :face
> org-ref-glossary-face
>                         :help-echo or-glossary-tooltip :export
>                         (closure (t) (path _desc format)
>                          (cond ((eq format (quote latex)) (format
> "\\glssymbol{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("glslink" :follow or-follow-glossary :face
> org-ref-glossary-face
>                         :help-echo or-glossary-tooltip :export
>                         (closure (t) (path desc format)
>                          (cond
>                           ((eq format (quote latex)) (format
> "\\glslink{%s}{%s}" path desc))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("Glspl" :follow or-follow-glossary :face
> org-ref-glossary-face
>                         :help-echo or-glossary-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\Glspl{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("Gls" :follow or-follow-glossary :face
> org-ref-glossary-face :help-echo
>                         or-glossary-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\Gls{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("glspl" :follow or-follow-glossary :face
> org-ref-glossary-face
>                         :help-echo or-glossary-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\glspl{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("gls" :follow or-follow-glossary :face
> org-ref-glossary-face :help-echo
>                         or-glossary-tooltip :export
>                         (closure (t) (path _ format)
>                          (cond ((eq format (quote latex)) (format
> "\\gls{%s}" path))
>                           (t (format "%s" path)))
>                          )
>                         )
>                        ("rmail" :follow org-rmail-open :store
> org-rmail-store-link)
>                        ("mhe" :follow org-mhe-open :store
> org-mhe-store-link)
>                        ("irc" :follow org-irc-visit :store
> org-irc-store-link)
>                        ("info" :follow org-info-open :export
> org-info-export :store
>                         org-info-store-link)
>                        ("gnus" :follow org-gnus-open :store
> org-gnus-store-link)
>                        ("docview" :follow org-docview-open :export
> org-docview-export :store
>                         org-docview-store-link)
>                        ("bibtex" :follow org-bibtex-open :store
> org-bibtex-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) ("id" :follow
> org-id-open)
>                        ("file+sys") ("file+emacs")
>                        ("elfeed" :follow elfeed-link-open :store
> elfeed-link-store-link)
>                        ("doi" :follow doi-link-menu :export
>                         (lambda (doi desc format)
>                          (cond
>                           ((eq format (quote html))
>                            (format "<a href=\"%s%s\">%s</a>"
> doi-utils-dx-doi-org-url doi
>                             (or desc (concat "doi:" doi)))
>                            )
>                           ((eq format (quote latex))
>                            (format "\\href{%s%s}{%s}"
> doi-utils-dx-doi-org-url doi
>                             (or desc (concat "doi:" doi)))
>                            )
>                           )
>                          )
>                         )
>                        ("elisp" :follow org--open-elisp-link)
>                        ("file" :complete org-file-complete-link)
>                        ("ftp" :follow (lambda (path) (browse-url
> (concat "ftp:" path))))
>                        ("help" :follow org--open-help-link)
>                        ("http" :follow (lambda (path) (browse-url
> (concat "http:" path))))
>                        ("https" :follow (lambda (path) (browse-url
> (concat "https:" path))))
>                        ("mailto" :follow (lambda (path) (browse-url
> (concat "mailto:" path))))
>                        ("news" :follow (lambda (path) (browse-url
> (concat "news:" path))))
>                        ("shell" :follow org--open-shell-link))
>  org-pomodoro-long-break-sound
> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell_multiple.wav"
>  org-indirect-buffer-display 'current-window
>  org-clock-sound "~/path/to/orgdir2/.emacs.d/Japanese Temple Bell
> Small-SoundBible.com-113624364.wav"
>  org-pomodoro-finished-sound
> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>  org-ref-insert-link-function 'org-ref-helm-insert-cite-link
>  org-html-format-inlinetask-function
> 'org-html-format-inlinetask-default-function
>  org-pomodoro-short-break-sound
> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>  org-ref-notes-function '(lambda (thekey)
>                           (let*
>                            ((results (org-ref-get-bibtex-key-and-file
> thekey))
>                             (key (car results)) (bibfile (cdr results)))
>                            (save-excursion
>                             (with-temp-buffer (insert-file-contents
> bibfile)
>                              (bibtex-set-dialect
> (parsebib-find-bibtex-dialect) t)
>                              (bibtex-search-entry key)
> (org-ref-open-bibtex-notes))
>                             )
>                            )
>                           )
>  org-agenda-files "~/path/to/orgdir2/.emacs.d/agenda_files"
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer
> bh/clock-out-maybe)
>  org-drill-add-random-noise-to-intervals-p t
>  org-clock-out-remove-zero-time-clocks t
>  org-refile-target-verify-function 'bh/verify-refile-target
>  )
>
>


-- 
regards,

Tim

--
Tim Cross

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

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

* Re: Bug: Strangeness with CLOCK_MODELINE_TOTAL: today
  2017-11-20 21:25 ` Tim Cross
@ 2017-11-21  2:57   ` Robert Irelan
  0 siblings, 0 replies; 3+ messages in thread
From: Robert Irelan @ 2017-11-21  2:57 UTC (permalink / raw)
  To: Tim Cross; +Cc: Org-mode

Oh cool, thanks! I'll keep track of your work then.

On Mon, Nov 20, 2017 at 1:25 PM, Tim Cross <theophilusx@gmail.com> wrote:
> There are a number of reported issues with org and inconsistencies in
> handling time zones. I will be spending some time to first update the tests
> for time related functions in org to try and scope the issue and then asking
> the org community to help re-factor if/where needed once I start my holidays
> next week.
>
> Tim
>
> On 21 November 2017 at 08:18, Robert Irelan <rirelan@gmail.com> wrote:
>>
>> I've noticed 2 weirdnesses in the behavior of the
>> `CLOCK_MODELINE_TOTAL: today` property in recent versions of org-mode:
>>
>> 1. First, the clocked total for today resets at midnight UTC, not
>> midnight local time. This seems odd because all other times in Org
>> mode, including the times in the logbook, are recorded in local time,
>> and there's no provision for timezones in any Org-mode timestamps that
>> I've seen. I believe this arose due to this line in org-clock.el,
>> which requests time in UTC rather than local time using
>> org-decode-time:
>>
>> http://orgmode.org/cgit.cgi/org-mode.git/tree/lisp/org-clock.el?id=04e0532ef53b17c482fb81da2687fb403207eb55#n1454.
>>
>> 2. Second, I have a particular heading in one of my org mode that
>> always resets the time clocked on it every time it's clocked out. It
>> acts as if it had `CLOCK_MODELINE_TOTAL: current`, even though it
>> actually has `CLOCK_MODELINE_TOTAL: today`. Other headings with
>> `CLOCK_MODELINE_TOTAL: today` seem to work as expected.
>>
>> Modifying the org-decode-time line mentioned above to request local
>> time rather than UTC seems to fix both issues for me, but I don't know
>> why it fixes the second.
>>
>> ------------------------------------------------------------------------
>>
>> Emacs  : GNU Emacs 25.3.1 (x86_64-apple-darwin16.7.0, NS
>> appkit-1504.83 Version 10.12.6 (Build 16G29))
>>  of 2017-09-18
>> Package: Org mode version 9.1.2 (9.1.2-37-g3f8d67-elpaplus @
>> ~/path/to/orgdir2/.emacs.d/elpa/org-plus-contrib-20171113/)
>>
>> current state:
>> ==============
>> (setq
>>  org-protocol-default-template-key "p"
>>  org-clock-clocked-in-display 'frame-title
>>  org-ref-get-pdf-filename-function 'org-ref-get-pdf-filename
>>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
>> org-babel-header-arg-expand)
>>  org-agenda-skip-deadle-prewarning-if-scheduled t
>>  org-speed-command-hook '(org-speed-command-activate
>> org-babel-speed-command-activate
>>  org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
>>                               (insert (format "cite:%s\n"
>> (org-entry-get (point) "Custom_ID"))))
>>                              )
>>  org-ref-pdf-directory "~/path/to/orgdir2/lib/"
>>  org-agenda-auto-exclude-function 'my-org-auto-exclude-function
>>  org-clock-history-length 23
>>  org-occur-hook '(org-first-headline-recenter)
>>  org-clock-in-prepare-hook '(my-org-mode-ask-effort)
>>  org-metaup-hook '(org-babel-load-in-session-maybe)
>>  org-agenda-start-on-weekday nil
>>  org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME
>> CONTENTS)"]
>>  org-log-done 'time
>>  org-latex-format-inlinetask-function
>> 'org-latex-format-inlinetask-default-function
>>  org-confirm-shell-link-function 'yes-or-no-p
>>  org-drill-scope 'agenda-with-archives
>>  org-id-link-to-org-use-id t
>>  org-columns-default-format "%60ITEM(Task) %10Effort(Effort){:}
>> %10CLOCKSUM %10CLOCKSUM_T"
>>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>>  org-ref-open-pdf-function 'org-ref-open-pdf-at-point
>>  org-clock-idle-time 15
>>  org-ref-cite-onclick-function 'org-ref-cite-click-helm
>>  org-pomodoro-started-hook '(my-org-pomodoro-caffeinate)
>>  org-ref-insert-label-function 'org-ref-helm-insert-label-link
>>  org-agenda-sticky t
>>  org-ref-default-bibliography '("~/path/to/orgdir2/index.bib")
>>  org-pretty-entities t
>>  org-special-ctrl-a/e t
>>  org-agenda-todo-ignore-scheduled 'future
>>  org-agenda-skip-scheduled-if-done t
>>  org-font-lock-hook '(org-inlinetask-fontify)
>>  org-agenda-custom-commands '(("D" "Like d but include all TODOs (slow)"
>>                                ((tags "PRIORITY=\"A\""
>>                                  ((org-agenda-skip-function
>>                                    (quote (org-agenda-skip-entry-if
>> (quote todo) (quote done))))
>>                                   (org-agenda-overriding-header
>>                                    "High-priority unfinished tasks:")
>>                                   )
>>                                  )
>>                                 (agenda ""
>>                                  ((org-agenda-ndays 1)
>>                                   (org-agenda-overriding-header
>> "Schedule"))
>>                                  )
>>                                 (alltodo ""
>>                                  ((org-agenda-skip-function
>>                                    (quote
>>                                     (or (air-org-skip-subtree-if-habit)
>>                                      (air-org-skip-subtree-if-priority 65)
>>                                      (org-agenda-skip-if nil (quote
>> (scheduled deadline))))
>>                                     )
>>                                    )
>>                                   (org-agenda-overriding-header "ALL
>> normal priority tasks:"))
>>                                  )
>>                                 )
>>                                ((org-agenda-compact-blocks t)))
>>                               ("d" "Daily agenda with high-priority
>> items isolated (slow)"
>>                                ((tags "PRIORITY=\"A\""
>>                                  ((org-agenda-skip-function
>>                                    (quote (org-agenda-skip-entry-if
>> (quote todo) (quote done))))
>>                                   (org-agenda-overriding-header
>>                                    "High-priority unfinished tasks:")
>>                                   )
>>                                  )
>>                                 (agenda ""
>>                                  ((org-agenda-ndays 1)
>>                                   (org-agenda-overriding-header
>> "Schedule"))
>>                                  )
>>                                 )
>>                                ((org-agenda-compact-blocks t)))
>>                               ("R" "Week in review" agenda ""
>>                                ((org-agenda-span (quote week)
>> (org-agenda-start-on-weekday 0)
>>                                  (org-agenda-overriding-header "Week in
>> Review")
>>                                  (org-agenda-files
>>                                   (let
>>                                    ((org-agenda-files org-timeline-files)
>>                                     (org-agenda-files nil (quote ifmode)))
>>                                    )
>>                                   )
>>                                  (org-agenda-start-with-log-mode t)
>>                                  (org-agenda-log-mode-items (quote
>> (clock state closed)))
>>                                  (org-agenda-archives-mode t))
>>                                 )
>>                                )
>>                               ("Q/" "Archive occur"
>>                                (lambda (unused)
>>                                 (let*
>>                                  ((tmp
>>                                    (if (boundp (quote
>> org-agenda-text-search-extra-files))
>>                                     org-agenda-text-search-extra-files
>> (quote nil))
>>                                    )
>>                                   (org-agenda-text-search-extra-files
>>                                    (cond ((null tmp) (quote
>> (agenda-archives)))
>>                                     ((equal (car tmp) (quote
>> agenda-archives)) tmp)
>>                                     (t (cons (quote agenda-archives)
>> tmp)))
>>                                    )
>>                                   )
>>                                  (call-interactively (quote
>> org-occur-in-agenda-files)))
>>                                 )
>>                                "")
>>                               ("Q" . "Custom queries")
>>                               ("u" "Unscheduled TODOs" todo ""
>>                                ((org-agenda-skip-function
>>                                  (quote
>>                                   (org-agenda-skip-entry-if (quote
>> scheduled) (quote deadline)
>>                                    (quote regexp) "\n]+>")
>>                                   )
>>                                  )
>>                                 (org-agenda-overriding-header
>> "Unscheduled TODO entries: ")
>>                                 (org-agenda-sorting-strategy (quote
>> (time-down))))
>>                                )
>>                               ("n" "Agenda and all TODOs" ((agenda "")
>> (alltodo)))
>>                               ("n" "Agenda and all TODOs" ((agenda "")
>> (alltodo ""))))
>>  org-use-sub-superscripts '{}
>>  org-ref-bibliography-notes "~/path/to/orgdir2/index.org"
>>  org-latex-format-headline-function
>> 'org-latex-format-headline-default-function
>>  org-show-notification-handler '(closure (t) (message)
>>                                  (terminal-notifier-notify "Org Mode"
>> message))
>>  org-default-notes-file "~/path/to/orgdir1/notes.org"
>>  org-clock-in-resume t
>>  org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
>>                           ("NEXT" :foreground "blue" :weight bold)
>>                           ("DONE" :foreground "forest green" :weight bold)
>>                           ("WAITING" :foreground "orange" :weight bold)
>>                           ("HOLD" :foreground "magenta" :weight bold)
>>                           ("CANCELLED" :foreground "forest green" :weight
>> bold)
>>                           ("MEETING" :foreground "forest green" :weight
>> bold)
>>                           ("PHONE" :foreground "forest green" :weight
>> bold))
>>  org-after-todo-state-change-hook '(org-clock-out-if-current)
>>  org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
>>  org-odt-format-headline-function
>> 'org-odt-format-headline-default-function
>>  org-drill-learn-fraction 0.3
>>  org-from-is-user-regexp "\\<Robert Irelan\\>"
>>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
>> org-src-mode-configure-edit-buffer)
>>  org-drill-adjust-intervals-for-early-and-late-repetitions-p t
>>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>>  org-drill-left-cloze-delimiter "!|"
>>  org-babel-pre-tangle-hook '(save-buffer)
>>  org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
>>  org-log-redeadline 'time
>>  org-global-properties '(("Effort_ALL" .
>>                           "0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00
>> 4:00 5:00 6:00 8:00")
>>                          ("SYTLE_ALL" . "habit"))
>>  org-mode-hook '(org-ref-org-menu org-clock-load
>>                  #[0 "\300\301\302\303\304$\207"
>>                    [add-hook change-major-mode-hook org-show-block-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-eldoc-load)
>>  org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
>>  org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel .
>> 9))
>>  org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
>> "\n\n(fn ENTRY)"]
>>  org-outline-path-complete-in-steps nil
>>  org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t))
>> ("WAITING" ("WAITING" . t))
>>                                 ("HOLD" ("WAITING") ("HOLD" . t))
>> (done ("WAITING") ("HOLD"))
>>                                 ("TODO" ("WAITING") ("CANCELLED")
>> ("HOLD"))
>>                                 ("NEXT" ("WAITING") ("CANCELLED")
>> ("HOLD"))
>>                                 ("DONE" ("WAITING") ("CANCELLED")
>> ("HOLD")))
>>  org-archive-hook '(org-attach-archive-delete-maybe)
>>  org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
>> CONTENTS WIDTH)"]
>>  org-pomodoro-ticking-sound
>> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/tick.wav"
>>  org-odt-format-inlinetask-function
>> 'org-odt-format-inlinetask-default-function
>>  org-clock-persist t
>>  org-refile-use-outline-path t
>>  org-clock-in-switch-to-state 'bh/clock-in-to-next
>>  org-directory "~/path/to/orgdir1"
>>  org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
>>  org-enforce-todo-dependencies t
>>  org-cycle-hook '(org-inlinetask-hide-tasks
>> org-cycle-hide-archived-subtrees
>>                   org-cycle-hide-drawers org-cycle-show-empty-lines
>>                   org-optimize-window-after-visibility-change)
>>  org-agenda-start-with-log-mode t
>>  org-pomodoro-start-sound
>> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>>  org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
>>  org-export-before-processing-hook '(gsc/drill-cloze-removal)
>>  org-agenda-text-search-extra-files '(agenda-archives
>> "~/path/to/orgdir1/notes.org"
>>                                       "~/path/to/orgdir2/notes.org")
>>  org-clock-persist-query-resume nil
>>  org-log-reschedule 'time
>>  org-ref-clean-bibtex-key-function '(lambda (key)
>> (replace-regexp-in-string ":" "" key))
>>  org-refile-allow-creating-parent-nodes 'confirm
>>  org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
>>                      (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|"
>> "CANCELLED(c@/!)" "PHONE"
>>                       "MEETING")
>>                      )
>>  org-ref-notes-directory "~/path/to/orgdir2"
>>  org-clock-frame-title-format '("" "%b - " org-mode-line-string)
>>  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)
>>  org-capture-before-finalize-hook '(org-gcal--capture-post)
>>  org-clock-report-include-clocking-task t
>>  org-agenda-span 1
>>  org-drill-right-cloze-delimiter "|!"
>>  org-gcal-client-secret "iE58YC1w8UFlQbuub7UlcjMR"
>>  org-confirm-elisp-link-function 'yes-or-no-p
>>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>>  org-pomodoro-finished-hook '(my-org-pomodoro-lock-screen
>> my-org-pomodoro-finished-notify-hook)
>>  org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME
>> CONTENTS)"]
>>  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
>>  org-ref-open-notes-function '(lambda nil (org-show-entry)
>> (outline-show-branches)
>>                                (outline-show-children) (org-cycle (quote
>> (64)))
>>                                (recenter-top-bottom 0))
>>  org-agenda-skip-deadline-if-done t
>>  org-html-format-headline-function
>> 'org-html-format-headline-default-function
>>  org-link-parameters '(("printindex" :follow org-ref-index :export
>>                         (lambda (path desc format)
>>                          (cond ((eq format (quote latex)) (format
>> "printindex"))))
>>                         )
>>                        ("index" :follow (lambda (path) (occur path))
>> :export
>>                         (lambda (path desc format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\index{%s}" path))))
>>                         )
>>                        ("bibentry" :follow
>>                         (lambda (_) (funcall
>> org-ref-cite-onclick-function nil)) :export
>>                         org-ref-format-bibentry :complete
>> org-bibentry-complete-link :help-echo
>>                         (lambda (window object position)
>>                          (when org-ref-show-citation-on-enter
>>                           (save-excursion (goto-char position)
>>                            (let
>>                             ((s (org-ref-format-entry
>> (org-ref-get-bibtex-key-under-cursor))))
>>                             (with-temp-buffer (insert s)
>> (fill-paragraph) (buffer-string)))
>>                            )
>>                           )
>>                          )
>>                         :face org-ref-cite-link-face-fn :display full
>> :keymap
>>                         (keymap (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (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 (S-up . org-ref-sort-citation-link)
>>                          (S-right lambda nil (interactive)
>> (org-ref-swap-citation-link 1))
>>                          (S-left lambda nil (interactive)
>> (org-ref-swap-citation-link -1))
>>                          (C-right . org-ref-next-key) (C-left .
>> org-ref-previous-key)
>>                          (16777337 lambda nil
>>                           "Paste key at point. Assumes the first thing
>> in the killring is a key."
>>                           (interactive) (org-ref-insert-key-at-point
>> (car kill-ring)))
>>                          (16777303 lambda nil "Copy all the keys at
>> point." (interactive)
>>                           (kill-new (org-element-property :path
>> (org-element-context))))
>>                          (16777335 lambda nil (interactive)
>>                           (kill-new (car
>> (org-ref-get-bibtex-key-and-file))))
>>                          (16777318 lambda nil (interactive)
>>                           (save-excursion (org-ref-open-citation-at-point)
>>                            (kill-new
>> (org-ref-format-bibtex-entry-at-point)))
>>                           )
>>                          (16777319 . org-ref-google-scholar-at-point)
>>                          (16777317 lambda nil "Email entry at point"
>> (interactive)
>>                           (org-ref-open-citation-at-point)
>> (org-ref-email-bibtex-entry))
>>                          (16777315 . org-ref-wos-citing-at-point)
>>                          (16777330 . org-ref-wos-related-at-point)
>>                          (16777326 . org-ref-open-notes-at-point)
>>                          (16777328 . org-ref-open-pdf-at-point)
>>                          (16777333 . org-ref-open-url-at-point)
>>                          (16777314 . org-ref-open-citation-at-point)
>> (follow-link . mouse-face)
>>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>> org-open-at-mouse))
>>                         :store org-ref-bibtex-store-link)
>>                        ("Cref" :follow org-ref-ref-follow :export
>> org-ref-Cref-export :complete
>>                         org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("cref" :follow org-ref-ref-follow :export
>> org-ref-cref-export :complete
>>                         org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("autoref" :follow org-ref-autoref-follow
>> :export org-ref-autoref-export
>>                         :complete org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("eqref" :follow org-ref-eqref-follow :export
>> org-ref-eqref-export
>>                         :complete org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("nameref" :follow org-ref-follow-nameref
>> :export org-ref-export-nameref
>>                         :complete org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("pageref" :follow org-ref-follow-pageref :export
>>                         (lambda (path desc format)
>>                          (cond
>>                           ((eq format (quote html)) (format
>> "(<pageref>%s</pageref>)" path))
>>                           ((eq format (quote latex)) (format
>> "\\pageref{%s}" path)))
>>                          )
>>                         :face org-ref-ref-face-fn :complete
>> org-pageref-complete-link
>>                         :help-echo org-ref-ref-help-echo)
>>                        ("ref" :follow org-ref-ref-follow :export
>> org-ref-ref-export :complete
>>                         org-ref-complete-link :face
>> org-ref-ref-face-fn :help-echo
>>                         org-ref-ref-help-echo)
>>                        ("label" :follow
>>                         (lambda (label)
>>                          "On clicking count the number of label tags
>> used in the buffer.\nA number greater than one means multiple labels!"
>>                          (let
>>
>>                           ((count
>>
>>
>>                             (org-ref-count-labels label)
>>
>>
>>
>>
>>
>>  )
>>
>>                            )
>>
>>                           (message
>>
>>                            (format
>>
>>
>>
>>                             "%s occurence%s"
>>
>>
>>
>>                             count
>>
>>
>>
>>                             (if
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>                              (or
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>                               (= count 0)
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>                               (> count 1)
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>                               )
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>                              "s" "")
>>
>>
>>
>>                             )
>>
>>                            (org-ref-count-labels label)
>>
>>                            )
>>
>>                           )
>>                          )
>>                         :export
>>                         (lambda (keyword desc format)
>>                          (cond ((eq format (quote html)) (format "<div
>> id=\"%s\">" keyword))
>>                           ((eq format (quote latex)) (format
>> "\\label{%s}" keyword)))
>>                          )
>>                         :store org-label-store-link :face
>> org-ref-label-face-fn :help-echo
>>                         (lambda (window object position)
>>                          (save-excursion (goto-char position)
>>                           (let ((s (org-ref-link-message)))
>>                            (let ((temp-buffer (generate-new-buffer "
>> *temp*")))
>>                             (save-current-buffer (set-buffer temp-buffer)
>>                              (unwind-protect
>>                               (progn (insert s) (fill-paragraph)
>> (buffer-string))
>>                               (and (buffer-name temp-buffer)
>> (kill-buffer temp-buffer)))
>>                              )
>>                             )
>>                            )
>>                           )
>>                          )
>>                         )
>>                        ("list-of-tables" :follow org-ref-list-of-tables
>> :export
>>                         (lambda (keyword desc format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\listoftables"))))
>>                         )
>>                        ("list-of-figures" :follow
>> org-ref-list-of-figures :export
>>                         (lambda (keyword desc format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\listoffigures"))))
>>                         )
>>                        ("addbibresource" :follow
>> org-ref-follow-addbibresource :export
>>                         (lambda (keyword desc format)
>>                          (cond ((eq format (quote html)) (format ""))
>>                           ((eq format (quote latex)) (format
>> "\\addbibresource{%s}" keyword)))
>>                          )
>>                         )
>>                        ("bibliographystyle" :export
>>                         (lambda (keyword desc format)
>>                          (cond
>>                           ((or (eq format (quote latex)) (eq format
>> (quote beamer)))
>>                            (format "\\bibliographystyle{%s}" keyword))
>>                           (t ""))
>>                          )
>>                         )
>>                        ("printbibliography" :follow
>> org-ref-open-bibliography :export
>>                         (lambda (keyword desc format)
>>                          (cond ((eq format (quote org))
>> (org-ref-get-org-bibliography))
>>                           ((eq format (quote html))
>> (org-ref-get-html-bibliography))
>>                           ((eq format (quote latex))
>> "\\printbibliography"))
>>                          )
>>                         )
>>                        ("nobibliography" :follow
>> org-ref-open-bibliography :export
>>                         org-ref-nobibliography-format)
>>                        ("bibliography" :follow org-ref-open-bibliography
>> :export
>>                         org-ref-bibliography-format :complete
>> org-bibliography-complete-link
>>                         :help-echo
>>                         (lambda (window object position)
>>                          (save-excursion (goto-char position)
>>                           (let ((s (org-ref-link-message)))
>>                            (let ((temp-buffer (generate-new-buffer "
>> *temp*")))
>>                             (save-current-buffer (set-buffer temp-buffer)
>>                              (unwind-protect
>>                               (progn (insert s) (fill-paragraph)
>> (buffer-string))
>>                               (and (buffer-name temp-buffer)
>> (kill-buffer temp-buffer)))
>>                              )
>>                             )
>>                            )
>>                           )
>>                          )
>>                         :face org-ref-bibliography-face-fn)
>>                        ("Acp" :follow or-follow-acronym :face
>> org-ref-acronym-face :help-echo
>>                         or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\Glspl{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("acp" :follow or-follow-acronym :face
>> org-ref-acronym-face :help-echo
>>                         or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\glspl{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("Ac" :follow or-follow-acronym :face
>> org-ref-acronym-face :help-echo
>>                         or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\Gls{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("ac" :follow or-follow-acronym :face
>> org-ref-acronym-face :help-echo
>>                         or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\gls{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("acrfull" :follow or-follow-acronym :face
>> org-ref-acronym-face
>>                         :help-echo or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\acrfull{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("acrlong" :follow or-follow-acronym :face
>> org-ref-acronym-face
>>                         :help-echo or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\acrlong{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("acrshort" :follow or-follow-acronym :face
>> org-ref-acronym-face
>>                         :help-echo or-acronym-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\acrshort{%s}" path))
>>                           (t (format "%s" (upcase path))))
>>                          )
>>                         )
>>                        ("glsdesc" :follow or-follow-glossary :face
>> org-ref-glossary-face
>>                         :help-echo or-glossary-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\glsdesc{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("glssymbol" :follow or-follow-glossary :face
>> org-ref-glossary-face
>>                         :help-echo or-glossary-tooltip :export
>>                         (closure (t) (path _desc format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\glssymbol{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("glslink" :follow or-follow-glossary :face
>> org-ref-glossary-face
>>                         :help-echo or-glossary-tooltip :export
>>                         (closure (t) (path desc format)
>>                          (cond
>>                           ((eq format (quote latex)) (format
>> "\\glslink{%s}{%s}" path desc))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("Glspl" :follow or-follow-glossary :face
>> org-ref-glossary-face
>>                         :help-echo or-glossary-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\Glspl{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("Gls" :follow or-follow-glossary :face
>> org-ref-glossary-face :help-echo
>>                         or-glossary-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\Gls{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("glspl" :follow or-follow-glossary :face
>> org-ref-glossary-face
>>                         :help-echo or-glossary-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\glspl{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("gls" :follow or-follow-glossary :face
>> org-ref-glossary-face :help-echo
>>                         or-glossary-tooltip :export
>>                         (closure (t) (path _ format)
>>                          (cond ((eq format (quote latex)) (format
>> "\\gls{%s}" path))
>>                           (t (format "%s" path)))
>>                          )
>>                         )
>>                        ("rmail" :follow org-rmail-open :store
>> org-rmail-store-link)
>>                        ("mhe" :follow org-mhe-open :store
>> org-mhe-store-link)
>>                        ("irc" :follow org-irc-visit :store
>> org-irc-store-link)
>>                        ("info" :follow org-info-open :export
>> org-info-export :store
>>                         org-info-store-link)
>>                        ("gnus" :follow org-gnus-open :store
>> org-gnus-store-link)
>>                        ("docview" :follow org-docview-open :export
>> org-docview-export :store
>>                         org-docview-store-link)
>>                        ("bibtex" :follow org-bibtex-open :store
>> org-bibtex-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) ("id" :follow
>> org-id-open)
>>                        ("file+sys") ("file+emacs")
>>                        ("elfeed" :follow elfeed-link-open :store
>> elfeed-link-store-link)
>>                        ("doi" :follow doi-link-menu :export
>>                         (lambda (doi desc format)
>>                          (cond
>>                           ((eq format (quote html))
>>                            (format "<a href=\"%s%s\">%s</a>"
>> doi-utils-dx-doi-org-url doi
>>                             (or desc (concat "doi:" doi)))
>>                            )
>>                           ((eq format (quote latex))
>>                            (format "\\href{%s%s}{%s}"
>> doi-utils-dx-doi-org-url doi
>>                             (or desc (concat "doi:" doi)))
>>                            )
>>                           )
>>                          )
>>                         )
>>                        ("elisp" :follow org--open-elisp-link)
>>                        ("file" :complete org-file-complete-link)
>>                        ("ftp" :follow (lambda (path) (browse-url
>> (concat "ftp:" path))))
>>                        ("help" :follow org--open-help-link)
>>                        ("http" :follow (lambda (path) (browse-url
>> (concat "http:" path))))
>>                        ("https" :follow (lambda (path) (browse-url
>> (concat "https:" path))))
>>                        ("mailto" :follow (lambda (path) (browse-url
>> (concat "mailto:" path))))
>>                        ("news" :follow (lambda (path) (browse-url
>> (concat "news:" path))))
>>                        ("shell" :follow org--open-shell-link))
>>  org-pomodoro-long-break-sound
>> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell_multiple.wav"
>>  org-indirect-buffer-display 'current-window
>>  org-clock-sound "~/path/to/orgdir2/.emacs.d/Japanese Temple Bell
>> Small-SoundBible.com-113624364.wav"
>>  org-pomodoro-finished-sound
>> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>>  org-ref-insert-link-function 'org-ref-helm-insert-cite-link
>>  org-html-format-inlinetask-function
>> 'org-html-format-inlinetask-default-function
>>  org-pomodoro-short-break-sound
>> "~/path/to/orgdir2/.emacs.d/lisp/org-pomodoro/resources/bell.wav"
>>  org-ref-notes-function '(lambda (thekey)
>>                           (let*
>>                            ((results (org-ref-get-bibtex-key-and-file
>> thekey))
>>                             (key (car results)) (bibfile (cdr results)))
>>                            (save-excursion
>>                             (with-temp-buffer (insert-file-contents
>> bibfile)
>>                              (bibtex-set-dialect
>> (parsebib-find-bibtex-dialect) t)
>>                              (bibtex-search-entry key)
>> (org-ref-open-bibtex-notes))
>>                             )
>>                            )
>>                           )
>>  org-agenda-files "~/path/to/orgdir2/.emacs.d/agenda_files"
>>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer
>> bh/clock-out-maybe)
>>  org-drill-add-random-noise-to-intervals-p t
>>  org-clock-out-remove-zero-time-clocks t
>>  org-refile-target-verify-function 'bh/verify-refile-target
>>  )
>>
>
>
>
> --
> regards,
>
> Tim
>
> --
> Tim Cross
>



-- 
Robert Irelan
rirelan@gmail.com

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

end of thread, other threads:[~2017-11-21  2:58 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2017-11-20 21:18 Bug: Strangeness with CLOCK_MODELINE_TOTAL: today Robert Irelan
2017-11-20 21:25 ` Tim Cross
2017-11-21  2:57   ` Robert Irelan

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

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

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