emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Bug: Strangeness with CLOCK_MODELINE_TOTAL: today


From: Robert Irelan
Subject: Re: [O] Bug: Strangeness with CLOCK_MODELINE_TOTAL: today
Date: Mon, 20 Nov 2017 18:57:15 -0800

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

On Mon, Nov 20, 2017 at 1:25 PM, Tim Cross <address@hidden> 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 <address@hidden> 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
address@hidden



reply via email to

[Prev in Thread] Current Thread [Next in Thread]