awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Discovered keywordp

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-02 19:17:02 -05:00
parent 41146c9e41
commit 3fee91caaa
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/core-packages.el
View File

@ -222,10 +222,11 @@ Examples:
(defun doom-module-path (module submodule &optional file) (defun doom-module-path (module submodule &optional file)
"Get the full path to a module: e.g. :lang emacs-lisp maps to "Get the full path to a module: e.g. :lang emacs-lisp maps to
~/.emacs.d/modules/lang/emacs-lisp/. Will append FILE if non-nil." ~/.emacs.d/modules/lang/emacs-lisp/. Will append FILE if non-nil."
(when (symbolp module) (setq module
(setq module (symbol-name module))) (cond ((keywordp module) (substring (symbol-name module) 1))
(when (string-prefix-p ":" module) ((symbolp module) (symbol-name module))
(setq module (substring module 1))) ((stringp module) module)
(t (error "Not a valid module name: %s" module))))
(when (symbolp submodule) (when (symbolp submodule)
(setq submodule (symbol-name submodule))) (setq submodule (symbol-name submodule)))
(f-expand (concat module "/" submodule "/" file) (f-expand (concat module "/" submodule "/" file)