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

Fix el-get http support to call post-install-fun after the async retrieval.

Browse Source
This commit is contained in:
Dimitri Fontaine 2010-08-12 14:40:15 +02:00
parent 7697768421
commit 3b1168eb70
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
el-get.el
View File

@ -626,22 +626,24 @@ passing it the the callback function nonetheless."
(re-search-forward "^$" nil 'move)
(forward-char)
(delete-region (point-min) (point))
(write-file dest)))
(write-file dest))
(funcall post-install-fun package))
(defun el-get-http-install (package url post-install-fun)
"Dowload a single-file package over HTTP "
(let ((pdir (el-get-package-directory package)))
(unless (file-directory-p pdir)
(make-directory pdir))
(url-retrieve url 'el-get-http-retrieve-callback `(,package)))
(funcall post-install-fun package))
(url-retrieve
url 'el-get-http-retrieve-callback `(,package ,post-install-fun))))
;;
;; Common support bits
;;
(defun el-get-rmdir (package url)
(defun el-get-rmdir (package url post-remove-fun)
"Just rm -rf the package directory. Follow symlinks."
(dired-delete-file (el-get-package-directory package) 'always))
(dired-delete-file (el-get-package-directory package) 'always)
(funcall post-remove-fun package))
(defun el-get-build (package commands &optional subdir)
"run each command from the package directory"