github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-23 03:00:12 +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)))))))) (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 (expand-file-name ".config" (expand-file-name file-name "epkgs"))))
(message (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")))))
(princ (princ
(pp-to-string (pp-to-string
(cons (cons
@ -35,3 +34,5 @@
:fetcher :fetcher
(plist-get config :fetcher))) (plist-get config :fetcher)))
)))) ))))
(mapc 'process-one command-line-args-left)