Fix void-function +literate-tangle-h on saving org files

This commit is contained in:
Henrik Lissner 2020-05-26 00:59:44 -04:00
parent 07714a12d4
commit e1f73bd7cb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 34 additions and 34 deletions

View file

@ -1,5 +1,37 @@
;;; config/literate/autoload.el -*- lexical-binding: t; -*- ;;; config/literate/autoload.el -*- lexical-binding: t; -*-
(defvar +literate-config-file
(concat doom-private-dir "config.org")
"The file path of your literate config file.")
(defvar +literate-config-cache-file
(concat doom-cache-dir "literate-last-compile")
"The file path that `+literate-config-file' will be tangled to, then
byte-compiled from.")
;;;###autoload
(defun +literate-tangle-h (&optional force-p)
"Tangles `+literate-config-file' if it has changed."
(let ((default-directory doom-private-dir))
(when (or (file-newer-than-file-p +literate-config-file
+literate-config-cache-file)
force-p)
(print! (start "Compiling your literate config..."))
(print-group!
(let* ((org (expand-file-name +literate-config-file))
(dest (concat (file-name-sans-extension +literate-config-file) ".el"))
(output (get-buffer-create "*org-tangle*")))
(unwind-protect
;; We tangle in a separate, blank process because loading it here
;; would load all of :lang org (very expensive!).
(and (require 'ob-tangle)
(letf! (defun message (msg &rest args)
(print! (info "%s") (apply #'format msg args)))
(org-babel-tangle-file org dest))
;; Write the cache file to serve as our mtime cache
(with-temp-file +literate-config-cache-file))
(kill-buffer output)))))))
;;;###autoload ;;;###autoload
(after! org (after! org
;; Recompile our literate config if we modify it ;; Recompile our literate config if we modify it

View file

@ -1,38 +1,6 @@
;;; config/literate/cli.el -*- lexical-binding: t; -*- ;;; config/literate/cli.el -*- lexical-binding: t; -*-
(defvar +literate-config-file (load! "autoload")
(concat doom-private-dir "config.org")
"The file path of your literate config file.")
(defvar +literate-config-cache-file ;; Tangle the user's config.org before 'doom sync' runs
(concat doom-cache-dir "literate-last-compile")
"The file path that `+literate-config-file' will be tangled to, then
byte-compiled from.")
;;
(defun +literate-tangle-h (&optional force-p)
"Tangles `+literate-config-file' if it has changed."
(let ((default-directory doom-private-dir))
(when (or (file-newer-than-file-p +literate-config-file
+literate-config-cache-file)
force-p)
(print! (start "Compiling your literate config..."))
(print-group!
(let* ((org (expand-file-name +literate-config-file))
(dest (concat (file-name-sans-extension +literate-config-file) ".el"))
(output (get-buffer-create "*org-tangle*")))
(unwind-protect
;; We tangle in a separate, blank process because loading it here
;; would load all of :lang org (very expensive!).
(and (require 'ob-tangle)
(letf! (defun message (msg &rest args)
(print! (info "%s") (apply #'format msg args)))
(org-babel-tangle-file org dest))
;; Write the cache file to serve as our mtime cache
(with-temp-file +literate-config-cache-file))
(kill-buffer output)))))))
;; Let 'er rip
(add-hook 'doom-cli-pre-hook #'+literate-tangle-h) (add-hook 'doom-cli-pre-hook #'+literate-tangle-h)