gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 13:08:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add depends and repo information to auto-generated elpa recipes

Browse Source
This commit is contained in:
Arthur Tu 2013-04-12 16:12:37 +08:00
parent a228e39f23
commit dc44097a91
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
methods/el-get-elpa.el
View File

@ -178,15 +178,21 @@ DO-NOT-UPDATE will not update the package archive contents before running this."
(mapc (lambda (pkg)
(let* ((package (format "%s" (car pkg)))
(pkg-desc (cdr pkg))
(description (package-desc-doc pkg-desc)))
(with-temp-file (expand-file-name (concat package ".rcp")
(description (package-desc-doc pkg-desc))
(depends (mapcar #'car (package-desc-reqs pkg-desc)))
(repo (assoc(aref pkg-desc (- (length pkg-desc) 1)) package-archives)))
(with-temp-file (expand-file-name (concat package ".rcp")
target-dir)
(message "%s:%s" package description)
(insert
(format
"(:name %s\n:auto-generated t\n:type elpa\n:description \"%s\")\n"
package description))
(indent-region (point-min) (point-max)))))
(insert
(format
"(:name %s\n:auto-generated t\n:type elpa\n:description \"%s\"\n:repo %S\n"
package description repo))
(when depends
(insert
(format ":depends %s\n" depends)))
(insert ")")
(indent-region (point-min) (point-max)))))
package-archive-contents)))
(provide 'el-get-elpa)