From 4c1b957710c1ade7a539b589f2e1dc94f8f41472 Mon Sep 17 00:00:00 2001 From: Donald Ephraim Curtis Date: Sat, 21 Jan 2012 14:28:34 -0600 Subject: [PATCH] migrate takes multiple files --- migrate | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/migrate b/migrate index 9391d555..1bebcda4 100755 --- a/migrate +++ b/migrate @@ -12,14 +12,13 @@ (buffer-substring-no-properties (point-min) (point-max)))))))) (message (prin1-to-string command-line-args-left)) -(when command-line-args-left - (let* ((file-name (car command-line-args-left)) - (config - (read-from-file - (message (expand-file-name ".config" (expand-file-name file-name "epkgs"))))) - (master - (read-from-file - (expand-file-name "master" (expand-file-name file-name "epkgs"))))) +(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 @@ -35,3 +34,5 @@ :fetcher (plist-get config :fetcher))) )))) + +(mapc 'process-one command-line-args-left)