github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-22 19:17:27 +00:00
Code Issues Projects Releases Packages Wiki Activity

Build system works now with new config.

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-21 13:00:42 -06:00
parent c168725b80
commit de6026cf85
2 changed files with 48 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
package-build.el
View file

@ -201,21 +201,24 @@
"get the configuration information for the given file-name"
(package-read-from-file (format "epkgs/%s/master" file-name)))
(defun package-build-create-tar (dir file)
"create a tar for the file-name with version"
(let* ((default-directory package-build-working-dir)
)
(process-file
"tar" nil
(get-buffer-create "*package-build-checkout*")
nil "-cvf"
file
"--exclude=.svn"
"--exclude=.git*"
"--exclude=_darcs"
dir)
))
(defun package-build-create-tar (dir file &optional files)
"create a tar for the file-name with version"
(let* ((default-directory package-build-working-dir))
(if files
(setq files (mapcar (lambda (fn) (concat dir "/" fn)) files))
(setq files (list dir)))
(message (prin1-to-string files))
(message default-directory)
(apply 'process-file
"tar" nil
(get-buffer-create "*package-build-checkout*")
nil "-cvf"
file
"--exclude=.svn"
"--exclude=.git*"
"--exclude=_darcs"
files)))
(defun package-build-archives (&rest pkgs)
"build archives"
@ -254,11 +257,7 @@
(message "Darcs")
(package-build-checkout-darcs repo-url pkg-cwd))))
(pkg-base-dir (concat file-name "-" version))
(pkg-file (expand-file-name
(concat file-name "-pkg.el")
(concat
(file-name-as-directory package-build-working-dir)
(file-name-as-directory pkg-base-dir))))
(pkg-file (concat file-name "-pkg.el"))
(default-directory package-build-working-dir))
(cond
@ -272,18 +271,28 @@
(t
(copy-directory file-name pkg-base-dir)
(setq pkglst
(package-build-pkg-file pkg-file file-name version summary))
(package-build-pkg-file
(expand-file-name
pkg-file
(concat
(file-name-as-directory package-build-working-dir)
(file-name-as-directory pkg-base-dir)))
file-name version summary))
(setq pkgdeps (mapcar
(lambda (elt)
(list (car elt) (version-to-list (cadr elt))))
(eval (nth 4 pkglst))))
(when files
(add-to-list 'files pkg-file))
(package-build-create-tar
pkg-base-dir
(expand-file-name
(concat file-name "-" version ".tar") package-build-archive-dir))
(concat file-name "-" version ".tar") package-build-archive-dir)
files)
(delete-directory pkg-base-dir t nil)
(package-build-add-to-archive-contents
name version pkgdeps summary 'tar))))))))
name version pkgdeps summary 'tar)))))
(package-build-dump-archive-contents))))
(defvar package-build-alist

17
pkglist
View file

@ -7,4 +7,21 @@
:url "git://github.com/magit/magit.git"
:fetcher git
:summary "Control Git from Emacs")
(starter-kit
:url "git://github.com/technomancy/emacs-starter-kit.git"
:fetcher git
:summary "Saner defaults and goodies"
:files ("starter-kit-defuns.el"
"starter-kit-misc.el"
"starter-kit.el"))
(starter-kit-bindings
:url "git://github.com/technomancy/emacs-starter-kit.git"
:fetcher git
:summary "Saner defaults and goodies: bindings"
:files ("modules/starter-kit-bindings.el"))
(starter-kit-lisp
:url "git://github.com/technomancy/emacs-starter-kit.git"
:fetcher git
:summary "Saner defaults and goodies for lisp languages"
:files ("modules/starter-kit-lisp.el"))
)