gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

featurep!: refactor & fix three-arg usecase

Browse Source 
Now (featurep! :category module +flag) will work properly check for
+flag rather than just returning t if :category module were enabled.

Also update variables to match category-module nomenclature.
This commit is contained in:
Henrik Lissner 2018-07-30 23:53:05 +02:00
parent 70e0280db3
commit 9570670eb1
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/core-modules.el
View File

@ -356,9 +356,9 @@ to have them return non-nil (or exploit that to overwrite Doom's config)."
(warn 'doom-modules :warning "Couldn't find module '%s %s'"
,category ',module))))
(defmacro featurep! (module &optional submodule flag)
"Returns t if MODULE SUBMODULE is enabled. If FLAG is provided, returns t if
MODULE SUBMODULE has FLAG enabled.
(defmacro featurep! (category &optional module flag)
"Returns t if CATEGORY MODULE is enabled. If FLAG is provided, returns t if
CATEGORY MODULE has FLAG enabled.
(featurep! :config default)
@ -367,16 +367,17 @@ Module FLAGs are set in your config's `doom!' block, typically in
:config (default +flag1 -flag2)
When this macro is used from inside a module, MODULE and SUBMODULE can be
When this macro is used from inside a module, CATEGORY and MODULE can be
omitted. eg. (featurep! +flag1)"
(and (cond (submodule (doom-module-p module submodule))
(doom--current-flags (memq module doom--current-flags))
(and (cond (flag (memq flag (doom-module-get category module :flags)))
(module (doom-module-p category module))
(doom--current-flags (memq category doom--current-flags))
((let ((module-pair
(or doom--current-module
(doom-module-from-path (FILE!)))))
(unless module-pair
(error "featurep! couldn't detect what module its in! (in %s)" (FILE!)))
(memq module (doom-module-get (car module-pair) (cdr module-pair) :flags)))))
(memq category (doom-module-get (car module-pair) (cdr module-pair) :flags)))))
t))