github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-22 11:08:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

migrate takes multiple files

Browse source
This commit is contained in:
Donald Ephraim Curtis 2012-01-21 14:28:34 -06:00
parent aa6be4b309
commit 4c1b957710
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
migrate
View file

@ -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)