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