2018-06-08 16:23:13 +02:00
|
|
|
;;; config/literate/init.el -*- lexical-binding: t; -*-
|
|
|
|
|
2018-06-05 16:09:03 +02:00
|
|
|
(defvar +literate-config-file
|
|
|
|
(expand-file-name "config.org" doom-private-dir)
|
|
|
|
"The file path of your literate config file.")
|
2018-06-05 15:38:58 +02:00
|
|
|
|
2019-03-28 01:59:25 -04:00
|
|
|
(defvar +literate-config-cache-file
|
|
|
|
(expand-file-name "literate-last-compile" doom-cache-dir)
|
2018-06-05 16:09:03 +02:00
|
|
|
"The file path that `+literate-config-file' will be tangled to, then
|
|
|
|
byte-compiled from.")
|
2018-06-05 15:38:58 +02:00
|
|
|
|
|
|
|
|
|
|
|
;;
|
2019-03-28 01:59:25 -04:00
|
|
|
(defun +literate-tangle (&optional force-p)
|
|
|
|
"Tangles `+literate-config-file' if it has changed."
|
|
|
|
(let ((default-directory doom-private-dir)
|
|
|
|
(org +literate-config-file))
|
|
|
|
(when (or force-p (file-newer-than-file-p org +literate-config-cache-file))
|
2018-06-05 16:14:38 +02:00
|
|
|
(message "Compiling your literate config...")
|
2018-06-08 16:23:13 +02:00
|
|
|
|
2019-03-29 03:40:56 -04:00
|
|
|
(let* ((org (file-truename +literate-config-file))
|
|
|
|
(dest (concat (file-name-sans-extension org) ".el")))
|
|
|
|
(or (and (if (fboundp 'org-babel-tangle-file)
|
|
|
|
(org-babel-tangle-file org dest "emacs-lisp")
|
|
|
|
;; We tangle in a separate, blank process because loading it
|
|
|
|
;; here would load all of :lang org (very expensive!).
|
|
|
|
(zerop (call-process
|
|
|
|
"emacs" nil nil nil
|
|
|
|
"-q" "--batch" "-l" "ob-tangle" "--eval"
|
|
|
|
(format "(org-babel-tangle-file %S %S \"emacs-lisp\")"
|
|
|
|
org dest))))
|
|
|
|
;; Write the cache file to serve as our mtime cache
|
|
|
|
(with-temp-file +literate-config-cache-file
|
|
|
|
(message "Done!")))
|
|
|
|
(warn "There was a problem tangling your literate config!"))))))
|
2018-06-08 16:23:13 +02:00
|
|
|
|
2018-06-05 15:38:58 +02:00
|
|
|
|
2018-06-05 16:09:03 +02:00
|
|
|
;; Let 'er rip!
|
2019-03-28 15:07:39 -04:00
|
|
|
(when noninteractive
|
|
|
|
(require 'ob-tangle nil t))
|
|
|
|
|
|
|
|
(+literate-tangle (or doom-reloading-p noninteractive))
|
2018-06-05 15:38:58 +02:00
|
|
|
;; No need to load the resulting file. Doom will do this for us after all
|
|
|
|
;; modules have finished loading.
|
2019-03-28 01:59:25 -04:00
|
|
|
|
|
|
|
|
|
|
|
;; Recompile our literate config if we modify it
|
|
|
|
(after! org
|
2019-07-18 15:27:20 +02:00
|
|
|
(add-hook 'after-save-hook #'+literate-recompile-maybe-h))
|