melpa/migrate

#!/usr/bin/env emacs --script

(defun read-from-file (file-name)
  "read one lisp expression from a file"
  (cond
   ((file-exists-p file-name)
    (with-temp-buffer
      (insert-file-contents-literally file-name)
      (goto-char (point-min))
      (car
       (read-from-string
        (buffer-substring-no-properties (point-min) (point-max))))))))

(message (prin1-to-string command-line-args-left))
(defun process-one (file-name)
  (let ((config
         (read-from-file
          (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
     (pp-to-string
      (cons
       (intern file-name)
       (plist-put
        (plist-put
         (plist-put
          nil
          :summary
          (plist-get master :summary))
         :url
         (plist-get config :url))
        :fetcher
        (plist-get config :fetcher)))
      ))))

(mapc 'process-one command-line-args-left)