gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 04:58:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add functions el-get-eval-after-load and el-get-lazy-funcall

Browse Source 
Neither one is used yet
This commit is contained in:
Ryan C. Thompson 2012-02-23 13:53:16 -08:00
parent ca7702984a
commit b3f5de42b9
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
el-get.el
View File

@ -354,6 +354,20 @@ which defaults to the first element in `el-get-recipe-path'."
(car el-get-recipe-path)))))
(find-file recipe-file)))
(defun el-get-eval-after-load (package form)
"Like `eval-after-load', but first arg is an el-get package name."
(let* ((package (el-get-as-symbol package))
(source (el-get-package-def package))
(pkgname (plist-get source :pkgname))
(feats (el-get-as-list (plist-get source :features)))
(library (or (plist-get source :library)
(car feats)
pkgname
package)))
(eval-after-load library form)))
(put 'el-get-eval-after-load 'lisp-indent-function
(get 'eval-after-load 'lisp-indent-function))
(defun el-get-funcall (func fname package)
"`funcal' FUNC for PACKAGE and report about FNAME when `el-get-verbose'"
(when (and func (functionp func))
@ -363,6 +377,11 @@ which defaults to the first element in `el-get-recipe-path'."
(let ((pdir (el-get-package-directory package)))
(funcall func))))
(defun el-get-lazy-funcall (func fname package)
"Like `el-get-funcall', but using `eval-after-load' to wait until PACKAGE is loaded."
(el-get-eval-after-load package
`(el-get-funcall ,func ,fname ,package)))
(defun el-get-init (package)
"Make the named PACKAGE available for use.