z

On Fri, May 24, 2019 at 8:51 AM Brian Beckman <bc.beckman@gmail.com> wrote:

> To: emacs-orgmode@gnu.org
> Subject: Bug: "nil" prepended to all results in clojure [9.2.2
> (9.2.2-13-g0007df-elpaplus @
> /home/brianbeckman/.emacs.d/elpa/org-plus-contrib-20190318/)]
> From: Brian Beckman
> <brianbeckman@pop-os.i-did-not-set--mail-host-address--so-tickle-me>
> --text follows this line--
>
> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?  See
>
>      https://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org mailing list.
> ------------------------------------------------------------------------
>
> I originally submitted this to the nrepl / cider group in github because
> my workaround entailed a (most likely bogus) change to nrepl, but they
> closed it and told me to submit it here. My original submission is copied
> below. The response of the nrepl maintainer can be found at
> https://github.com/nrepl/nrepl/issues/146
>
> ## Expected behavior
>
> in org-babel, I expect the following
> ```
> #+begin_src clojure
> (* 6 (+ 6 2))
> #+end_src
>
> #+RESULTS:
> : 48
> ```
> ## Actual behavior
> ```
> #+begin_src clojure
> (* 6 (+ 6 2))
> #+end_src
>
> #+RESULTS:
> : nil48
>
> ```
> ## Steps to reproduce the problem
>
> Make sure your emacs init.el (or other startup fixture like .spacemacs)
> has org-babel support for Cider and Clojure, as with the following
>
> ```
>   (require 'ob-clojure)
>   (org-babel-do-load-languages
>    'org-babel-load-languages
>    '(
>      (C           . t)
>      (awk         . t)
>      (clojure     . t) ))
> ```
> Make a lein new app foo so that you have a project.clj file.
> Create any old .org file in the foo project directory.
> Put the code snippet above in the .org file.
> Do M-x cider-jack-in with the cursor in that code block.
> Do C-c C-c with cursor in the code block to evaluate the code block.
> See the prepended "nil?" It's the same with every other code block. Every
> result gets a prepended "nil."
>
> ## my workaround
>
> I changed `elpa/cider-20190321.2129/nrepl-dict.el::nrepl--merge` as
> follows to get my stuff to work. No idea whether this is a robust or
> worthwhile change.
>
> ```
> (defun nrepl--merge (dict1 dict2 &optional no-join)
>   "Join nREPL dicts DICT1 and DICT2 in a meaningful way.
> String values for non \"id\" and \"session\" keys are concatenated. Lists
> are appended. nREPL dicts merged recursively. All other objects are
> accumulated into a list. DICT1 is modified destructively and
> then returned.
> If NO-JOIN is given, return the first non nil dict."
>   (if no-join
>       (or dict1 dict2)
>     (cond ((null dict1) dict2)
>           ((null dict2) dict1)
>           ((stringp dict1) (concat dict1 dict2))
>           ((nrepl-dict-p dict1)
>            (nrepl-dict-map
>             (lambda (k2 v2)
>               (nrepl-dict-put dict1 k2
>                               (nrepl--merge (nrepl-dict-get dict1 k2)
>                                             ;; bbeckman bug?  CHANGED
> RIGHT HERE *****
>                                             (if (and (string= k2 "value")
>                                                      (stringp v2)
>                                                      (string= v2 "nil"))
>                                                 "" v2)
>                                             (member k2 '("id"
> "session")))))
>             dict2)
>            dict1)
>           ((and (listp dict2) (listp dict1)) (append dict1 dict2))
>           ((listp dict1) (append dict1 (list dict2)))
>           (t `(,dict1 ,dict2)))))
>
> ```
>
> ## Environment & Version information
>
> ```
> : Emacs version: GNU Emacs 26.2 (build 2, x86_64-pc-linux-gnu, GTK+
> Version 3.24.4)
> :  of 2019-04-12
> : org version: 9.2.2
>
> ```
> ### Clojure version
> 1.10.0
>
> ### Java version
>
> openjdk version "11.0.3" 2019-04-16
> OpenJDK Runtime Environment (build 11.0.3+7-Ubuntu-1ubuntu218.10.1)
> OpenJDK 64-Bit Server VM (build 11.0.3+7-Ubuntu-1ubuntu218.10.1, mixed
> mode, sharing)
>
> ### Operating system
>
> Ubuntu 18.04
>
> Emacs  : GNU Emacs 26.2 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.4)
>  of 2019-04-12
> Package: Org mode version 9.2.2 (9.2.2-13-g0007df-elpaplus @
> /home/brianbeckman/.emacs.d/elpa/org-plus-contrib-20190318/)
>
> current state:
> ==============
> (setq
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
>  org-babel-after-execute-hook '(spacemacs/ob-fix-inline-images)
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>  org-html-format-inlinetask-function
> 'org-html-format-inlinetask-default-function
>  org-ref-create-notes-hook '((lambda nil (org-narrow-to-subtree)
>                               (insert
>                                (format "cite:%s\n" (org-entry-get (point)
>                                                     "Custom_ID")))
>                               )
>                              )
>  org-odt-format-headline-function 'org-odt-format-headline-default-function
>  org-latex-pdf-process '("latexmk -shell-escape -bibtex -f -pdf %f")
>  org-imenu-depth 8
>  org-download-annotate-function 'org-download-annotate-default
>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>  org-ref-pdf-directory "~/Dropbox/bibliography/bibtex-pdfs/"
>  org-plantuml-jar-path "/usr/share/plantuml/plantuml.jar"
>  org-mode-hook '(org-ref-org-menu
>                  (closure
>                   (org-agenda-skip-regexp org-table1-hline-regexp
>                    org-table-tab-recognizes-table\.el
> org-table-dataline-regexp
>                    org-table-any-border-regexp
>                    org-agenda-restriction-lock-overlay
>                    org-agenda-overriding-restriction org-agenda-diary-file
>                    org-complex-heading-regexp t)
>                   nil (setq imenu-create-index-function (quote
>
>  org-imenu-get-tree)))
>                  (closure
>                   (org--rds reftex-docstruct-symbol
> orgtbl-line-start-regexp
>                    org-element-greater-elements
> org-table-coordinate-overlays
>                    org-table-auto-blank-field org-clock-history
>                    org-agenda-current-date
>                    org-with-time org-defdecode org-def
> org-read-date-inactive
>                    org-ans2
>                    org-ans1 org-columns-current-fmt-compiled
>                    org-clock-current-task
>                    org-clock-effort org-agenda-skip-function
>                    org-agenda-skip-comment-trees
>                    org-agenda-archives-mode org-end-time-was-given
>                    org-time-was-given
>                    org-log-note-extra org-log-note-purpose
> org-log-post-message
>                    org-last-inserted-timestamp org-last-changed-timestamp
>                    org-entry-property-inherited-from
> org-blocked-by-checkboxes
>                    org-state
>                    org-agenda-headline-snapshot-before-repeat
>                    org-capture-last-stored-marker
>                    org-agenda-start-on-weekday org-agenda-buffer-tmp-name
>                    clean-buffer-list-kill-buffer-names
> org-id-link-to-org-use-id
>                    org-agenda-buffer-name org-priority-regexp
>                    org-mode-abbrev-table
>                    org-mode-syntax-table buffer-face-mode-face org-mode-map
>                    org-tbl-menu
>                    org-org-menu org-struct-menu org-entities org-last-state
>                    org-id-track-globally org-clock-start-time texmathp-why
>                    remember-data-file
> org-agenda-tags-todo-honor-ignore-options
>                    iswitchb-temp-buflist calc-embedded-open-mode
>                    calc-embedded-open-formula
>                    calc-embedded-close-formula align-mode-rules-list
>                    org-emphasis-alist
>                    org-emphasis-regexp-components
> org-export-registered-backends
>                    org-modules
>                    org-babel-load-languages
> org-indent-indentation-per-level
>                    org-element-paragraph-separate org-inlinetask-min-level
> t)
>                   nil
>                   (add-hook (quote change-major-mode-hook) (quote
> org-show-all)
>                    (quote append) (quote local))
>                   )
>                  (closure
>                   (org-bracket-link-regexp org-src-window-setup *this*
>                    org-babel-confirm-evaluate-answer-no
>                    org-src-preserve-indentation
>                    org-src-lang-modes org-link-file-path-type
>                    org-edit-src-content-indentation
> org-babel-library-of-babel
>                    t)
>                   nil
>                   (add-hook (quote change-major-mode-hook) (quote
>
> org-babel-show-result-all)
>                    (quote append) (quote local))
>                   )
>                  org-babel-result-hide-spec org-babel-hide-all-hashes
>                  spacemacs/load-yasnippet toc-org-enable
> org-download-enable
>                  org-bullets-mode spacemacs//org-babel-do-load-languages
>                  flyspell-mode
>                  spacemacs/add-org-surrounds evil-org-mode org-eldoc-load
>                  spacemacs//init-company-org-mode company-mode)
>  org-ref-insert-cite-function 'org-ref-helm-insert-cite-link
>  org-odt-format-drawer-function '(closure
>                                   (hfy-user-sheet-assoc
> hfy-html-quote-regex
>                                    hfy-html-quote-map hfy-face-to-css
>                                    hfy-begin-span-handler
>                                    hfy-end-span-handler archive-zip-extract
>                                    nxml-auto-insert-xml-declaration-flag t)
>                                   (_name contents) contents)
>  org-archive-hook '(org-attach-archive-delete-maybe)
>  org-agenda-restore-windows-after-quit t
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-startup-with-inline-images t
>  org-ref-clean-bibtex-key-function '(lambda (key)
> (replace-regexp-in-string ":" "" key))
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-bibtex-headline-format-function '(closure
>                                        (org-id-locations
>
> org-agenda-search-view-always-boolean
>                                         org-agenda-overriding-header t)
>                                        (entry) (cdr (assq :title entry)))
>  org-latex-format-drawer-function '(closure (t) (_ contents) contents)
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
>  org-ref-bibliography-notes "~/Dropbox/bibliography/notes.org"
>  org-babel-load-languages '((C . t) (awk . t) (clojure . t) (ditaa . t)
> (dot .
>                                                                          t)
>                             (emacs-lisp . t) (js . t) (latex . t) (lisp .
> t)
>                             (org . t)
>                             (perl . t) (plantuml . t) (python . t) (scheme
> . t)
>                             (sed . t)
>                             (shell . t))
>  org-ref-clean-bibtex-entry-hook '(org-ref-bibtex-format-url-if-doi
>                                    orcb-key-comma
>                                    org-ref-replace-nonascii orcb-& orcb-%
>                                    org-ref-title-case-article
> orcb-clean-year
>                                    orcb-key
>                                    orcb-clean-doi orcb-clean-pages
>                                    orcb-check-journal
>                                    org-ref-sort-bibtex-entry
> orcb-fix-spacing)
>  org-log-done 'time
>  org-ref-insert-label-function 'org-ref-helm-insert-label-link
>  org-ref-open-pdf-function 'org-ref-open-pdf-at-point
>  org-ascii-format-drawer-function '(closure (t) (_name contents _width)
> contents)
>  org-babel-python-command "python3"
>  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-src-lang-modes '(("dot" . graphviz-dot) ("arduino" . arduino)
> ("redis" .
>                                                                     redis)
>                       ("php" . php) ("C" . c) ("C++" . c++) ("asymptote" .
> asy)
>                       ("bash" . sh) ("beamer" . latex) ("calc" .
> fundamental)
>                       ("cpp" . c++)
>                       ("ditaa" . artist) ("elisp" . emacs-lisp) ("ocaml" .
>                                                                  tuareg)
>                       ("screen" . shell-script) ("shell" . sh) ("sqlite" .
> sql))
>  org-occur-hook '(org-first-headline-recenter)
>  org-ref-bibtex-assoc-pdf-with-entry-move-function 'rename-file
>  org-ref-insert-link-function 'org-ref-helm-insert-cite-link
>  org-ref-insert-ref-function 'org-ref-helm-insert-ref-link
>  org-cycle-hook '(org-cycle-hide-archived-subtrees
> org-cycle-show-empty-lines
>                   org-optimize-window-after-visibility-change)
>  org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate)
>  org-ref-default-bibliography '("~/Dropbox/bibliography/references.bib")
>  org-clock-persist-file
> "/home/brianbeckman/.emacs.d/.cache/org-clock-save.el"
>  org-odt-format-inlinetask-function
> 'org-odt-format-inlinetask-default-function
>  org-latex-prefer-user-labels t
>  org-babel-tangle-lang-exts '(("perl" . "pl") ("D" . "d") ("C++" . "cpp")
> ("sed"
>
>  . "sed")
>                               ("python" . "py") ("lisp" . "lisp") ("latex"
> .
>                                                                    "tex")
>                               ("clojure" . "clj") ("awk" . "awk")
> ("emacs-lisp"
>                                                                    . "el")
>                               ("elisp" . "el"))
>  org-publish-timestamp-directory
> "/home/brianbeckman/.emacs.d/.cache/.org-timestamps/"
>  org-export-async-init-file
> "/home/brianbeckman/.emacs.d/layers/+emacs/org/local/org-async-init.el"
>  org-id-locations-file
> "/home/brianbeckman/.emacs.d/.cache/.org-id-locations"
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-link-parameters '(("id" :follow org-id-open)
>                        ("eww" :follow eww :store org-eww-store-link)
>                        ("rmail" :follow org-rmail-open :store
>                         org-rmail-store-link)
>                        ("mhe" :follow org-mhe-open :store
> org-mhe-store-link)
>                        ("irc" :follow org-irc-visit :store
> org-irc-store-link
>                         :export
>                         org-irc-export)
>                        ("info" :follow org-info-open :export
> org-info-export
>                         :store
>                         org-info-store-link)
>                        ("gnus" :follow org-gnus-open :store
> org-gnus-store-link)
>                        ("docview" :follow org-docview-open :export
>                         org-docview-export :store
>                         org-docview-store-link)
>                        ("bbdb" :follow org-bbdb-open :export
> org-bbdb-export
>                         :complete
>                         org-bbdb-complete-link :store org-bbdb-store-link)
>                        ("w3m" :store org-w3m-store-link)
>                        ("printindex" :follow org-ref-index :export
>                         (lambda (path desc format)
>                          (cond ((eq format (quote latex)) (format
>
>  "\\printindex"))))
>                         )
>                        ("index" :follow (lambda (path) (occur path))
> :export
>                         (lambda (path desc format)
>                          (cond ((eq format (quote latex)) (format
> "\\index{%s}"
>                                                            path))))
>                         )
>                        ("bibentry" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-bibentry :complete
>                         org-bibentry-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Autocites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Autocites :complete
>                         org-Autocites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("autocites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-autocites :complete
>                         org-autocites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("supercites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-supercites :complete
>                         org-supercites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Textcites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Textcites :complete
>                         org-Textcites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("textcites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-textcites :complete
>                         org-textcites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Smartcites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Smartcites :complete
>                         org-Smartcites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("smartcites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-smartcites :complete
>                         org-smartcites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("footcitetexts" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-footcitetexts :complete
>                         org-footcitetexts-complete-link :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("footcites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-footcites :complete
>                         org-footcites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Parencites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Parencites :complete
>                         org-Parencites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("parencites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-parencites :complete
>                         org-parencites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Cites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Cites :complete
> org-Cites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("cites" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-cites :complete
> org-cites-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("fnotecite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-fnotecite :complete
>                         org-fnotecite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Pnotecite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Pnotecite :complete
>                         org-Pnotecite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("pnotecite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-pnotecite :complete
>                         org-pnotecite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("Notecite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-Notecite :complete
>                         org-Notecite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("notecite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-notecite :complete
>                         org-notecite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>                         (keymap (S-up . org-ref-sort-citation-link)
>                          (S-right lambda nil (interactive)
>                           (org-ref-swap-citation-link 1))
>                          (S-left lambda nil (interactive)
>                           (org-ref-swap-citation-link -1))
>                          (C-right . org-ref-next-key) (C-left .
>
>  org-ref-previous-key)
>                          (16777337 lambda nil
>                           "Paste key at point. Assumes the first thing in
> the
>  killring is a key."
>                           (interactive) (org-ref-insert-key-at-point (car
>
> kill-ring)))
>                          (16777303 lambda nil "Copy all the keys at point."
>                           (interactive)
>                           (kill-new (org-element-property :path
>                                      (org-element-context))))
>                          (16777335 lambda nil (interactive)
>                           (kill-new (car
> (org-ref-get-bibtex-key-and-file))))
>                          (16777318 lambda nil (interactive)
>                           (save-excursion (org-ref-open-citation-at-point)
>                            (kill-new
> (org-ref-format-bibtex-entry-at-point)))
>                           )
>                          (16777319 . org-ref-google-scholar-at-point)
>                          (16777317 lambda nil "Email entry at point"
>                           (interactive)
>                           (org-ref-open-citation-at-point)
>                           (org-ref-email-bibtex-entry))
>                          (16777315 . org-ref-wos-citing-at-point)
>                          (16777330 . org-ref-wos-related-at-point)
>                          (16777326 . org-ref-open-notes-at-point)
>                          (16777328 . org-ref-open-pdf-at-point)
>                          (16777333 . org-ref-open-url-at-point)
>                          (16777314 . org-ref-open-citation-at-point)
>                          (16777327 . org-ref-cite-hydra/body) (follow-link
> .
>                                                                mouse-face)
>                          (mouse-3 . org-find-file-at-mouse) (mouse-2 .
>
>  org-open-at-mouse))
>                         )
>                        ("footfullcite" :follow
>                         (lambda (_) (funcall org-ref-cite-onclick-function
> nil))
>                         :export
>                         org-ref-format-footfullcite :complete
>                         org-footfullcite-complete-link
>                         :help-echo
>                         (lambda (window object position)
>                          (when org-ref-show-citation-on-enter
>                           (save-excursion (goto-char position)
>                            (let
>                             ((s (org-ref-format-entry
>                                  (org-ref-get-bibtex-key-under-cursor)))
>                              )
>                             (with-temp-buffer (insert s) (fill-paragraph)
>                              (buffer-string)))
>                            )
>                           )
>                          )
>                         :face org-ref-cite-link-face-fn :display full
> :keymap
>
>