mirror of
https://github.com/correl/melpa.git
synced 2024-11-24 11:09:51 +00:00
Fix some long lines. Still a few long strings left.
This commit is contained in:
parent
b1f7e74a44
commit
c12ee029d9
1 changed files with 22 additions and 14 deletions
|
@ -160,13 +160,15 @@
|
||||||
|
|
||||||
(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
|
||||||
|
(list 'define-package
|
||||||
(aref pkg-info 0)
|
(aref pkg-info 0)
|
||||||
(aref pkg-info 3)
|
(aref pkg-info 3)
|
||||||
(aref pkg-info 2)
|
(aref pkg-info 2)
|
||||||
(list 'quote (mapcar
|
(list 'quote (mapcar
|
||||||
(lambda (elt)
|
(lambda (elt)
|
||||||
(list (car elt) (package-version-join (cadr elt))))
|
(list (car elt)
|
||||||
|
(package-version-join (cadr elt))))
|
||||||
(aref pkg-info 1))))))
|
(aref pkg-info 1))))))
|
||||||
|
|
||||||
(write-region
|
(write-region
|
||||||
|
@ -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)))
|
||||||
|
|
Loading…
Reference in a new issue