Add +literate-enable-recompile-h to enable save-on-tangle

This commit is contained in:
Henrik Lissner 2020-07-24 15:21:44 -04:00
parent bcc1b84e76
commit 3aeb177847
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -34,19 +34,21 @@ byte-compiled from.")
(kill-buffer output))))))) (kill-buffer output)))))))
;;;###autoload ;;;###autoload
(after! org (add-hook 'org-mode-hook #'+literate-enable-recompile-h)
;; Recompile our literate config if we modify it
(add-hook 'after-save-hook #'+literate-recompile-maybe-h))
;;;###autoload ;;;###autoload
(defalias '+literate/reload #'doom/reload) (defalias '+literate/reload #'doom/reload)
;;;###autoload
(defun +literate-enable-recompile-h ()
"Enable literate-compiling-on-save in the current buffer."
(add-hook 'after-save-hook #'+literate-recompile-maybe-h nil 'local))
;;;###autoload ;;;###autoload
(defun +literate-recompile-maybe-h () (defun +literate-recompile-maybe-h ()
"Recompile config.org if we're editing an org file in our DOOMDIR. "Recompile literate config to `doom-private-dir'.
We assume any org file in `doom-private-dir' is connected to your literate We assume any org file in `doom-private-dir' is connected to your literate
config, and should trigger a recompile if changed." config, and should trigger a recompile if changed."
(when (and (eq major-mode 'org-mode) (when (file-in-directory-p buffer-file-name doom-private-dir)
(file-in-directory-p buffer-file-name doom-private-dir))
(+literate-tangle-h 'force))) (+literate-tangle-h 'force)))