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")))))
    (princ
     (pp-to-string
      (cons
       (intern file-name)
       (plist-put
        (plist-put
         nil