                            nil 'remove #'equal)
                 (unless unpin pin)))))))
 
-(defun doom-package-unpinned-list ()
-  "Return an alist mapping package names (strings) to pinned commits (strings)."
-  (let (alist)
-    (dolist (package doom-packages alist)
-      (cl-destructuring-bind
-          (_ &key recipe disable ignore pin unpin &allow-other-keys)
-          package
-        (when (and (not ignore)
-                   (not disable)
-                   (or unpin
-                       (and (plist-member recipe :pin)
-                            (null pin))))
-          (cl-pushnew (doom-package-recipe-repo (car package)) alist
-                      :test #'equal))))))
-
 (defun doom-package-recipe-list ()
   "Return straight recipes for non-builtin packages with a local-repo."
   (let (recipes)

                    (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)))))))


;;

         'elpa)
        ((locate-library (symbol-name package))
         'other)))


;;; Package getters
