diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el index d1d6156..20bf27e 100644 --- a/lisp/mitch-packages.el +++ b/lisp/mitch-packages.el @@ -548,15 +548,16 @@ Return nil if DIR is not in a hugo project at all." (defun hugo-compile (dir) (let ((hugo-dir (hugo-dir-above dir))) (if hugo-dir - (let* ((default-directory hugo-dir) - (buffer (get-buffer-create "*hugo*"))) - (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!"))))))) + (if (string-match-p default-directory "/content-org$") + (org-hugo-export-wim-to-md-after-save) + (let* ((default-directory hugo-dir) + (buffer (get-buffer-create "*hugo*"))) + (with-current-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))))