Create and yank bibtex entry from a DOI

yank-bibtex-from-doi.el

(defun yank-bibtex-from-doi ()
  "Create and yank bibtex entry from a DOI."
  (interactive)
  ;; read the doi from minibuffer
  (setq doi (read-from-minibuffer "doi: "))
  ;; define the curl shell command
  (setq cmd
        (concat
         "curl -LH \"Accept: application/x-bibtex\" "
         "https://doi.org/"
         doi))
  ;; define the bibtex entry by calling the cmd and strip stderr
  (setq bibtex
        (shell-command-to-string
         (concat cmd " 2>/dev/null")
         )
        )
  (insert-for-yank bibtex)
  )

Thank you very much! The global var is a mistake, thank you for showing me (let*).

I also get the bibtex entry as a single long line (also from the command line). However, C-c C-q doesn't work for me (tested two GNU/Linux distros), but bibtex-reformat does exactly what I need.