mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hugo hook: work in background

Browse Source
This commit is contained in:
MitchMarq42 2022-11-25 22:36:51 -09:00
parent 102c4d447f
commit 38358e8fae
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mitch-packages.el
View File

@ -662,12 +662,13 @@ Return nil if DIR is not in a hugo project at all."
(if hugo-dir (if hugo-dir
(let* ((default-directory hugo-dir) (let* ((default-directory hugo-dir)
(buffer (get-buffer-create "*hugo*"))) (buffer (get-buffer-create "*hugo*")))
(pop-to-buffer buffer) (with-current-buffer buffer
;; (pop-to-buffer buffer)
(compilation-mode) (compilation-mode)
(if (zerop (let ((inhibit-read-only t)) (if (zerop (let ((inhibit-read-only t))
(call-process "sh" nil buffer t "-c" "hugo"))) (call-process "sh" nil buffer t "-c" "hugo")))
(message "Hugo re-generated!") (message "Hugo re-generated!")
(error "Hugo Failed, better change something!")))))) (error "Hugo Failed, better change something!")))))))
(add-hook 'after-save-hook (add-hook 'after-save-hook
(lambda () (hugo-compile default-directory)))) (lambda () (hugo-compile default-directory))))