TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add TODO for configuration-layer/describe-package

This commit is contained in:
syl20bnr 2016-05-31 22:33:04 -04:00
parent 6b3e1452cf
commit 1da124f689
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-configuration-layer.el
View File

@ -463,11 +463,13 @@ If TOGGLEP is non nil then `:toggle' parameter is ignored."
(defun configuration-layer/describe-package (pkg-symbol
&optional layer-list pkg-list)
"Describe a package in the context of the configuration layer system."
(interactive (list (intern
(completing-read
"Package: "
(mapcar (lambda (pkg) (symbol-name (oref pkg :name)))
configuration-layer--packages)))))
(interactive
(list (intern
(completing-read
"Package: "
(mapcar (lambda (pkg) (symbol-name (oref pkg :name)))
;; TODO make it work with `configuration-layer/get-all-packages'
configuration-layer--packages)))))
(let* ((pkg (object-assoc pkg-symbol
:name (or pkg-list configuration-layer--packages)))
(owner (oref pkg :owner)))