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

org+hugo: do ox-hugo stuff maybe

Browse Source
This commit is contained in:
MitchMarq42 2022-12-02 16:02:07 -09:00
parent 58a6acbb7f
commit 210d91fb58
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/mitch-packages.el
View File

@ -548,15 +548,16 @@ Return nil if DIR is not in a hugo project at all."
(defun hugo-compile (dir) (defun hugo-compile (dir)
(let ((hugo-dir (hugo-dir-above dir))) (let ((hugo-dir (hugo-dir-above dir)))
(if hugo-dir (if hugo-dir
(let* ((default-directory hugo-dir) (if (string-match-p default-directory "/content-org$")
(buffer (get-buffer-create "*hugo*"))) (org-hugo-export-wim-to-md-after-save)
(with-current-buffer buffer (let* ((default-directory hugo-dir)
;; (pop-to-buffer buffer) (buffer (get-buffer-create "*hugo*")))
(compilation-mode) (with-current-buffer buffer
(if (zerop (let ((inhibit-read-only t)) (compilation-mode)
(call-process "sh" nil buffer t "-c" "hugo"))) (if (zerop (let ((inhibit-read-only t))
(message "Hugo re-generated!") (call-process "sh" nil buffer t "-c" "hugo")))
(error "Hugo Failed, better change something!"))))))) (message "Hugo re-generated!")
(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))))