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

Fix some long lines. Still a few long strings left.

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-28 18:16:55 -06:00
parent b1f7e74a44
commit c12ee029d9
1 changed files with 22 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
package-build.el
View file

@ -160,14 +160,16 @@
(defun package-build-pkg-file (pkg-file pkg-info) (defun package-build-pkg-file (pkg-file pkg-info)
"build the pkg file" "build the pkg file"
(let ((pkg-list (list 'define-package (let ((pkg-list
(aref pkg-info 0) (list 'define-package
(aref pkg-info 3) (aref pkg-info 0)
(aref pkg-info 2) (aref pkg-info 3)
(list 'quote (mapcar (aref pkg-info 2)
(lambda (elt) (list 'quote (mapcar
(list (car elt) (package-version-join (cadr elt)))) (lambda (elt)
(aref pkg-info 1)))))) (list (car elt)
(package-version-join (cadr elt))))
(aref pkg-info 1))))))
(write-region (write-region
(concat (concat
@ -223,7 +225,8 @@
;; next two lines are a hack for some packages that aren't ;; next two lines are a hack for some packages that aren't
;; commented properly. ;; commented properly.
(goto-char (point-max)) (goto-char (point-max))
(insert (concat "\n;;; " (file-name-nondirectory file-path) " ends here")) (insert (concat "\n;;; "
(file-name-nondirectory file-path) " ends here"))
(flet ((package-strip-rcs-id (str) "0")) (flet ((package-strip-rcs-id (str) "0"))
(package-buffer-info)))))) (package-buffer-info))))))
@ -243,7 +246,8 @@
(defun package-build-all () (defun package-build-all ()
"build all packages in the `package-build-alist'" "build all packages in the `package-build-alist'"
(interactive) (interactive)
(apply 'package-build-archives (mapcar 'symbol-name (mapcar 'car package-build-alist)))) (apply 'package-build-archives
(mapcar 'symbol-name (mapcar 'car package-build-alist))))
(defun package-build-archives (&rest pkgs) (defun package-build-archives (&rest pkgs)
"build archives" "build archives"
@ -257,7 +261,8 @@
(defun package-build-archive (file-name) (defun package-build-archive (file-name)
"build a package archive" "build a package archive"
(interactive (list (completing-read "Package: " (mapc 'car package-build-alist)))) (interactive (list (completing-read "Package: "
(mapc 'car package-build-alist))))
(let* ((name (intern file-name)) (let* ((name (intern file-name))
(cfg (cdr (assoc name package-build-alist))) (cfg (cdr (assoc name package-build-alist)))
@ -285,12 +290,14 @@
(cond (cond
((= 1 (length files)) ((= 1 (length files))
(let* ((pkgsrc (expand-file-name (car files) pkg-cwd)) (let* ((pkgsrc (expand-file-name (car files) pkg-cwd))
(pkgdst (expand-file-name (concat file-name "-" version ".el") (pkgdst (expand-file-name
(concat file-name "-" version ".el")
package-build-archive-dir)) package-build-archive-dir))
(pkg-info (package-build-get-package-info pkgsrc))) (pkg-info (package-build-get-package-info pkgsrc)))
(unless pkg-info (unless pkg-info
(setq pkg-info (setq pkg-info
(vector file-name nil "No description available." version))) (vector
file-name nil "No description available." version)))
(aset pkg-info 3 version) (aset pkg-info 3 version)
(aset pkg-info 0 (downcase (aref pkg-info 0))) (aset pkg-info 0 (downcase (aref pkg-info 0)))
(print pkg-info) (print pkg-info)
@ -319,7 +326,8 @@
(unless pkg-info (unless pkg-info
(setq pkg-info (setq pkg-info
(vector file-name nil "No description available." version))) (vector
file-name nil "No description available." version)))
(aset pkg-info 3 version) (aset pkg-info 3 version)
(aset pkg-info 0 (downcase (aref pkg-info 0))) (aset pkg-info 0 (downcase (aref pkg-info 0)))