emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactors & revision across the board

Browse source
This commit is contained in:
Henrik Lissner 2020-07-31 01:39:24 -04:00
parent a54d2b3804
commit 6a64f37435
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
11 changed files with 48 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/config/literate/README.org
View file

@ -74,10 +74,14 @@ For example:
(package! other-package)
,#+END_SRC
,#+BEGIN_SRC sh :tangle ~/.dotfiles/bin/script.sh
,#+BEGIN_SRC sh :tangle ~/.dotfiles/bin/script.sh :tangle-mode (identity #o755)
#!/usr/bin/env bash
echo Hello world
,#+END_SRC
,#+BEGIN_SRC sh :tangle ~/.dotfiles/bin/script.sh :shebang "#!/usr/bin/env bash"
echo Hello world
,#+END_SRC
#+END_SRC
** Modularizing your literate config with ~#+INCLUDE~ directives

19
modules/config/literate/autoload.el
View file

@ -15,8 +15,8 @@ byte-compiled from.")
(print! (start "Compiling your literate config..."))
(print-group!
(let* ((default-directory doom-private-dir)
(org (expand-file-name +literate-config-file))
(dest (concat (file-name-sans-extension +literate-config-file) ".el"))
(org (expand-file-name +literate-config-file))
(dest (concat (file-name-sans-extension +literate-config-file) ".el"))
(backup (make-temp-file "config.org.backup")))
(and (require 'ox)
(require 'ob-tangle)
@ -24,17 +24,16 @@ byte-compiled from.")
(letf! ((defun message (msg &rest args)
(when msg
(print! (info "%s") (apply #'format msg args))))
;; Prevent infinite recursion due to
;; recompile-on-save hooks later.
;; Prevent infinite recursion due to recompile-on-save
;; hooks later.
(org-mode-hook nil))
;; We do the ol' switcheroo because `org-babel-tangle'
;; writes changes to the current file, which would be
;; imposing on the user.
;; Do the ol' switcheroo because `org-babel-tangle' writes
;; changes to the user's literate config, which would impose on
;; the user.
(copy-file org backup t)
(with-current-buffer (find-file-noselect org)
;; Tangling doesn't expand #+INCLUDE directives, so we
;; do it ourselves, since includes are so useful for
;; literate configs!
;; Tangling won't ordinarily expand #+INCLUDE directives, so
;; we do it ourselves.
(org-export-expand-include-keyword)
(org-babel-tangle nil dest))
t)