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

pacman feature review

Browse Source
This commit is contained in:
Dimitri Fontaine 2010-11-08 13:45:04 +01:00
parent 13e9adcb7e
commit 27628fabc1
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
el-get.el
View File

@ -25,6 +25,7 @@
;; - Have http local file default to something sane, not package.el ;; - Have http local file default to something sane, not package.el
;; - Implement support for svn and darcs too ;; - Implement support for svn and darcs too
;; - Still more recipes ;; - Still more recipes
;; - Add support for the `pacman' package manager (ARCH Linux)
;; ;;
;; 1.0 - 2010-10-07 - Can I haz your recipes? ;; 1.0 - 2010-10-07 - Can I haz your recipes?
;; ;;
@ -257,6 +258,12 @@ definition provided by `el-get' recipes locally.
the directory where the package is stored (after a `git the directory where the package is stored (after a `git
clone' for example, in which case a symlink will be created. clone' for example, in which case a symlink will be created.
:pkgname
The name of the package for the underlying package management
system (`apt-get', `fink' or `pacman'), which can be
different from the Emacs package name.
:type :type
The type of the package, currently el-get offers support for The type of the package, currently el-get offers support for
@ -887,6 +894,7 @@ password prompt."
(defun el-get-fink-install (package url post-install-fun) (defun el-get-fink-install (package url post-install-fun)
"sudo -S fink install PACKAGE" "sudo -S fink install PACKAGE"
(let* ((name (format "*fink install %s*" package)) (let* ((name (format "*fink install %s*" package))
(pkgname (or (plist-get source :pkgname) package))
(ok (format "Package %s installed." package)) (ok (format "Package %s installed." package))
(ko (format "Could not install package %s." package))) (ko (format "Could not install package %s." package)))
@ -896,7 +904,7 @@ password prompt."
:buffer-name ,name :buffer-name ,name
:process-filter ,(function el-get-sudo-password-process-filter) :process-filter ,(function el-get-sudo-password-process-filter)
:program ,(executable-find "sudo") :program ,(executable-find "sudo")
:args ("-S" ,(executable-find "fink") "install" ,package) :args ("-S" ,(executable-find "fink") "install" ,pkgname)
:message ,ok :message ,ok
:error ,ko)) :error ,ko))
post-install-fun))) post-install-fun)))
@ -906,6 +914,7 @@ password prompt."
(defun el-get-fink-remove (package url post-remove-fun) (defun el-get-fink-remove (package url post-remove-fun)
"apt-get remove PACKAGE. URL is there for API compliance." "apt-get remove PACKAGE. URL is there for API compliance."
(let* ((name (format "*fink remove %s*" package)) (let* ((name (format "*fink remove %s*" package))
(pkgname (or (plist-get source :pkgname) package))
(ok (format "Package %s removed." package)) (ok (format "Package %s removed." package))
(ko (format "Could not remove package %s." package))) (ko (format "Could not remove package %s." package)))
@ -915,7 +924,7 @@ password prompt."
:buffer-name ,name :buffer-name ,name
:process-filter ,(function el-get-sudo-password-process-filter) :process-filter ,(function el-get-sudo-password-process-filter)
:program ,(executable-find "sudo") :program ,(executable-find "sudo")
:args ("-S" ,(executable-find "fink") "-y" "remove" ,package) :args ("-S" ,(executable-find "fink") "-y" "remove" ,pkgname)
:message ,ok :message ,ok
:error ,ko)) :error ,ko))
post-remove-fun))) post-remove-fun)))
@ -1443,7 +1452,7 @@ entry."
;; or unless we have installed pre-compiled package ;; or unless we have installed pre-compiled package
(unless (or nocomp (unless (or nocomp
(el-get-build-commands package) (el-get-build-commands package)
(member method '(apt-get pacman))) (member method '(apt-get fink pacman)))
(dolist (dir el-path) (dolist (dir el-path)
(byte-recompile-directory (byte-recompile-directory
(expand-file-name (concat (file-name-as-directory pdir) dir)) 0)))))) (expand-file-name (concat (file-name-as-directory pdir) dir)) 0))))))