migrate takes multiple files

This commit is contained in:
Donald Ephraim Curtis 2012-01-21 14:28:34 -06:00
parent aa6be4b309
commit 4c1b957710

View file

@ -12,11 +12,10 @@
(buffer-substring-no-properties (point-min) (point-max)))))))) (buffer-substring-no-properties (point-min) (point-max))))))))
(message (prin1-to-string command-line-args-left)) (message (prin1-to-string command-line-args-left))
(when command-line-args-left (defun process-one (file-name)
(let* ((file-name (car command-line-args-left)) (let ((config
(config
(read-from-file (read-from-file
(message (expand-file-name ".config" (expand-file-name file-name "epkgs"))))) (expand-file-name ".config" (expand-file-name file-name "epkgs"))))
(master (master
(read-from-file (read-from-file
(expand-file-name "master" (expand-file-name file-name "epkgs"))))) (expand-file-name "master" (expand-file-name file-name "epkgs")))))
@ -35,3 +34,5 @@
:fetcher :fetcher
(plist-get config :fetcher))) (plist-get config :fetcher)))
)))) ))))
(mapc 'process-one command-line-args-left)