github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2025-03-17 17:00:09 -09:00
Code Issues Projects Releases Packages Wiki Activity

add elisp package for melpa

Browse source 
fixes bugs and extends functionality
This commit is contained in:
Donald Ephraim Curtis 2012-01-27 11:41:33 -06:00
parent 344d8148f8
commit 44c6fc8c58
1 changed files with 72 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

72
melpa.el Normal file
View file

@ -0,0 +1,72 @@
;;; melpa.el --- special handling for the MELPA repository
;;
;; Copyright 2012 Donald Ephraim Curtis
;;
;; Author: Donald Ephraim Curtis <dcurtis@milkbox.net>
;; URL: https://github.com/milkypostman/melpa
;; Version: 0.1
;; Code goes here
;;
;;;###autoload
(defcustom melpa-package-enable nil
"Exclusive list of package symbols enabled for MELPA versions.
Empty list enables all packages."
:group 'melpa
:type '(repeat symbol))
;;;###autoload
(defcustom melpa-package-exclude nil
"List of package symbols excluded from the MELPA repo.
Trumps `melpa-package-enable'."
:group 'melpa
:type '(repeat symbol))
;;;###autoload
(defadvice package-compute-transaction
(before
package-compute-transaction-reverse (package-list requirements)
activate compile)
"reverse the requirements"
(setq requirements (reverse requirements))
(print requirements))
;;;###autoload
(defadvice package-download-tar
(after package-download-tar-initialize activate compile)
"initialize the package after compilation"
(package-initialize))
;;;###autoload
(defadvice package-download-single
(after package-download-single-initialize activate compile)
"initialize the package after compilation"
(package-initialize))
;;;###autoload
(defadvice package--add-to-archive-contents
(around melpa--add-to-archive-contents (package archive) activate compile)
"For the `melpa' archive:
Ignore any packages in `melpa-package-exclude'.
If `melpa-package-enable' is nil, accept any packages from the
`melpa' archive, otherwise only accpet packages given in
`melpa-package-enable'.
Both `melpa-package-enable' and `melpa-package-exclude' are lists
of symbolp."
;; (message (symbol-name (car package)))
(when (or (not (equal archive "melpa"))
(and
(not (memq (car package) melpa-package-exclude))
(or (not melpa-package-enable)
(memq (car package) melpa-package-enable))))
ad-do-it))
(provide 'melpa)
;;; melpa.el ends here