From e38f508ec1e02c715962875579075f0d7c6623b1 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 8 Nov 2017 22:47:06 +0100 Subject: [PATCH] doom--module-paths => doom-module-paths --- core/core-packages.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/core/core-packages.el b/core/core-packages.el index c594b3e57..b1f98aafa 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -255,6 +255,14 @@ This aggressively reloads core autoload files." (cons (intern (concat ":" (match-string 1 path))) (intern (match-string 2 path))))) +(defun doom-module-paths (&optional append-file) + "Returns a list of absolute file paths to activated modules, with APPEND-FILE +added, if the file exists." + (cl-loop for (module . submodule) in (doom-module-pairs) + for path = (doom-module-path module submodule append-file) + if (file-exists-p path) + collect path)) + (defun doom-module-flags (module submodule) "Returns a list of flags provided for MODULE SUBMODULE." (and (hash-table-p doom-modules) @@ -283,14 +291,6 @@ include all modules, enabled or otherwise." (cl-loop for key being the hash-keys of doom-modules collect key)) -(defun doom--module-paths (&optional append-file) - "Returns a list of absolute file paths to activated modules, with APPEND-FILE -added, if the file exists." - (cl-loop for (module . submodule) in (doom--module-pairs) - for path = (doom-module-path module submodule append-file) - if (file-exists-p path) - collect path)) - (defun doom--display-benchmark () (message "Doom loaded %s packages across %d modules in %.03fs" ;; Certainly imprecise, especially where custom additions to @@ -615,7 +615,7 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files." (doom-initialize-packages t t) (setq compile-targets (cl-loop for target - in (or modules (append (list doom-core-dir) (doom--module-paths))) + in (or modules (append (list doom-core-dir) (doom-module-paths))) if (equal target "core") nconc (nreverse (directory-files-recursively doom-core-dir "\\.el$")) else if (file-directory-p target)