about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2022-10-10 20:44:26 +0100
committerDavid Morgan <djm_uk@protonmail.com>2022-10-10 20:44:26 +0100
commit75aa147246af45652eec3827bf9b38fb63523ca2 (patch)
tree332c033002c4e0050f833ec6d4c3c86f371573e6
parent82a42c22402687bab36cea7a9953031784d7994a (diff)
downloaddotfiles-75aa147246af45652eec3827bf9b38fb63523ca2.tar.gz
Tweak straight config
-rw-r--r--.emacs.d/init.el1
-rw-r--r--.emacs.d/lisp/init-packages.el6
2 files changed, 2 insertions, 5 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 582a1f5..36528a6 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -21,7 +21,6 @@
 (add-hook 'emacs-startup-hook
           (lambda ()
             (message "%s packages loaded in %0.1f seconds"
-                     ;;(length package-activated-list)
                      (hash-table-count straight--profile-cache)
                      (string-to-number (emacs-init-time)))))
 
diff --git a/.emacs.d/lisp/init-packages.el b/.emacs.d/lisp/init-packages.el
index 57a6859..968991c 100644
--- a/.emacs.d/lisp/init-packages.el
+++ b/.emacs.d/lisp/init-packages.el
@@ -2,8 +2,6 @@
 ;;; Commentary:
 ;;; Code:
 
-(defvar initial-features features)
-
 (setq package-archives '(("melpa" . "https://melpa.org/packages/")
                          ("melpa-stable" . "https://stable.melpa.org/packages/")
                          ("nongnu" . "https://elpa.nongnu.org/nongnu/")
@@ -47,7 +45,7 @@
   "Safely run straight lockfile-related function `FUNC'.
 This will set `features' back the value it had before loading straight, to ensure
 that everything loaded by `require' or `use-package' is re-loaded."
-  (setq features initial-features)
+  (setq features (seq-filter '(lambda (elt) (not (string-prefix-p "init-" (prin1-to-string elt)))) features))
   (funcall func))
 
 (defun my/upgrade-packages ()
@@ -56,7 +54,7 @@ that everything loaded by `require' or `use-package' is re-loaded."
   (straight-pull-recipe-repositories) ;; TODO is this needed?
   (straight-x-fetch-all)
   (straight-merge-all)
-  (straight-check-all)
+  (run-straight-lock-file-function 'straight-check-all)
   ;; Do this automatically, as we can always revert and thaw
   (run-straight-lock-file-function 'straight-freeze-versions))