 
 ;;;###autoload
 (defun straight-get-melpa-recipe (&optional action)
-  "Interactively select a MELPA recipe. See `straight-get-recipe'."
+  "Interactively select a MELPA recipe. See `straight-get-recipe'.
+ACTION can be nil, `copy', or `insert'."
   (interactive (list (if current-prefix-arg
                          'copy
                        'insert)))

(defvar gnu-elpa-recipe)
(defvar emacsmirror-recipe)

(defun straight--get-gnu-elpa-recipe (package &optional cause)
  "Look up a PACKAGE recipe in GNU ELPA.
PACKAGE should be a symbol. If the package is maintained in GNU
ELPA, a MELPA-style recipe is returned. Otherwise nil is
returned. If GNU ELPA is not available, clone it automatically
before looking up the recipe."
  (unless (straight--repository-is-available-p gnu-elpa-recipe)
    (straight--clone-repository gnu-elpa-recipe cause))
  (straight--with-plist gnu-elpa-recipe

                       only-if-installed
                       (not (and (eq only-if-installed 'prompt)
                                 (y-or-n-p
                                  (format "Install package %S? "
                                          package)))))
            (unless available
              (straight--clone-repository recipe cause))
