39 lines
1.5 KiB
EmacsLisp
39 lines
1.5 KiB
EmacsLisp
;;; config/literate/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +literate-config-file
|
|
(expand-file-name "config.org" doom-private-dir)
|
|
"The file path of your literate config file.")
|
|
|
|
(defvar +literate-config-dest-file
|
|
(expand-file-name "config.el" doom-private-dir)
|
|
"The file path that `+literate-config-file' will be tangled to, then
|
|
byte-compiled from.")
|
|
|
|
|
|
;;
|
|
(defun +literate-compile (&optional load)
|
|
"Tangles & compiles `+literate-config-file' if it has changed. If LOAD is
|
|
non-nil, load it too!"
|
|
(let ((org +literate-config-file)
|
|
(elc (concat +literate-config-dest-file "c")))
|
|
;; If config is pre-compiled, then load that
|
|
(when (file-newer-than-file-p org elc)
|
|
(message "Compiling your literate config...")
|
|
;; We tangle in a separate, blank process because loading it here would load
|
|
;; all of :lang org, which will be more expensive than it needs to be.
|
|
(or (zerop (call-process
|
|
"emacs" nil nil nil
|
|
"-q" "--batch" "-l" "ob-tangle" "--eval"
|
|
(format "(org-babel-tangle-file \"%s\" \"%s\" \"emacs-lisp\")"
|
|
org +literate-config-dest-file)))
|
|
(error "There was a problem tangling your literate config!"))
|
|
;; Then byte-compile it!
|
|
(require 'bytecomp)
|
|
(byte-compile-file +literate-config-dest-file load)
|
|
(message "Done!"))))
|
|
|
|
;; Let 'er rip!
|
|
(+literate-compile)
|
|
|
|
;; No need to load the resulting file. Doom will do this for us after all
|
|
;; modules have finished loading.
|