el-get/recipes/package.rcp
Ryan C. Thompson 40970c4596 Don't overwrite existing "package-archives" value
Instead, we add the archives we want without blowing away any others.
2013-11-22 08:39:58 -08:00

41 lines
1.8 KiB
Plaintext

;; Same as "package" except that it takes the version from Emacs 24
(:name package
:description "ELPA implementation (\"package.el\") from Emacs 24"
:builtin "24"
:type http
:url "http://repo.or.cz/w/emacs.git/blob_plain/1a0a666f941c99882093d7bd08ced15033bc3f0c:/lisp/emacs-lisp/package.el"
:shallow nil
:features package
:post-init
(progn
(setq package-user-dir
(expand-file-name
(convert-standard-filename
(concat (file-name-as-directory
default-directory)
"elpa")))
package-directory-list
(list (file-name-as-directory package-user-dir)
"/usr/share/emacs/site-lisp/elpa/"))
(make-directory package-user-dir t)
(unless (boundp 'package-subdirectory-regexp)
(defconst package-subdirectory-regexp
"^\\([^.].*\\)-\\([0-9]+\\(?:[.][0-9]+\\)*\\)$"
"Regular expression matching the name of
a package subdirectory. The first subexpression is the package
name. The second subexpression is the version string."))
;; Ensure `package-archives' is defined
(setq package-archives (bound-and-true-p package-archives))
;; Ensure needed entries are in `package-archives' without
;; clobbering what what already there.
(mapc
(lambda (pa)
(add-to-list 'package-archives pa 'append))
'(("ELPA" . "http://tromey.com/elpa/")
("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/")
("SC" . "http://joseito.republika.pl/sunrise-commander/")))))
;; Don't init, elpa packages installed by el-get is
;; initialized from loaddefs (package-initialize)