~changed literate to reflect changes in filesystem

This commit is contained in:
odave
2020-03-17 17:32:56 +00:00
parent 7414e9c790
commit 99c1664647

View File

@@ -8,8 +8,8 @@ loading time.
Initialise some basic constants for where stuff is. Initialise some basic constants for where stuff is.
#+BEGIN_SRC elisp #+BEGIN_SRC elisp
(setq oreodave/literate/bin-dir (expand-file-name (concat doom-private-dir "bin/"))) (setq oreodave/literate/bin-dir (expand-file-name (concat doom-private-dir "bin/")))
(setq oreodave/literate/preloaded-files (list "README.org" "org/packages.org" (setq oreodave/literate/preloaded-files (list "README.org" "config/packages.org"
"org/config.org" "org/literate.org")) "config/config.org" "config/literate.org"))
#+END_SRC #+END_SRC
* Remove function * Remove function
When loading the lisp, we need to load everything excluding "config.el" When loading the lisp, we need to load everything excluding "config.el"
@@ -69,7 +69,7 @@ literate contents.
(defun oreodave/literate/compile-hook () (defun oreodave/literate/compile-hook ()
(when (and (eq major-mode 'org-mode) (when (and (eq major-mode 'org-mode)
(or (file-in-directory-p buffer-file-name doom-private-dir) (or (file-in-directory-p buffer-file-name doom-private-dir)
(file-in-directory-p buffer-file-name (concat doom-private-dir "modules"))) (file-in-directory-p buffer-file-name (concat doom-private-dir "config")))
(not (string= buffer-file-name (expand-file-name (concat doom-private-dir "README.org"))))) (not (string= buffer-file-name (expand-file-name (concat doom-private-dir "README.org")))))
(oreodave/literate/tangle buffer-file-name (oreodave/literate/destination buffer-file-name)))) (oreodave/literate/tangle buffer-file-name (oreodave/literate/destination buffer-file-name))))
@@ -101,7 +101,7 @@ Remove the config.el and literate.el files from the load list because:
2) literate.org is loaded by config.org, thus no need to reload it 2) literate.org is loaded by config.org, thus no need to reload it
#+BEGIN_SRC elisp #+BEGIN_SRC elisp
(let ((files (directory-files-recursively "~/.doom.d/org" ".org"))) ; Load (let ((files (directory-files-recursively "~/.doom.d/config/" ".org"))) ; Load
(dolist (file (oreodave/literate/remove-mult oreodave/literate/preloaded-files files)) (dolist (file (oreodave/literate/remove-mult oreodave/literate/preloaded-files files))
(load (oreodave/literate/destination file)))) (load (oreodave/literate/destination file))))
#+END_SRC #+END_SRC