          'elpa)
         ((locate-library (symbol-name package))
          'other)))
-
-(defun doom-package-changed-recipe-p (name)
-  "Return t if a package named NAME (a symbol) has a different recipe than it
-was installed with."
-  (cl-check-type name symbol)
-  ;; TODO
-  ;; (when (doom-package-installed-p name)
-  ;;   (when-let* ((doom-recipe (assq name doom-packages))
-  ;;               (install-recipe (doom-package-recipe)))
-  ;;     (not (equal (cdr quelpa-recipe)
-  ;;                 (cdr (plist-get (cdr doom-recipe) :recipe))))))
-  )
 
 
 ;;; Package getters

                    (eq type 'built-in))
          (push recipe recipes))))
    (nreverse recipes)))

(defun doom-package-state-list ()
  "TODO"
  (let (alist)
    (dolist (recipe (hash-table-values straight--repo-cache) alist)
      (cl-destructuring-bind (&key local-repo type &allow-other-keys)
          recipe
        (when (and local-repo (not (eq type 'built-in)))
          (setf (alist-get local-repo alist nil nil #'equal)
                (straight-vc-get-commit type local-repo)))))))


;;

                           nil 'remove #'equal)
                (unless unpin pin)))))))

(defun doom-package-recipe-list ()
  "Return straight recipes for non-builtin packages with a local-repo."
  (let (recipes)
