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

13
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
(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))))