Reload init before running straight-check-all
This commit is contained in:
parent
1476971132
commit
ecc14cd182
|
@ -48,6 +48,10 @@ that everything loaded by `require' or `use-package' is re-loaded."
|
||||||
(setq features (seq-filter '(lambda (elt) (not (string-prefix-p "init-" (prin1-to-string elt)))) features))
|
(setq features (seq-filter '(lambda (elt) (not (string-prefix-p "init-" (prin1-to-string elt)))) features))
|
||||||
(funcall func))
|
(funcall func))
|
||||||
|
|
||||||
|
(defun reload-init ()
|
||||||
|
"Reload `user-init-file', ensuring that requires are reloaded."
|
||||||
|
(run-straight-lock-file-function #'(lambda () (load (or user-init-file "~/.emacs.d/init.el") nil 'nomessage))))
|
||||||
|
|
||||||
;; emacs --batch -l "~/.emacs.d/init.el" -f "my/upgrade-packages"
|
;; emacs --batch -l "~/.emacs.d/init.el" -f "my/upgrade-packages"
|
||||||
(defun my/upgrade-packages ()
|
(defun my/upgrade-packages ()
|
||||||
"Upgrade all packages installed with straight."
|
"Upgrade all packages installed with straight."
|
||||||
|
@ -55,7 +59,8 @@ 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)
|
||||||
(run-straight-lock-file-function 'straight-check-all)
|
(reload-init)
|
||||||
|
(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