github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-15 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't pretty-print archive-contents

Browse source 
This step can take many seconds, and is performed for every package build.
This commit is contained in:
Steve Purcell 2013-11-13 20:07:00 +00:00
parent 093046dfb3
commit bec4005772
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
package-build.el
View file

@ -438,9 +438,14 @@ Return a cons cell whose `car' is the root and whose `cdr' is the repository."
(pb/find-parse-time (pb/find-parse-time
"\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}\\)")))) "\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}\\)"))))
(defun pb/dump (data file) (defun pb/dump (data file &optional pretty-print)
"Write DATA to FILE as a pretty-printed Lisp sexp." "Write DATA to FILE as a Lisp sexp.
(write-region (concat (pp-to-string data) "\n") nil file)) Optionally PRETTY-PRINT the data."
(with-temp-file file
(message "File: %s" file)
(if pretty-print
(pp data (current-buffer))
(print data (current-buffer)))))
(defun pb/write-pkg-file (pkg-file pkg-info) (defun pb/write-pkg-file (pkg-file pkg-info)
"Write PKG-FILE containing PKG-INFO." "Write PKG-FILE containing PKG-INFO."
@ -454,7 +459,8 @@ Return a cons cell whose `car' is the root and whose `cdr' is the repository."
(list (car elt) (list (car elt)
(package-version-join (cadr elt)))) (package-version-join (cadr elt))))
(aref pkg-info 1))) (aref pkg-info 1)))
pkg-file)) pkg-file
t))
(defun pb/read-from-file (file-name) (defun pb/read-from-file (file-name)
"Read and return the Lisp data stored in FILE-NAME, or nil if no such file exists." "Read and return the Lisp data stored in FILE-NAME, or nil if no such file exists."