Tweak straight config
This commit is contained in:
parent
82a42c2240
commit
75aa147246
|
@ -21,7 +21,6 @@
|
||||||
(add-hook 'emacs-startup-hook
|
(add-hook 'emacs-startup-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(message "%s packages loaded in %0.1f seconds"
|
(message "%s packages loaded in %0.1f seconds"
|
||||||
;;(length package-activated-list)
|
|
||||||
(hash-table-count straight--profile-cache)
|
(hash-table-count straight--profile-cache)
|
||||||
(string-to-number (emacs-init-time)))))
|
(string-to-number (emacs-init-time)))))
|
||||||
|
|
||||||
|
|
|
@ -2,8 +2,6 @@
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(defvar initial-features features)
|
|
||||||
|
|
||||||
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
||||||
("melpa-stable" . "https://stable.melpa.org/packages/")
|
("melpa-stable" . "https://stable.melpa.org/packages/")
|
||||||
("nongnu" . "https://elpa.nongnu.org/nongnu/")
|
("nongnu" . "https://elpa.nongnu.org/nongnu/")
|
||||||
|
@ -47,7 +45,7 @@
|
||||||
"Safely run straight lockfile-related function `FUNC'.
|
"Safely run straight lockfile-related function `FUNC'.
|
||||||
This will set `features' back the value it had before loading straight, to ensure
|
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."
|
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))
|
(funcall func))
|
||||||
|
|
||||||
(defun my/upgrade-packages ()
|
(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-pull-recipe-repositories) ;; TODO is this needed?
|
||||||
(straight-x-fetch-all)
|
(straight-x-fetch-all)
|
||||||
(straight-merge-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
|
;; Do this automatically, as we can always revert and thaw
|
||||||
(run-straight-lock-file-function 'straight-freeze-versions))
|
(run-straight-lock-file-function 'straight-freeze-versions))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue