From 210d91fb58f0827fa59a17461669e4670599dd1f Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Fri, 2 Dec 2022 16:02:07 -0900 Subject: [PATCH] org+hugo: do ox-hugo stuff maybe --- lisp/mitch-packages.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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))))