 (defun quelpa-interactive-candidate ()
   "Query the user for a recipe and return the name."
   (when (quelpa-setup-p)
-    (let  ((recipes (directory-files
-                     (expand-file-name "recipes" quelpa-melpa-dir)
+    (let  ((recipes (cl-loop
+                     for store in quelpa-melpa-recipe-stores
+                     if (stringp store)
                      ;; this regexp matches all files except dotfiles
-                     nil "^[^.].+$")))
+                     append (directory-files store nil "^[^.].+$")
+                     else if (listp store)
+                     append store)))
       (intern (completing-read "Choose MELPA recipe: "
                                recipes nil t)))))
 

  (interactive)
  (when (quelpa-setup-p)
    (let ((quelpa-upgrade-p t))
      (quelpa-self-upgrade)
      (setq quelpa-cache
            (cl-remove-if-not #'package-installed-p quelpa-cache :key #'car))
      (mapc (lambda (item)

         (local-path (expand-file-name remote-file-name dir))
         (mm-attachment-file-modes (default-file-modes)))
    (unless (string= (file-name-extension url) "el")
      (error "<%s> does not end in .el" url))
    (unless (file-directory-p dir)
      (make-directory dir))
    (url-copy-file url local-path t)
