From c6324da59dd51d65f870987c1988cba31b963a03 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 12 Jun 2018 12:26:48 +0200 Subject: [PATCH] Add force-p parameter to doom//refresh Also force autoloads regeneration on doom upgrade. --- core/core-dispatcher.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/core/core-dispatcher.el b/core/core-dispatcher.el index 67b42b1c2..ae28ca551 100644 --- a/core/core-dispatcher.el +++ b/core/core-dispatcher.el @@ -213,16 +213,16 @@ recompile. Run this whenever you: (string-match-p "[^ \t\n]" (buffer-string)) (error "Failed to check working tree in %s" dir))))) -(defun doom//refresh () +(defun doom//refresh (&optional force-p) "Ensure Doom is in a working state by checking autoloads and packages, and recompiling any changed compiled files. This is the shotgun solution to most problems with doom." - (interactive) - (doom//reload-doom-autoloads) + (interactive "P") + (doom//reload-doom-autoloads force-p) (unwind-protect (progn (ignore-errors (doom//packages-autoremove)) (ignore-errors (doom//packages-install))) - (doom//reload-package-autoloads) + (doom//reload-package-autoloads force-p) (doom//byte-compile nil 'recompile))) (defun doom//upgrade () @@ -272,7 +272,7 @@ problems with doom." (buffer-string))) (unless (equal (vc-git-working-revision doom-emacs-dir) rev) (error "Failed to checkout latest commit.\n\n%s" (buffer-string))) - (doom//refresh) + (doom//refresh 'force) (message "Done! Please restart Emacs for changes to take effect")))) (user-error (message "%s Aborting." (error-message-string e)))