From 38358e8faec55f87957273a7604360a5ec388d45 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Fri, 25 Nov 2022 22:36:51 -0900 Subject: [PATCH] Hugo hook: work in background --- lisp/mitch-packages.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index 09a69f3..9060cbb 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -662,12 +662,13 @@ Return nil if DIR is not in a hugo project at all." (if hugo-dir (let* ((default-directory hugo-dir) (buffer (get-buffer-create "*hugo*"))) - (pop-to-buffer buffer) - (compilation-mode) - (if (zerop (let ((inhibit-read-only t)) - (call-process "sh" nil buffer t "-c" "hugo"))) - (message "Hugo re-generated!") - (error "Hugo Failed, better change something!")))))) + (with-current-buffer buffer + ;; (pop-to-buffer buffer) + (compilation-mode) + (if (zerop (let ((inhibit-read-only t)) + (call-process "sh" nil buffer t "-c" "hugo"))) + (message "Hugo re-generated!") + (error "Hugo Failed, better change something!"))))))) (add-hook 'after-save-hook (lambda () (hugo-compile default-directory))))