update migrate script to ignore summary

This commit is contained in:
Donald Ephraim Curtis 2012-01-22 00:38:53 -06:00
parent 1e7f9b95d4
commit 794bbd06db

10
migrate
View file

@ -15,20 +15,14 @@
(defun process-one (file-name) (defun process-one (file-name)
(let ((config (let ((config
(read-from-file (read-from-file
(expand-file-name ".config" (expand-file-name file-name "epkgs")))) (expand-file-name ".config" (expand-file-name file-name "epkgs")))))
(master
(read-from-file
(expand-file-name "master" (expand-file-name file-name "epkgs")))))
(princ (princ
(pp-to-string (pp-to-string
(cons (cons
(intern file-name) (intern file-name)
(plist-put (plist-put
(plist-put (plist-put
(plist-put nil
nil
:summary
(plist-get master :summary))
:url :url
(plist-get config :url)) (plist-get config :url))
:fetcher :fetcher