Minor updates.

.emacs.d/core/core-packages.el

@@ -61,9 +61,9 @@ uses a straight or package.el command directly).")
       ;; than pulled, so packages are often out of date with upstream.
       package-archives
       (let ((proto (if gnutls-verify-error "https" "http")))
-        `(("gnu"   . ,(concat proto "://elpa.gnu.org/packages/"))
-          ("melpa" . ,(concat proto "://melpa.org/packages/"))
-          ("org"   . ,(concat proto "://orgmode.org/elpa/")))))
+        (list (cons "gnu"   (concat proto "://elpa.gnu.org/packages/"))
+              (cons "melpa" (concat proto "://melpa.org/packages/"))
+              (cons "org"   (concat proto "://orgmode.org/elpa/")))))
 
 ;; package.el has no business modifying the user's init.el
 (advice-add #'package--ensure-init-file :override #'ignore)
@@ -97,7 +97,9 @@ uses a straight or package.el command directly).")
       ;; we don't have to deal with them at all.
       autoload-compute-prefixes nil
       ;; We handle it ourselves
-      straight-fix-org nil)
+      straight-fix-org nil
+      ;; HACK Disable native-compilation for some troublesome files
+      comp-deferred-compilation-black-list '("/evil-collection-vterm\\.el$"))
 
 (defadvice! doom--read-pinned-packages-a (orig-fn &rest args)
   "Read `:pin's in `doom-packages' on top of straight's lockfiles."
@@ -234,10 +236,6 @@ processed."
           nil-value)
       plist)))
 
-(defun doom-package-build-time (package)
-  "TODO"
-  (car (gethash (symbol-name package) straight--build-cache)))
-
 (defun doom-package-dependencies (package &optional recursive _noerror)
   "Return a list of dependencies for a package."
   (let ((deps (nth 1 (gethash (symbol-name package) straight--build-cache))))
@@ -293,18 +291,6 @@ installed."
         ((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
 (defun doom--read-packages (file &optional noeval noerror)
@@ -380,21 +366,6 @@ ones."
                            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)
@@ -406,16 +377,6 @@ ones."
           (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)))))))
-
 
 ;;
 ;;; Module package macros